Цитата |
---|
Kuzmich написал: unction 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 WithEnd Function |
Как получить название улицы из текста, содержащего адрес?
Как получить название улицы из текста, содержащего адрес?
Как получить название улицы из текста, содержащего адрес?
22.01.2021 15:46:30
|
|||
|
Как получить название улицы из текста, содержащего адрес?