脚本宝典收集整理的这篇文章主要介绍了如何实现非大小写的替换？，脚本宝典觉得挺不错的，现在分享给大家，也给大家做个参考。

如何实现非大小写的替换？

Function ReplaceNoIgnoreCase(str,replStr)

&nbsp;     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 &amp; 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 ")

脚本宝典总结

以上是脚本宝典为你收集整理的如何实现非大小写的替换？全部内容，希望文章能够帮你解决如何实现非大小写的替换？所遇到的问题。

如果觉得脚本宝典网站内容还不错，欢迎将脚本宝典推荐好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。