Instr по маске?

[|kerish|]

Как найти в тексте нужную строку по маске.
Чтобы работало, например как это - Instr ("Kerish", "K*rish") = 1

[Andrey Fedorov]

Как найти в тексте нужную строку по маске.
Чтобы работало, например как это - Instr ("Kerish", "K*rish") = 1

Такая маска несколько глуповата... Ну "K?rish" - еще можно понять...

Перебор, со сравнением по LIKE, разве что...

[GSerg]

Подключить библиотеку регулярных выражений от MS, там было, насколько я помню...

[|kerish|]

Andrey Fedorov Это просто пример.
GSerg Не хотелось бы подключать посторонние библиотеки к проекту.

Ладно, буду свою функцию писать.

[GSerg]

Свой парсер регулярных выражений?
Э... ну давай...

[Vi]

Можно использовать оператор Like.
"Kerish" Like "K*rish"
"Kerish" Like "*K*rish*"

[GSerg]

И как, используя оператор Like, можно узнать, в какой позиции произошло совпадение?..

[vvs_adm]

И как, используя оператор Like, можно узнать, в какой позиции произошло совпадение?..

Код: Выделить всё

Dim nCount as Long
nCount=Len(sMyString)-Len(sMyPattern)+1
Do
  nCount=nCount-1
  if nCount < Len(sMyPattern) then Exit Do
Loop While Not Right$(sMyString,Len(sMyString)-nCount) Like sMyPattern

P.S.: ну может где-нибудь +-1, неохота думать Правда так последнее совпадение найдем, а первое чере лефт$, но ессно и первое и последнее совпадение помимо Left$ и Right$ еще и через ... , но ты не ставил условия, что бы по человечески, ты спросил - как