您现在的位置是：网站首页> 编程资料编程资料
如何实现非大小写的替换？_编程10000问_
2023-05-25
191人已围观
简介 如何实现非大小写的替换？_编程10000问_
如何实现非大小写的替换？
Function ReplaceNoIgnoreCase(str,replStr) result:"&ReplaceNoIgnoreCase("Flying Happy in the Sun ")
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 & "" & Left(TmpStr,LenreplStr) & ""
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 "
