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")
Успехов