'函数名: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
【说明】:本文章由站长整理发布,文章内容不代表本站观点,如文中有侵权行为,请与本站客服联系(QQ:)!