技术资料 > ASP技术 > ASP技巧 : 不用正则表达式来实现非大小写替换

不用正则表达式来实现非大小写替换

March 25,2004

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("WenMingdazhou Mingda Electrical Mingda Equipment
Co.mIngda,Ltd ","Mingda")