|
Function ReplaceNoIgnoreCase(str,replStr)</P><P>If len(replStr)<1 or str="" Then
ReplaceTest=str
Exit function
End If</P><P>Dim LoopN
LoopN=1</P><P>Dim TmpStr,inStrN,LenreplStr,Ustr,UreplStr
LenreplStr = Len(replStr)
TmpStr = str
Ustr = Ucase(str)
UreplStr = Ucase(replStr)
str=""</P><P>inStrN = inStr(Ustr,UreplStr) </P><P>Do While inStrN>0 and TmpStr<>""
LoopN = LoopN 1
If LoopN>10 Then Exit Function
str=str & Left(TmpStr,inStrN-1)
TmpStr = Mid(TmpStr,inStrN)
UStr = Mid(UStr,inStrN)
str=str & "<font color=ff0000>" & Left(TmpStr,LenreplStr) & "</font>"
TmpStr = Mid(TmpStr,LenreplStr 1)
UStr = Mid(UStr,LenreplStr 1)
inStrN = inStr(Ustr,UreplStr)
If inStrN<1 Then str=str&TmpStr
Loop
ReplaceTest = str</P><P>End Function</P><P>Response.Write "<p>result:"&ReplaceNoIgnoreCase("WenMingdazhou Mingda Electrical Mingda Equipment
Co.mIngda,Ltd ","Mingda")
|
