Парсинг

[d7d1cd]

Привет всем. Есть множество строк с адресами. Все адреса имеют одинаковый формат написания, например несколько из них:

Г. НИЖНИЙ НОВГОРОД, УЛ. ГОГОЛЯ, Д. 15
Г. НИЖНИЙ НОВГОРОД, ПЕР. ОБОЗНЫЙ, Д. 1
Г. НИЖНИЙ НОВГОРОД, ПР. ГАГАРИНА, Д. 12, КОРП. 6
Г. НИЖНИЙ НОВГОРОД, УЛ. М. ГОРЬКОГО, Д. 65, ЛИТ. А

Необходимо написать код, который из строки получает подстроку, начинающуюся с названия улицы. Указанные строки должны преобразоваться так:

ГОГОЛЯ, Д. 15
ОБОЗНЫЙ, Д. 1
ГАГАРИНА, Д. 12, КОРП. 6
ГОРЬКОГО, Д. 65, ЛИТ. А

Подскажите, как сделать?

[ikki]

Код Выделить Развернуть

=ПСТР(A1;НАЙТИ(".";A1;НАЙТИ(",";A1))+2;99)
правда, для последнего варианта получится "М. ГОРЬКОГО..."

если обязательно нужно именно "ГОРЬКОГО", то проще написать макрос или UDF на регулярках.
но нужно больше реальных вариантов адресов.
только ли одно слово перед второй запятой брать?
сомневаюсь.

[d7d1cd]

А программно как это сделать?

[ikki]

Код Выделить Развернуть

s = Mid(s, InStr(InStr(1, s, ","), s, ".") + 2)