Разбить текст (ФИО) из одного 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, код будет полюбому оптимизироваться в дальнейшем... это только часть большой программы. Для наглядности оставил пока так как есть, что бы не запутаться в этих переменных, а их будет много...
Спасибо, удачи Вам тоже...

Новые блоги и статьи Все статьи Все блоги /
Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.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

Решение