Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
paau
42 / 20 / 9
Регистрация: 15.01.2015
Сообщений: 90
1

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

28.04.2016, 16:00. Просмотров 909. Ответов 6
Метки нет (Все метки)

На форме 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
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.04.2016, 16:00
Ответы с готовыми решениями:

Как скопировать первую строку из TextBox и вставить в другой TextBox
1.Как скопировать первую строку из textbox1 и вставить эту строку в textbox2 ...

Очистить все TextBox на форме, кроме одного
Private Sub Image1_Click() Dim cntr As Control For Each cntr In...

Разные размеры шрифта в строках одного TextBox
Здравствуйте! Я совсем еще туповат в программировании. Решил начать с Visual...

Как накопить сумму данных из одного Textbox?
Уважаемые программисты. Есть вот такой код Private Sub Command1_Click() Dim...

Проскроллировать текст в textbox-е ?
А можно ли как-нибудь заставить скроллироваться текстбокс вниз при присвоении...

6
Shersh
Заблокирован
28.04.2016, 16:54 2
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)
1
paau
42 / 20 / 9
Регистрация: 15.01.2015
Сообщений: 90
28.04.2016, 17:10  [ТС] 3
спасибо... я канеш код намутил некислый )))))) ... но думаю что не зря... мозги хоть размял )))))))))))
split - даже не знал о его существовании )))))
0
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
28.04.2016, 17:47 4
paau
Чудес не бывает. Для вашей программы слово ассоциируется
с пробелом после него. Таким образом можно этот
пробел добавить при нажатии кнопки и все будет работать.
0
paau
42 / 20 / 9
Регистрация: 15.01.2015
Сообщений: 90
29.04.2016, 14:02  [ТС] 5
Лучший ответ Сообщение было отмечено The trick как решение

Решение

И все же... почему так не работает ???
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
0
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
29.04.2016, 14:08 6
paau
Я бы не стал везде писать Text1.Text, а ввел бы
переменную T = Text1.Text. После чего можно
и пробел добавить: T = T + " "
Удачи вам!
0
paau
42 / 20 / 9
Регистрация: 15.01.2015
Сообщений: 90
29.04.2016, 16:43  [ТС] 7
geh, код будет полюбому оптимизироваться в дальнейшем... это только часть большой программы. Для наглядности оставил пока так как есть, что бы не запутаться в этих переменных, а их будет много...
Спасибо, удачи Вам тоже...
0
29.04.2016, 16:43
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.04.2016, 16:43

Многострочный текст в Textbox
как поместить многострочный текст в Textbox? какие есть методы помещения...

Текст в TextBox выровнять по краям
Как текст в TextBox выровнять по краям (одновременно по правому и левому краю)

Цветной текст в обыкновенном TextBox
никто не подскажет, можно ли с помощью каких-либо функций API в обыкновенном...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru