InString с конца
Добавлено: 27 Январь 2017, 4:09
Если строка достаточно большая, то работать будет ооооочень медленно.
С InString будет работать гораздо быстрее
С InString будет работать гораздо быстрее
Любой каприз...
Код: Выделить всё
MyInstringNK PROCEDURE(pat STRING, str STRING, step LONG, pos LONG),LONG
CODE
if step > 0
RETURN(Instring(pat,str,step,pos))
end
len1# = len(str)
len2# = len(pat)
if len1# < len2#
RETURN(0)
end
loop i# = len1# to len2# by -1
if str[i#-len2#+1:i#] = pat
RETURN(i#-len2#+1)
end
end
RETURN(0)