Подскажите алгоритм

[TiG]

Есть TextBox3 c данными вида:
___________
|vasya centr |
|petya arena |
|misha arsen |
|vovan gospi |
|__________|

Как их (данные) распихать в TextBox-ы?:
TextBox1(0) TextBox2(0)
TextBox1(1) TextBox2(1)
TextBox1(2) TextBox2(2)
TextBox1(3) TextBox2(3)


TextBox1(0) должен быть равен vasya
TextBox2(0) должен быть равен centr
etc...

За ранее спасибо, код приветствуется)

[alibek]

Алгоритм: разбиваешь текст на строки, а строки на слова, и полученные слова присваиваешь тексбоксам.

[uhm]

На всякий случай, скажу, что удобнее всего это делать функцией Split$.

[alibek]

Split() возвращает Variant, а не String.

[tyomitch]

На всякий случай, скажу, что удобнее всего это делать функцией Split$.

Нет такой функции! Переход хода!

[uhm]

Каюсь, промахнулся.

Split без доллара.

[TiG]

Ой щяс как возьму топорик, да поразбиваю на мониторе этот текстбокс на строчки, а потом строчки на квадратики. Хм криво получиться наверное, ну ничего напильничком подравняю и потом приклею на другом мониторе на текстбоксики...
Как думаете моментом клеить или эпокситкой?

[uhm]

Тоже метод. А это ты к чему, к тому, что все то, что мы тут понаписали, не подходит?

[TiG]

хех) это я к тому, что букваря у мну нету и в интернете не могу найти точку отсчета по этой теме. Хз что значит разбить на строки и какими командами пользоваться и их синтаксиса соответственно тоже не знаю(

[alibek]

http://msdn.microsoft.com/library/

[TiG]

alibek

перегрузите компьютер

[tyomitch]

хех) это я к тому, что букваря у мну нету и в интернете не могу найти точку отсчета по этой теме. Хз что значит разбить на строки и какими командами пользоваться и их синтаксиса соответственно тоже не знаю(

Тебе же написали: Split без доллара. F1 нажать тяжело?

[TiG]

1. ya.ru - Split visual basic - Искомая комбинация слов нигде не встречается
2. MSDN не установлен
3. http://msdn.microsoft.com/library/ английского не знаю
4. Обжект браузер:
Function Split(Expression As String, [Delimiter], [Limit As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare])

Непонятно! Visual Basic для новичков! Не кодом так алгоритмом на пальцах с командами помогите.

[GSerg]

Понятно. Простые английские слова в качестве имён параметров.
Английский учить придётся всё равно. Учи.

[GSerg]

http://vb.hut.ru/vb_tutor_rus.chm

[TiG]

GSerg

перегрузите компьютер

[Konst_One]

Код: Выделить всё

dim arrLines() as String
Dim arrRow() as String
Dim i as Integer
Dim j as Integer

arrLines=Split(TextBox3,vbCrLf)

For i=0 to Ubound(arrLines)
   
    arrRow=Split(arrLines(i)," ")
    For j...
   
    ...
Next i
...

и тд и тп

[tyomitch]

2. MSDN не установлен

Установи. Половина вопросов сразу пропадёт.

3. http://msdn.microsoft.com/library/ английского не знаю

Юзай lingvo. Вторая половина вопросов пропадёт.

[TiG]

tyomitch Перегрузи компьютер

Konst_One Респект)

А вот более медленный извращенный подход: Создаем листбокс1 и запихаваем в него данные из файла, данные в котором из текстбокса3.

Код: Выделить всё

Open "c:\temp.txt" For Input As #1
Do Until EOF(1)
Line Input #1, txt
alltxt = alltxt + txt + vbCrLf
List1.AddItem (txt)
Loop
Close #1


Потом из листбокс1 раскидываем это по текстбоксикам:

Код: Выделить всё

For bbb = 0 To 19
p1 = InStr(1, List1.List(bbb), "*", vbTextCompare)
p2 = InStr(p1, List1.List(bbb), "/", vbTextCompare)
p3 = InStr(1, List1.List(bbb), "+", vbTextCompare)
Text1(bbb).Text = Mid(List1.List(bbb), p1 + 1, p2 - p1 - 1)
Text2(bbb).Text = Mid(List1.List(bbb), p2 + 1, p3 - p2 - 1)
Next bbb


П.С. данные в текстбокс немного пришлось модернизировать:

_____________
|*vasya/centr+ |
|*petya/arena+ |
|*misha/arsen+|
|*vovan/gospi+ |
|____________|

[uhm]

TiG Перегрузи компьютер, монитор, мышку, клавиатуру и мозги

[Konst_One]

ничего, пусть шишки понабивает, а потом легче будет

[GAGArin]

Если не юзать сплит, то проще всего написать автомат. Два состояния, 4 перехода, один счетчик... И не нужно заморачиваться на разделители, а то придумает кто нить ник с плюсиком... Если надо могу написать код.

tyomitch А MSDN его не спасет, русского MSDN'а я в природе не видел.

[BV]

Нда... Все перезагрузились-то?

[MeMBus]

TiG
Если по варианту (работаем с файлом):
___________
|vasya centr |
|petya arena |
|misha arsen |
|vovan gospi |
|__________|

Тогда

Код: Выделить всё

    Dim i As Long, l As Long
    Dim sTextLine As String, sSplitTxt As Variant
    Dim sUser() As String, sTitl() As String
    Open "c:\temp.txt" For Input As #1
        Do Until EOF(1)
            Line Input #1, sTextLine
            If Trim$(sTextLine) = "___________" Or Trim$(sTextLine) = "|__________|" Then
            Else
                sTextLine = Trim$(Replace(sTextLine, "|", ""))
                sSplitTxt = Split(sTextLine, " ")
                ReDim Preserve sUser(i)
                ReDim Preserve sTitl(i)
                sUser(i) = sSplitTxt(0)
                sTitl(i) = sSplitTxt(1)
                i = i + 1
            End If
            DoEvents
        Loop
    Close #1
    For l = 0 To i - 1
        Debug.Print "User: " & sUser(l)
        Debug.Print "Titl: " & sTitl(l)
    Next l

Читать MSDN все же придется, если хочешь что-то нормальное когда-нибудь сделать. Английский желательно мало-мальски знать (сам не знаю, но msdn читаю)...
P.S. Контрольная перезагрузка...

[tyomitch]

А MSDN его не спасет, русского MSDN'а я в природе не видел.

Только что обсуждали, что есть он.
http://msdn.microsoft.com/library/rus/

[TiG]

uhm выключи комп, залей мозги пивом

GAGArin Интересно, напиши по свободе.

tyomitch Клёва) Терь, Алибек будет по две ссылки выдавать)

MeMBus Сенк) C этим "________" ты правда перестарался, это я так бордюр текстбоска изобразил)

[uhm]

"Ой, ну кто бы говорил!" (с)

[alibek]

Терь, Алибек будет по две ссылки выдавать)

Нет, отныне ты в игноре.

[TiG]

Я тебе сам хотел предложить

[GAGArin]

GAGArin Интересно, напиши по свободе.

Ну вот...

Код: Выделить всё

Public strNow As String 'Накапливаемое слово
Public btPosition As Byte 'Тригер пишем слово/или пробелы пропускаем
Public btPositionT As Byte 'Переменная позволяющая избежать попадания в оба IF'a
Public strTemp As String 'Считаная буква
Public intSchet As Integer 'Счетчик


Private Sub cmdStart_Click()

Open App.Path & "\text.txt" For Input As 1
btPosition = 1
btPositionT = 1
intSchet = 1

Do Until EOF(1)
    strTemp = Input$(1, #1)
      If btPosition = 1 Then
        If strTemp = " " Or Asc(strTemp) = 10 Or Asc(strTemp) = 13 Then
          'Пробел после пробела =- отдыхаем
        Else
          btPositionT = 2 'Нашли букву, начали писать
          strNow = strNow & strTemp
         
        End If
      Else
     
        If strTemp = " " Or Asc(strTemp) = 10 Or Asc(strTemp) = 13 Then
          'Нашли пробел записываем слово в ТекстБокс
          If intSchet Mod 2 = 0 Then
            Text2(Int(intSchet / 2 - 1)).Text = strNow
          Else
            Text1(Int(intSchet / 2 - 0.5)).Text = strNow
          End If
          '---
          strNow = ""
          btPositionT = 1
          intSchet = intSchet + 1
          'Сбрасываем значения, переставляем тригер на подсчет пробелов
        Else
          'Ну если побела не нашли, то копим слово.
          strNow = strNow & strTemp
        End If
      End If
      btPosition = btPositionT 'Записываем изменения в состоянии
Loop

Close #1

End Sub


Плохой код, да и комменты на "почти русском". Два состояния позволяют пропустить сколько угодно пробелов где угодно, но вот Split делает это гораздо проще. Правда я не помнил этой функции и если бы пришлось писал бы все равно почти так (или написал бы эту функцию)