>Hi All,
>
>Has anyone written a case insensitive STRTRAN() replacement.
>
>NO, I can't just use VFP 7!
>
>BOb
Here's my version of the same function (As usual there are 30 ways to do the same thing!)
This way's nice and simple (but I don't know which is faster)
lParameters tcStr, tcFind, tcRep
Local lnPos
lnPos = ATC(tcFind, tcStr)
Do While lnPos > 0
tcStr = Stuff( tcStr, lnPos, Len(tcFind), "*!*WillsReplace*!*")
lnPos = ATC(tcFind, tcStr)
EndDo
Return StrTran(tcStr, "*!*WillsReplace*!*, tcRep)
HTH
Will Jones