Начнем с того, "ггг" - это реальные "ггг" или под этими "ггг" скрывается нечто другое?
"ггг" бывают разные...
Если это реальные "ггг", то это подстрока длиной 3 символа из начала строки
| Код |
Выделяется так
mid("ггг-впыомыамы",1,3)
|
Если же это гипотетические "ггг", то тут надо хитрее...
| Код |
'********************************************************************
'*
'* Функция : strExtractString
'* Описание : Выделяет из строки подстроку, удовлетворяющую шаблону
'* Вход : strString - строка
'* strPath - шаблон
'* Выход : строка соответствущая шаблону
'*
'********************************************************************
Private Function strExtractString(ByVal strString, ByVal strPath)
Dim RegEx ' Экземпляр регулярного выражения
Dim colMatches ' Коллекция совпадений
Dim aMatch ' один из совпавших образцов
' Создаём экземпляр объекта RegExp
Set RegEx = CreateObject("VBScript.RegExp")
' Настраиваем режимы работы регулярного выражения
RegEx.IgnoreCase = True ' Осуществляем поиск игнорируя размер букв
RegEx.Global = False ' Ищем до первого совпадения
RegEx.MultiLine = False ' Текст не является многострочным
RegEx.Pattern = strPath ' Устанавливаем шаблон регулярного выражения
' Тестируем строку на соответствие шаблону
Set colMatches = RegEx.Execute(strString)
For Each aMatch In colMatches
strExtractString = aMatch.Value
Exit For
Next
' Уничтожаем экземпляры объектов
Set colMatches = Nothing
Set RegEx = Nothing
End Function
|
И тут в качестве шаблона надо использовать регулярное выражение, которое полностью описывает выделяемую строку.
Разберёшься?
|
