RFindString()

[PB]

> let's simply code it for now...

Here's what I've been using for ages:

Code: Select all

Procedure FindStringLast(string$,match$,startpos)
  Repeat : a=FindString(string$,match$,startpos) : If a<>0 : startpos=a+1 : EndIf : Until a=0
  ProcedureReturn startpos-1
EndProcedure

Debug FindStringLast("123-456-789","-",1) ; Returns 8, because last dash is 8th character.

[GeoTrail]

That works perfectly, thanks PB

[blueznl]

Code: Select all

Procedure.l x_rfindstring(string.s,find.s)                          ; find string find.s in string.s starting from the right side
  Protected l.l , p.l
  ;
  ; *** find a string in another string, starting from the right
  ;
  l.l = Len(find.s)
  p.l = Len(string.s)
  If l > 0 And p > 0
    p = p + l
    Repeat
      p = p - 1
    Until p.l = 0 Or Mid(string,p,l) = find
  EndIf
  ProcedureReturn p
EndProcedure

i admit it's probably not the best way to do it

i think this should be a standard purebasic command though, imho etc.

[GeoTrail]

blueznl, yeah I can't dissagre there