Threaded Mode | Linear Mode

Extreme · (09-06-2014)

Here is my STR custom functions.

STRSTR WORD,PHRASE
RETURN the position of the first WORD found on PHRASE, -1 if don't find.

PHP Code:

[FUNCTION STRSTR]
LOCAL.WORD <STRTOLOWER <ARGV[0]>>
ARGS <STRTOLOWER <STREAT <ARGS>>>
IF !STRMATCH(*<LOCAL.WORD>*,*<ARGS>*)
 RETURN -1
ELSE
 LOCAL.P 0
 WHILE <dLOCAL.CNT> != <EVAL STRLEN(<LOCAL.WORD>)>
  LOCAL.POS <STRPOS <dLOCAL.P> <STRSUB 0 1 <LOCAL.WORD>> <ARGS>>
  LOCAL.CNT 0
  FOR C 0 <EVAL STRLEN(<LOCAL.WORD>)-1>
   IF STRMATCH(*<STRSUB <EVAL <dLOCAL.POS>+<dLOCAL.C>> 1 <ARGS>>*,*<STRSUB <dLOCAL.C> 1 <LOCAL.WORD>>*)
    LOCAL.CNT ++
   ELSE
    LOCAL.P ++
    BREAK
   ENDIF
  ENDFOR
 ENDWHILE
 RETURN <dLOCAL.POS>
ENDIF 

STRREPLACE OLDWORD,NEWWORD,PHRASE
RETURN PHRASE with ALL found OLDWORD's changed to NEWWORLD's

PHP Code:

[FUNCTION STRREPLACE]
LOCAL.OLDWORD <ARGV[0]>
LOCAL.WORD <ARGV[1]>
ARGS <STREAT <STREAT <ARGS>>>
WHILE STRMATCH(*<STRTOLOWER <LOCAL.OLDWORD>>*,*<STRTOLOWER <ARGS>>*)
 LOCAL.P <STRSTR <LOCAL.OLDWORD>,<ARGS>>
 IF <dLOCAL.P>
  ARGS <STRSUB 0 <EVAL <dLOCAL.P>> <ARGS>><LOCAL.WORD><STRSUB <EVAL <dLOCAL.P>+STRLEN(<LOCAL.OLDWORD>)> <EVAL STRLEN(<ARGS>)> <ARGS>>
 ELSE
  ARGS <LOCAL.WORD><STRSUB <EVAL <dLOCAL.P>+STRLEN(<LOCAL.OLDWORD>)> <EVAL STRLEN(<ARGS>)> <ARGS>>
 ENDIF
ENDWHILE
RETURN <ARGS> 

STRREPLACEONCE OLDWORD,NEWWORD,PHRASE
RETURN PHRASE with only one OLDWORD changed to NEWWORD

PHP Code:

[FUNCTION STRREPLACEONCE]
LOCAL.OLDWORD <ARGV[0]>
LOCAL.WORD <ARGV[1]>
ARGS <STREAT <STREAT <ARGS>>>
LOCAL.P <STRSTR <LOCAL.OLDWORD>,<ARGS>>
IF <dLOCAL.P>
 ARGS <STRSUB 0 <EVAL <dLOCAL.P>> <ARGS>><LOCAL.WORD><STRSUB <EVAL <dLOCAL.P>+STRLEN(<LOCAL.OLDWORD>)> <EVAL STRLEN(<ARGS>)> <ARGS>>
ELSE
 ARGS <LOCAL.WORD><STRSUB <EVAL <dLOCAL.P>+STRLEN(<LOCAL.OLDWORD>)> <EVAL STRLEN(<ARGS>)> <ARGS>>
ENDIF
RETURN <ARGS> 

PS: both STRREPLACE and STRREPLACEONCE needs the function STRSTR!

Threaded Mode \| Linear Mode STRREPLACE
Author	Message