Хочу разбить ФИО на Фамиилию Имя Отчество. Интересно сделать это через регулярки и vba. Код скрипта:
Public Function RegExpExtract(Text As String, Pattern As String, Item As Integer) As String
On Error GoTo ErrHandl
Set regex = CreateObject("VBScript.RegExp")
regex.Pattern = Pattern
regex.Global = True
If regex.Test(Text) Then
Set matches = regex.Execute(Text)
RegExpExtract = matches.Item(Item - 1)
Exit Function
End If
ErrHandl:
RegExpExtract = CVErr(xlErrValue)
End Function
Насколько я разобрался, функция RegExpExtract - принимает три аргумента: строку, паттерн, и номер_нужного_совпадения. Регулярное выражение "[А-Я-а-я]*" как раз разбивает строку на три подстроки,которые соответствуют имени,фамилии и отчеству. То-есть,если я передам третьим параметром "2"- получу имя,"3" - отчество.С единичкой работает,возвращается Фамилия. С 2 и 3 - нет. Я не особо понимаю структуру vba скрипта, и где строчка,ответственная за возвращения подстроки. Подскажите пожалуйста,как модифицировать код для моих нужд. Спасибо. P.s Понимаю,что это решение из разряда изобретения велосипеда,но все таки интересно разобраться в этом. Спасибо за понимание.