После ввода в текстовое поле ФИО человека в произвольном регистре с пробелами и по нажатию клавиши ENTER из исходной строки, нужно отделить фамилию, имя и отчество и вывести их в поля lable (в 1 lable фамилию, во 2-ю lable имя и в 3 отчество) — Visual Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub findFIO()
    Dim i&, s$
    s = LTrim(txtFIO.Text)
    i = InStr(1, s, " ")
    If i=0 Then
        'ввели только фамилию
        lblF.Caption = RTrim(s)
        Exit Sub
    End If
    lblF.Caption = Left$(s, i-1) 'вот нашли фамилию
    s = LTrim(Mid$(s,i+1))
    i = InStr(1, s, " ")
    If i=0 Then
        'ввели только фамилию_имя
        lblI.Caption = RTrim(s)
        Exit Sub
    End If
    lblI.Caption = Left$(s, i-1) 'вот нашли имя
    lblO.Caption = Trim(Mid$(s,i+1)) 'а все остальное это отчество
End Sub

Похожие записи/страницы:

Leave a Comment