MyTetra Share
Делитесь знаниями!
Нормализация строки (ВАСЯ ПЕТРОВ = Вася Петров)
19.07.2018
19:35
Раздел: VBA - Access - msa.polarcom.ru - 13 Преобразование Строк


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

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



Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования