[Function strremove]

LOCAL.VERI=<ARGV[0]>

ARGS=<explode " ",<f_commachange <f_commasep 1,<ARGS>>>>

FOR 0 <eval <ARGV>-1>

LOCAL.CNT=<ARGV[<dlocal._for>]>

LOCAL.STRREMOVE .= " "

	IF (STRMATCH(*<LOCAL.VERI>*, <LOCAL.CNT>))

		FOR X 0 <eval (strlen(<LOCAL.CNT>))-1>

			IF !(<DLOCAL.BLOCK>)

				IF (STRMATCH(<LOCAL.VERI>*, <STRSUB <DLOCAL.X> 0 <LOCAL.CNT>>))

				LOCAL.BLOCK <eval STRLEN(<LOCAL.VERI>)-1>

				ELSE

				LOCAL.STRREMOVE .= "<STRSUB 0 1 <STRSUB <DLOCAL.X> 0 <LOCAL.CNT>>>"

				ENDIF

			ELSE

			LOCAL.BLOCK -=1

			ENDIF

		ENDFOR

	ELSE

	LOCAL.STRREMOVE .= "<LOCAL.CNT>"

	ENDIF

ENDFOR

RETURN <explode "~",<strsub 2 0 <LOCAL.STRREMOVE>>>





[Function f_commasep] // <F_COMMASEP BAŞLANGIÇ,KELİME,KELİME,KELİME...>

LOCAL.START 1

IF (<dARGV[0]> >= 1) && (<dargv[0]> <= <eval <argv>-1>)

LOCAL.START <DARGV[0]>

ENDIF



FOR <dlocal.start> <eval <ARGV>-1>

LOCAL.RETURN .= ", <ARGV[<dlocal._for>]>"

ENDFOR

RETURN <streat <local.return>>



[Function f_commachange] // <F_COMMACHANGE BAŞLANGIÇ,KELİME,KELİME,KELİME...>

LOCAL.START 1

IF (<dARGV[0]> >= 1) && (<dargv[0]> <= <eval <argv>-1>)

LOCAL.START <DARGV[0]>

ENDIF



FOR <dlocal.start> <eval <ARGV>-1>

LOCAL.RETURN .= "~ <ARGV[<dlocal._for>]>"

ENDFOR

RETURN <streat <local.return>>