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

''================================================ ''函数名:ReplaceTrim ''作用:过滤掉字符中所有的tab和回车和换行 ''================================================ PublicFunctionReplaceTrim(ByValstrContent) OnErrorResumeNext Dimre Setre=NewRegExp &

作者: 来源: 时间: 17-11-23 15:39:59

''================================================
''函数名: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
11
22
33
隐藏区块

会员注册

本功能为预留功能,暂不支持注册 ^_^

Login

社交帐号登陆

使用以下任意帐号可登陆本站

Close section
Close

联系我们

关于5UCMS 您有任何需求 均可以留言给我们