'============================== '功能描述： 用正则除去HTML标记 '不能保留等以及用户自定义的 '============================== function nohtml(str) dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="(\<.[^\)&qu ot; str=re.replace(str," ") re.Pattern="(\&

[正则表达式]文本框输入内容控制 ….. 默认分类 2009-02-13 10:10 阅读26 评论0 字号： 大大 中中 小小整数或者小数：^[0-9]+\.{0,1}[0-9]{0,2}$只能输入数字："^[0-9]*$"。只能输入n位的数字："^\d{n}$"。只能输入至少n位的数字："^\d{n,}$"。只能输入m~n位的数字：。"^\d{m,n}$"只能输入零和非零开头的数字："^(0|[1-9][0-9]*)$"。只能输入有两位小数的正实数："^[0-9]+(.[0-9]{2})?

代码如下:‘============================== ‘功能描述： 用正则除去HTML标记 ‘不能保留等以及用户自定义的 ‘============================== Function RemoveHTMLTag(fString)         Dim re         Set re = New RegExp         re.IgnoreCase = True         re.Pattern = “]*)>”         fStr