VBA, MS Access MS Access в примерах

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

По материалам: http://www.cyberforum.ru/ms-access/thread2352923-page2.html

Public Function NormalString(val As Variant) As Variant
'es 17.11.2018
'Нормализация строки (ВАСЯ ПЕТРОВ или вася петров = Вася Петров)
'Для исправления ввода Имён, Фамилий (в т.ч. и двойных: морозов-пупкин = Морозов-Пупкин)
'--------------------------------------------------------------------------
On Error GoTo NormalString_Err
Dim v As Variant
    If InStr(1, val, "-") > 0 Then
        v = Replace(val, "-", " - ")
        v = StrConv(v, 3)
        NormalString = Replace(v, " - ", "-")
    Else
        NormalString = StrConv(val, 3) '3 = vbProperCase
    End If

NormalString_End:
    On Error Resume Next
    Exit Function

NormalString_Err:
    NormalString = val 'Null
    'MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure NormalString, line " & Erl & ".", vbCritical
    Err.Clear
    Resume NormalString_End
End Function


Назад ToTop
L.E. 17.11.2018
Рейтинг@Mail.ru