- 时间：2022-09-29 08:42 编辑： 来源： 阅读：
- 扫一扫，手机访问
摘要：如何实现非大小写的替换？
[h2]如何实现非大小写的替换？
[/h2]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 ")
机械节能产品生产企业官网模板...
大气智能家居家具装修装饰类企业通用网站模板...
礼品公司网站模板
宽屏简约大气婚纱摄影影楼模板...
蓝白WAP手机综合医院类整站源码（独立后台）...
