'================================================

'函数名：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