StrReplace

Hoofdletter ongevoelige versie van Ereplace.

FUNCTION StrReplace(SourceString, FindString, ReplaceString)

;* Case insensitive version of Ereplace

UpperSourceString = Iconv(SourceString,"MCU")

UpperFindString = Iconv(FindString,"MCU")

ResultString = SourceString

UpperNewString = Ereplace(UpperSourceString,UpperFindString,ReplaceString)

For I = 1 to Len(ResultString) 

  If Iconv(ResultString[I,1],"MCU") <>Iconv(UpperNewString[I,1],"MCU")   

    Then ResultString[I,1] = UpperNewString[I,1]

Next I

Ans = ResultString