ReplaceTrim_函数之asp实现过滤掉字符中所有的tab和回车和换行的代码
来源:
中文源码网 浏览:228 次 日期:2024-04-27 06:45:42
【下载文档: ReplaceTrim_函数之asp实现过滤掉字符中所有的tab和回车和换行的代码.txt 】
ReplaceTrim 函数之asp实现过滤掉字符中所有的tab和回车和换行的代码
'================================================ '函数名: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