MyTetra Share
Делитесь знаниями!
Lrg clipart on Boxtutor
Нормализация строки (ВАСЯ ПЕТРОВ = Вася Петров)
16.03.2019
23:43
Раздел: !Закладки - 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
Яндекс индекс цитирования