Search the string in the opposite direction

[Gintaras]

Macro Macro3234

Code:

Copy      Help

_s=
;abc
;efg
;hij
;abc
;klm
;abc bbb abc
int pos=sub._Find(_s "abc")
out pos

#sub _Find
function# str's1 $s2

ARRAY(lpstr) a
tok s1 a -1 "[10]" 1
int i
for i a.len-1 -1 -1
,lpstr s3=a[i]
,int j=find(s3 s2)
,if(j>=0) ret s3-s1+j
ret -1