Community

Разбиение строки ФИО на отдельные поля Фамилия, Имя и Отчество

Ниже приводится простой скрипт, который позволит разбить стандартное ФИО на три отдельных поля. Разбиение производится по пробелам. Поэтому, в случае, когда отчество отсутствует, или Имя и/или фамилия более сложные, чем "одно слово", скрипт придется дорабатывать. Но для стандартных случаев скрипт подходит как есть.


Dim vField

vField = me.Field("FullName").Text

if vField = "" then
me.CheckSucceeded = False
me.ErrorMessage = "Поле ФИО должно быть заполнено"
Exit Sub
end if

Dim MyArray
MyArray = Split (vField)
if UBound (MyArray) - LBound (MyArray) < 2="">
me.CheckSucceeded = False
me.ErrorMessage = "Проверьте, что поле ФИО распознано корректно"
exit Sub
end if

me.Field("Surname").Text = MyArray(0)
me.Field("Name").Text = MyArray(1)
me.Field("MiddleName").Text = MyArray(2)
0

Comments

0 comments

Please sign in to leave a comment.