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

2018-09-06 12:41

阅读:401

  ================================================
函数名:ReplaceTrim
作用:过滤掉字符中所有的tab和回车和换行
================================================
PublicFunctionReplaceTrim(ByValstrContent)
OnErrorResumeNext
Dimre
Setre=NewRegExp
re.IgnoreCase=True
re.Global=True
re.Pattern=(&Chr(8)&&Chr(9)&&Chr(10)&&Chr(13)&)
strContent=re.Replace(strContent,vbNullString)
Setre=Nothing
ReplaceTrim=strContent
ExitFunction
EndFunction


评论


亲,登录后才可以留言!