admir wrote:
Code:
#string1 - main ,string2 -compare with string1
sub FindInString(string1,string2)
if len(string1)<len(string2) then
return 0
end if
var i,l
for i=0 to (len(string1)-len(string2))
if mid(string1,i,len(string2)) == string2 then
return 1
end if
next
return 0
end sub
Круто! Спасибо! Только помоему эта процедура ищет слева направо...С права на лево,наверное, будет так:
Code:
#string1 - main ,string2 -compare with string1
sub FindInString(string1,string2)
if len(string1)<len(string2) then
return 0
end if
var i,l
for i=(len(string1)-len(string2)) to 0 step -1
if mid(string1,i,len(string2)) == string2 then
return 1
end if
next
return 0
end sub