如何实现非大小写的替换?
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 inStrN<1 Then str=str&TmpStr Loop ReplaceTest = str
End Function
Response.Write "<p>result:"&ReplaceNoIgnoreCase("Flying Happy in the Sun ") |
请发表评论