Thanks,

I renamed it to STRTRANC though!

>Bob --
> Same algorithm as Dan's but with in a function with a bit of error trapping thrown in.
>
>

>*	FUNCTION SUBSTRCI
>*		A case-insensitive SUBSTR(). In other words, characters in either the
>*		searched string or the string searched for are matched regardless of case, and
>*		the replacement string inserted.
>
>*	Parameters are in the same format as SUBSTR:
>*						TYPE		REQ/OPT
>*		tcSearched		C			REQ
>*		tcSearchfor		C			REQ
>*		tcReplace		C			OPT
>
>*	Although some parameters are identified as required,
>*	the routine recovers gracefully if they are of a different data type.
>*	The developer may want to add notification in these cases
>
>*	The function returns the value of the string as converted by the function.
>
>FUNCTION   SUBSTRCI
>PARAMETERS			tcSearched, tcSearchfor, tcReplace
>LOCAL				llContinue, lcReturn, lcReplace, lnSearchForSize
>
>lcReturn = IIF (VARTYPE (tcSearched) = "C", tcSearched, "")
>IF NOT EMPTY (tcSearchFor) AND VARTYPE (tcSearchFor) = "C"
>	llContinue = .T.
>	lcReplace = IIF (VARTYPE (tcReplace) = "C", tcReplace, "")
>	lnSearchForSize = LEN (tcSearchFor)
>
>	DO WHILE llContinue
>		lnStart = ATC (tcSearchfor, lcReturn)
>		llContinue = (lnStart > 0)
>		IF llContinue
>			lcReturn = LEFT (lcReturn, lnStart-1) + lcReplace + SUBSTR (lcReturn, lnStart + lnSearchForSize)
>		ENDIF
>	ENDDO
>ENDIF
>RETURN lcReturn
>
>