Организация поиска

[dracool]

Всем привет! Я в VB полный чайник, поэтому я здесь...
У меня такая проблемка... Вобщем имеется текстовое поле в которое вводятся ФИО (только в строгом соответствующем порядке), между словами можно вводить любое количество пробелов (в том числе и в начале). Также имеются три текстовых поля куда, при нажатии Энтера, должны выводиться Фамилия в одно поле, Имя в другое и т.д.
Так вот вопрос как мне организовать этот поиск через цикл Do-Loop? Что мне вводить в качестве условия?[/syntax]

[Viper]

А что ищем то? Или тебе надо введенные в одном поле фамилию, имя и отчество разделить на составные части и отправить их в отдельные текстовые поля? Ежели так, то порядок действий таков:
1. Берешь строку с ФИО, обрезаешь пробелы вначале и в конце функцией Trim$.
2. Заменяешь двойные пробелы внутри на одинарные в цикле Do...Loop, при помощи функций InStr и Replace$
3. Делишь полученную строку на отдельные слова при помощи функции Split.
4. Помещаешь элементы полученного массива в нужные поля ввода.

[alibek]

1 и 2 необязательны.

[Viper]

1 и 2 необязательны.

но с ними все же проще, не нужно будет потом пустые элементы массива обрабатывать.

[alibek]

Не проще, ведь считать элементы все-равно надо, если предусматривать обработку ситуации, когда отчество или имя/отчество не заданы.

[burik]

Я бы сделал так:

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


Dim tmp     As Integer
Dim str     As String

    str = Text1.Text
    str = Trim$(str)
   
    tmp = InStr(1, str, " ")
    If tmp > 0 Then
        List1.AddItem Left$(str, tmp)
        str = Trim$(Right$(str, Len(str) - tmp))
    End If
   
    tmp = InStr(1, str, " ")
    If tmp > 0 Then
        List2.AddItem Left$(str, tmp)
        str = Trim$(Right$(str, Len(str) - tmp))
    End If
   
    If Len(str) > 0 Then
        List3.AddItem str
    End If


[alibek]

Ужасно.

[dracool]

Спасибо! Вариант с Split оч хорош.
Но мне надо было делать так:
Dim Temp As String
Dim fs As Integer
Dim fn As String

Temp = Trim$(Text1.Text)
fs = InStr(1, Temp, " ")
fn = Mid$(Temp, 1, fs - 1)
Text2.Text = UCase$(Mid$(fn, 1, 1)) & LCase$(Mid$(fn, 2))

Temp = Trim$(Mid$(Temp, fs + 1))
fs = InStr(1, Temp, " ")
fn = Mid$(Temp, 1, fs - 1)
Text3.Text = UCase$(Mid$(fn, 1, 1)) & LCase$(Mid$(fn, 2))

Temp = Trim$(Mid$(Temp, fs + 1))
Text4.Text = UCase$(Mid$(Temp, 1, 1)) & LCase$(Mid$(Temp, 2))

Т.к. Split мы ешо не проходили

Тогда ещё вопросик, что нужно зациклить (For-Next) чтобы программа выполняла разделение на слова при вводе не 3х, а допустим 7 слов (есесно добовляются и поля вывода)?

[dr.MIG]

Гм... Сначала подумал что это мой студент. Однако, мы Split уже проходили.

Тогда ещё вопросик, что нужно зациклить (For-Next) чтобы программа выполняла разделение на слова при вводе не 3х, а допустим 7 слов (есесно добовляются и поля вывода)?

При таком подходе как сейчас -- ничего не зациклишь. Если количество текстовых полей предлагается увеличить до 7, то логично будет использовать массив текстовых полей. Если подход к разделению слов должен остаться таким же (если Split до сих пор не прошли:)), то внутрь внутрь цикла поместить

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

Temp = Trim$(Mid$(Temp, fs + 1))
fs = InStr(1, Temp, " ")
fn = Mid$(Temp, 1, fs - 1)
Text2(i).Text = UCase$(Mid$(fn, 1, 1)) & LCase$(Mid$(fn, 2))

Предварительно создать массив ЭУ Text2. Здесь i -- это счётчик цикла.

[ANMAT]

Тогда ещё вопросик, что нужно зациклить (For-Next) чтобы программа выполняла разделение на слова при вводе не 3х, а допустим 7 слов (есесно добовляются и поля вывода)?

Ну а нельзя сказать преподавателю, что самостоятельно посмотрел про split? Все-таки без него ерунда. И такие задания давать до его изучения - признак дурного учителя...

Все-таки самое правильное, делать так:
Создаешь массив из семи текстбоксов Text1

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

dim strSource as string, i as integer, re as new regexp, arrWord
strSource = "В этой переменной находится именно семь слов"
re.pattern = " {2,}"
re.global = true
strSource = re.replace(trim$(strSource), " ") ' удалить все лишние пробелы
arrWord = split(strSource, " ")
for i = 0 to ubound(arrWord)
   Text1(i).text = arrWord(i)
next

[dr.MIG]

Text1[i]?

[ANMAT]

Text1[i]?

Йопть, чисто в блокноте пишу - проверки-то нету, вот и очепятался...

[RayShade]

Самый тру способ - это regexp С его помощью и строку разбить, и все такое

[dracool]

Предварительно создать массив ЭУ Text2. Здесь i -- это счётчик цикла.

Массив ЭУ - это что и как?

[dr.MIG]

ЭУ -- элемент управления. Следовательно массив ЭУ -- это массив элементов управления. Что бы его создать (во время разработки) выдели какой-то один элемент управления (например тот же Text2), скопируй его (Ctrl+C) и вставь на форму (Ctrl+V). Появится сообщение, что элемент управления с таким именем уже существует и будет предложено создать массив. Необходимо нажать кнопку "Да". Появится элемент управления с таким же именем как и предыдущий, но со значением свойства Index на 1 больше. Теперь, что бы обратиться к какому-нибудь свойству, допустим свойству Text в нашем случае, необходимо писать не Text2.Text, а Text2(i).Text, где i -- целое число, значение свойства Index. Таким образом, используя индекс, мы сможем производить какие-либо действия с нашими элементами управления, находящимися в массиве, используя цикл.