网络编程
位置：首页>> 网络编程>> Asp编程>> asp实现非大小写的替换函数

asp实现非大小写的替换函数

　　发布时间：2010-05-19 21:23:00　

标签：替换,函数,asp

asp替换函数如下：

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

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com