>Hi Ed,
>
>This is the solution I came up with - I think this one works a bit better because if the string you are searching for is contained in the replacement string things will get confusing 8-)
>eg lcVar = StrtrannoCase(lcVar, 'Proc', 'Procedure')
>
>
>lParameters tcStr, tcFind, tcRep
>Local lnPos
>
>lnPos = ATC(tcFind, tcStr)
>Do While lnPos > 0
> tcStr = STUFF( tcStr, lnPos, LEN(tcFind), '*!*SomeUniqueString*!*')
> lnPos = ATC(tcFind, tcStr)
>EndDo
>
>Return Strtran(tcStr, '*!*SomeUniqueString*!*', tcRep)

If you want this behavior, you might try:

lParameters tcStr, tcFind, tcRep
Local lnPos, lcResult, lcRemainder, lnLenFind
lcRemainder = tcStr
lnPos = ATC(tcFind, lcRemainder)
lnLenFind = LEN(tcFind)
lcResult = ''
Do While lnPos > 0
   lcResult = lcResult + LEFT(lcRemainder, lnPos - 1) + tcRep
   lcRemainder = SUBST(lcRemainder,lnPos + lnLenFind)
   lnPos = ATC(tcFind, lcRemainder)
EndDo
RETURN lcResult + lcRemainder

but VBScript.RegExp is far more powerful, and does the same thing by:

oRegExp = CREATEOBJ)'VBScript.RegExp')
oRegExp.Global = .t.
oRegExp.IgnoreCase = .t.
oRegExp.Pattern = tcFind
&& This configures the COM object - the next line does the translation
&& and may be called repeatedly without reinitializing the object.
lcResult = oRegExp.Replace(tcStr,tcRep)

and the regular expression parser supports a wide range of wildcarding, explicit positional scoping and control of string context. You can find details about it at the WSH sites from my sig block.




Return Strtran(tcStr, '*!*SomeUniqueString*!*', tcRep)