PBDR.COM

About   -   Contact   -   Purchase   -   Search   -   What's New

 
 
Last Position Function
/*--------------------------------------------------------------
   GF_LASTPOS: K.M. Howe 09-13-1995 (PUBLIC)

   <DESC>   Function to find the last position of a string
            in a string.</DESC>

   <RETURN> long: position in string</RETURN>
        
   <ARGS>   as_string: string to look in
            as_value: string to match </ARGS>

--------------------------------------------------------------*/
Long ll_Pos, ll_OldPos

ll_Pos = Pos( as_String, as_Value )
IF ll_Pos = 0 THEN RETURN ll_Pos

DO WHILE ll_Pos <> 0
   ll_OldPos = ll_Pos
   ll_Pos = Pos( as_String, as_Value, ll_Pos + 1 )
LOOP

RETURN ll_OldPos
 

Top of Page

Legal Notice

Ken Howe 2011