Разбить текст (ФИО) из одного TextBox на 3 отдельных TextBox

@paau · Регистрация: 15.01.2015

Студворк — интернет-сервис помощи студентам

На форме 4 TextBox, 1 CommandButton
Необходимо, что бы после введения в текстовое поле при нажатии на кнопку ФИО распределялось по отдельным текстовым полям... фамилия в одно поле, имя в другое а отчество в третье.
код работает, только если в текстовом поле вводить в конце пробел... )))) ...
Если ставлю в коде вместо пробела общее кол-во символов то не работает вообще...
Подскажите что за чудеса...

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub Command1_Click()
Dim I, K, L, M As Integer
Dim slovo1, slovo2, slovo3 As String
M = Len(Text1.Text) ' Len - вычисляем количество символов в строке
 
For I = 1 To M
If Mid(Text1.Text, I, 1) = " " Then 'наткнулись на пробел, значит у нас есть слово, i - это номер буквы в слове
 
      For K = I + 1 To M
      If Mid(Text1.Text, K, 1) = " " Then
 
             For L = K + 1 To M
             If Mid(Text1.Text, L, 1) = " " Then
  
                             Text2.Text = slovo1
                             Text3.Text = slovo2
                             Text4.Text = slovo3
             Else
                 slovo3 = slovo3 & Mid(Text1.Text, L, 1)
             End If
             Next L
      Else
        slovo2 = slovo2 & Mid(Text1.Text, K, 1)
      End If
      Next K
      
Else
  slovo1 = slovo1 & Mid(Text1.Text, I, 1)
End If
Next I
End Sub

Shersh · 28.04.2016, 16:54

Visual Basic
1
2
3
4
5
dim a()
a=split(Text1.Text)
Text2.Text = a(0)
Text3.Text = a(1)
Text4.Text = a(2)

@paau · 28.04.2016, 17:10 **[ТС]**

спасибо... я канеш код намутил некислый )))))) ... но думаю что не зря... мозги хоть размял )))))))))))
split - даже не знал о его существовании )))))

echs · 28.04.2016, 17:47

paau
Чудес не бывает. Для вашей программы слово ассоциируется
с пробелом после него. Таким образом можно этот
пробел добавить при нажатии кнопки и все будет работать.

@paau · 29.04.2016, 14:02 **[ТС]**

И все же... почему так не работает ???
13 строка...

Visual Basic
1
If Mid(Text1.Text, L, 1) = M Then

Должно же по идее доходить до последнего символа в Text1 равное М (условие выполняется) и переходить к выполнению действий...

Добавлено через 29 минут
разобрался )))))))

4 строка должна выглядеть вот так

Visual Basic
1
M = Len(Text1.Text) + 1

Добавлено через 11 часов 49 минут
Добавил безусловный переход ))))) ...код работает ))))

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub Command1_Click()
Dim I, K, L, M As Integer
Dim slovo1, slovo2, slovo3 As String
M = Len(Text1.Text) ' Len - вычисляем количество символов в строке
 
For I = 1 To M
If Mid(Text1.Text, I, 1) = " " Then 'наткнулись на пробел, значит у нас есть слово, i - это номер буквы в слове
 
      For K = I + 1 To M
      If Mid(Text1.Text, K, 1) = " " Then
 
             For L = K + 1 To M
             If Mid(Text1.Text, L, 1) = " " Then
1:
                             Text2.Text = slovo1
                             Text3.Text = slovo2
                             Text4.Text = slovo3
                             GoTo 2
             Else
                 slovo3 = slovo3 & Mid(Text1.Text, L, 1)
             End If
             Next L
             GoTo 1
      Else
        slovo2 = slovo2 & Mid(Text1.Text, K, 1)
      End If
      Next K
Else
  slovo1 = slovo1 & Mid(Text1.Text, I, 1)
End If
Next I
2:
End Sub

Добавлено через 4 часа 27 минут
13 строка должна выглядеть вот так

Visual Basic
1
If Mid(Text1.Text, L, 1) = "" Then

echs · 29.04.2016, 14:08

paau
Я бы не стал везде писать Text1.Text, а ввел бы
переменную T = Text1.Text. После чего можно
и пробел добавить: T = T + " "
Удачи вам!

@paau · 29.04.2016, 16:43 **[ТС]**

geh, код будет полюбому оптимизироваться в дальнейшем... это только часть большой программы. Для наглядности оставил пока так как есть, что бы не запутаться в этих переменных, а их будет много...
Спасибо, удачи Вам тоже...

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@paau 42 / 20 / 9 Регистрация: 15.01.2015 Сообщений: 95
	28.04.2016, 17:10 [ТС]
	спасибо... я канеш код намутил некислый )))))) ... но думаю что не зря... мозги хоть размял ))))))))))) split - даже не знал о его существовании ))))) 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	28.04.2016, 17:47
	paau Чудес не бывает. Для вашей программы слово ассоциируется с пробелом после него. Таким образом можно этот пробел добавить при нажатии кнопки и все будет работать. 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	29.04.2016, 14:08
	paau Я бы не стал везде писать Text1.Text, а ввел бы переменную T = Text1.Text. После чего можно и пробел добавить: T = T + " " Удачи вам! 0

@paau 42 / 20 / 9 Регистрация: 15.01.2015 Сообщений: 95
	29.04.2016, 16:43 [ТС]
	geh, код будет полюбому оптимизироваться в дальнейшем... это только часть большой программы. Для наглядности оставил пока так как есть, что бы не запутаться в этих переменных, а их будет много... Спасибо, удачи Вам тоже... 0

Разбить текст (ФИО) из одного TextBox на 3 отдельных TextBox

Решение