Отделить фамилию, имя и очество и вывести их в поля lable

Категория: Basic
2011-11-07 19:16:27

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

code: #basic
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

автор: Vovan-VE

Поделиться:

Похожие статьи:

теги: InStr, LTrim, строки, работа со строками