移除HTML标签的正则表达式

' 模块名: RemoveHTML 
' 功 能 : 移除HTML标签 
' 输入值: HTML代码 
' 返回值: 字符串 
Function RemoveHTML(ByVal strHTML) 
Dim objRegExp, Match, Matches 
set objRegExp = New RegExp 
Dim str: str = strHTML 
objRegExp.IgnoreCase = True 
objRegExp.Global = True 
objRegExp.Pattern = "<.+?>" 
str = objRegExp.Replace(str, "") 
Set objRegExp = Nothing 
RemoveHTML = str 
End Function 

匹配价格的正则表达式
d{1,10}(.d{1,2})?$这样子就能限定整数为10位数字，小数为2位数字

js 验证 常用正则表达式集锦
script/**************************************************************************************************/Validator={Require:/.+/,Email:/^w+([-+.]w+)*@w+([-.]w+)*.w+([-.]w+)*$/,Phone:/^(((d{2

windows与linux 路径正则写法
varwinpath=/^[a-zA-Z];[\/]((?!)(?![^\/]*s+[\/])[w-]+[\/])*(?!)(?![^.]+s+.)[w-]+$/;varlnxPath=/^([/][w-]+)*$/;