如何实现非大小写的替换？
Function ReplaceNoIgnoreCase(str,replStr)
nbsp; nbsp; nbsp; If len(replStr)lt;1 or str="" Then
nbsp; nbsp; nbsp; nbsp; nbsp; nbsp; ReplaceTest=str
nbsp; nbsp; nbsp; nbsp; nbsp; nbsp; Exit function
nbsp; nbsp; nbsp; End If
nbsp; nbsp; nbsp; Dim LoopN
nbsp; nbsp; nbsp; LoopN=1
nbsp; nbsp; nbsp; Dim TmpStr,inStrN,LenreplStr,Ustr,UreplStr
nbsp; nbsp; nbsp; LenreplStr = Len(replStr)
nbsp; nbsp; nbsp; TmpStr = str
nbsp; nbsp; nbsp; Ustr = Ucase(str)
nbsp; nbsp; nbsp; UreplStr = Ucase(replStr)
nbsp; nbsp; nbsp; str=""
nbsp; nbsp; nbsp; inStrN = inStr(Ustr,UreplStr)nbsp; nbsp; nbsp;
nbsp; nbsp; nbsp; Do While inStrNgt;0 and TmpStrlt;gt;""
nbsp; nbsp; nbsp; nbsp; nbsp; nbsp; LoopN = LoopN+1
nbsp; nbsp; nbsp; nbsp; nbsp; nbsp; If LoopNgt;10 Then Exit Function
nbsp; nbsp; nbsp; nbsp; nbsp; nbsp; str=str Left(TmpStr,inStrN-1)
nbsp; nbsp; nbsp; nbsp; nbsp; nbsp; TmpStr = Mid(TmpStr,inStrN)
nbsp; nbsp; nbsp; nbsp; nbsp; nbsp; UStr = Mid(UStr,inStrN)
nbsp; nbsp; nbsp; nbsp; nbsp; nbsp; str=str "lt;font color=ff0000gt;" Left(TmpStr,LenreplStr) "lt;/fontgt;"
nbsp; nbsp; nbsp; nbsp; nbsp; nbsp; TmpStr = Mid(TmpStr,LenreplStr+1)
nbsp; nbsp; nbsp; nbsp; nbsp; nbsp; UStr = Mid(UStr,LenreplStr+1)
nbsp; nbsp; nbsp; nbsp; nbsp; nbsp; inStrN = inStr(Ustr,UreplStr)
nbsp; nbsp; nbsp; nbsp; nbsp; nbsp; If inStrNlt;1 Then str=strTmpStr
nbsp; nbsp; nbsp; Loop
nbsp; nbsp; nbsp; ReplaceTest = str
End Function
Response.Write "lt;pgt;result:"ReplaceNoIgnoreCase("Flying Happy in the Sun ") （编辑：我爱制作网_池州站长网）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
