如何實現(xiàn)非大小寫的替換？
Function ReplaceNoIgnoreCase(str,replStr)
If len(replStr)1 or str="" Then
ReplaceTest=str
Exit function
End If
Dim LoopN
LoopN=1
Dim TmpStr,inStrN,LenreplStr,Ustr,UreplStr
LenreplStr = Len(replStr)
TmpStr = str
Ustr = Ucase(str)
UreplStr = Ucase(replStr)
str=""
inStrN = inStr(Ustr,UreplStr)
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 inStrN1 Then str=strTmpStr
Loop
ReplaceTest = str
End Function
Response.Write "p>result:"ReplaceNoIgnoreCase("Flying Happy in the Sun ")
