ASP 自动检测 & 去掉字符串全部前后空白
作者:admin 日期:2025-12-09
Function TrimAllEx(str)
Dim reg : Set reg = New RegExp
' 正则包含：
' \s 普通空白（空格 / Tab / 换行等）
' 全角空格
' \xA0 HTML NBSP (Chr(160))
' \xFEFF BOM 空白 (Excel/UTF-8 常出现)
' \x2000-\x200A Unicode 隐形空白
reg.Pattern = "^[\s\u3000\xA0\xFEFF\u2000-\u200A]+|[\s\u3000\xA0\xFEFF\u2000-\u200A]+$"
reg.Global = True
reg.IgnoreCase = True
TrimAllEx = reg.Replace(str, "")
End Function
'使用方法：
name = " 广西xxxxx场有限公司 "
cleanName = TrimAllEx(name)
Response.Write "[" & cleanName & "]"
Dim reg : Set reg = New RegExp
' 正则包含：
' \s 普通空白（空格 / Tab / 换行等）
' 全角空格
' \xA0 HTML NBSP (Chr(160))
' \xFEFF BOM 空白 (Excel/UTF-8 常出现)
' \x2000-\x200A Unicode 隐形空白
reg.Pattern = "^[\s\u3000\xA0\xFEFF\u2000-\u200A]+|[\s\u3000\xA0\xFEFF\u2000-\u200A]+$"
reg.Global = True
reg.IgnoreCase = True
TrimAllEx = reg.Replace(str, "")
End Function
'使用方法：
name = " 广西xxxxx场有限公司 "
cleanName = TrimAllEx(name)
Response.Write "[" & cleanName & "]"
上一篇: 
下一篇: 这是最新的一篇日志
文章来自: 
引用通告: 
Tags: 
相关日志:
评论: 0 | 引用: 0 | 查看次数: -
发表评论