ReplaceTrim 函數之asp實現過濾掉字符中所有的tab和回車和換行的代

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

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

您可能感興趣的文章: