Консультация № 109652
16.11.2007, 09:07
0.00 руб.
0 1 1
Здравствуйте,

господа вопрос по VBScript (работа со строками):
подскажите, как мне найти в строке первое вхождение любой цифры (0-9). Или любой латинской/русской буквы.

Заранее спасибо.

Обсуждение

Неизвестный
16.11.2007, 10:13
общий
это ответ
Здравствуйте, DaLi_Bor!
Можно использовать регулярные выражения:
вот 2 функции возвращают озицию(с 0) первого вхождения или -1 если нет:
Function NumPos(src)
set re=New RegExp
re.Pattern = "\d"
Set m = re.Execute(src)
if m.count>0 then NumPos=m(0).FirstIndex else numpos=-1
end Function

Function LiterPos(src)
set re=New RegExp
re.Pattern = "[A-Za-zА-Яа-я]"
Set m = re.Execute(src)
if m.count>0 then LiterPos=m(0).FirstIndex else Literpos=-1
end Function
msgbox NumPos("sss4dfdfdf5")
msgbox NumPos("sss")
msgbox NumPos("1sss")

msgbox LiterPos("sss4dfdfdf5")
msgbox LiterPos("654765")
msgbox LiterPos("1sss")

Успехов
Форма ответа