当前位置:主页 > 软件编程 > ASP代码 >

ReplaceTrim 函数之asp实现过滤掉字符中所有的tab和回车和换行的代码

时间:2021-03-03 10:09:31 | 栏目:ASP代码 | 点击:

'================================================
'函数名:ReplaceTrim
'作  用:过滤掉字符中所有的tab和回车和换行
'================================================
    Public Function ReplaceTrim(ByVal strContent)
        On Error Resume Next
        Dim re
        Set re = New RegExp
        re.IgnoreCase = True
        re.Global = True
        re.Pattern = "(" & Chr(8) & "|" & Chr(9) & "|" & Chr(10) & "|" & Chr(13) & ")"
        strContent = re.Replace(strContent, vbNullString)
        Set re = Nothing
        ReplaceTrim = strContent
        Exit Function
    End Function

您可能感兴趣的文章:

相关文章