TopPicLogo TopPicText

Нормализация строки (ВАСЯ ПЕТРОВ = Вася Петров)

Public Function NormalString(val As Variant) As Variant
'Нормализация строки  ( ВАСЯ ПЕТРОВ = Вася Петров)
Dim i As Integer
Dim x As Integer
Dim cLet As String * 1
Dim lLet As String * 1
On Error GoTo NormalStringErr
    For i = 1 To Len(val)
        cLet = Mid(val, i, 1)
        If i = 1 Or lLet = " " Or lLet = "" Then
            NormalString = NormalString & UCase(cLet)
        Else
            NormalString = NormalString & LCase(cLet)
        End If
        lLet = cLet
    Next i
    Exit Function
NormalStringErr:
    NormalString = Null
End Function
Назад ToTop
L.E. 05.05.2013
Рейтинг@Mail.ru