Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Как получить название улицы из текста, содержащего адрес?
 
Всем доброе время суток, работаю с данным в ексели, и очень хочется автоматизировать таблицы, помогите прописать формулу, чтобы вытянуть название (файл загружен), минус всего это в колонки разное положение наименование улицы. Мне нужно вытянуть название улицы.  Спасибо заранее  
 
Саша Саша, и вы туда же?
нужно вам получить название улицы, так и пишите в теме:
"как получить название улицы из текста, содержащего адрес?"
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Беда конечно с этими вашими экселями )))  
чтоб дело мастера боялось, он знает много страшных слов.
 
Цитата
минус всего это в колонки разное положение наименование улицы
UDF
Код
Function iStreet(cell$)
 With CreateObject("VBScript.RegExp")
     .IgnoreCase = True
     .Pattern = "(ул\.|улица|пр\.)\s([^,]+)"
     If .test(cell) Then
       iStreet = .Execute(cell)(0).SubMatches(1)
     Else
       .Pattern = "([^,]+)(?=ул\.|тракт|пр\.)"
       iStreet = .Execute(cell)(0)
     End If
 End With
End Function
Страницы: 1
Читают тему (гостей: 2)
Наверх