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