InString с конца

[PavelNK]

Если строка достаточно большая, то работать будет ооооочень медленно.
С InString будет работать гораздо быстрее

[Shur]

А не лучше ли использовать функцию StrPos?

С 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)