推荐一份正则表达式介绍资料

wanghaiqn1957 · 发表于 2011-3-15 16:25

推荐一份正则表达式介绍资料

补充内容 (2013-6-21 14:08):
Function zldccmx(Rng As Range, Ms As Integer)
Dim ys(1 To 12): Dim RegEx
ys(1) = "[^A-Za-z0-9]" '只保留字母和数字
ys(2) = "[^!-~]" '去除中文
ys(3) = "[!-~]" '"\w" '留中文
ys(4) = "\d" ' 去掉数字
ys(5) = "[^\d]" ' 留数字
ys(6) = "\D" '去除非数字(留数字)
ys(7) = "[a-zA_Z]" '去除英文大小写字符
ys(8) = "3*a*" '去除所有指定字符，这里指去除3和a
ys(9) = "36*" '去除所有指定字符，这里指去除"36"
ys(10) = "[^3]" '去除所有非特定字符，这里指去除不是3的字符
ys(11) = "[^0-9.]" '只保留数字和小数点
ys(12) = "[^0-9/.+-^\*^]" '保留数字和运算符号+-*/^
Set RegEx = CreateObject("VBSCRIPT.REGEXP") 'RegEx为建立正则表达式
RegEx.Global = True '设置全局可用
RegEx.Pattern = ys(Ms) '样式
zldccmx = RegEx.Replace(Rng, "")
Set RegEx = Nothing
End Function

补充内容 (2013-6-21 14:29):
提取包括首尾、中间的2位数字的正则： "(^|\b|\D)(\d{2})(\D|\b|$)"

yaojil · 发表于 2011-3-15 16:41

谢谢楼主无私分享，好好看看

AVEL · 发表于 2011-3-15 16:44

下载资料好好消化。

xpm130 · 发表于 2011-5-19 14:56

谢谢楼主无私分享.收藏备查呵.

hzhb14796 · 发表于 2011-5-20 18:21

谢谢楼主无私分享.收藏备查呵.

starcong · 发表于 2011-5-20 18:24

感谢楼主.....

lyhabc · 发表于 2011-5-20 23:28

昨天晚上看了，谢谢LZ

ljx63426 · 发表于 2011-5-21 07:34

谢谢LZ！收藏学习

andrewyang · 发表于 2011-7-16 22:03

如获至宝呵呵，学习中

doitbest · 发表于 2011-7-17 18:41

回头还要温习一下，谢谢分享

		自动登录	找回密码
密码			免费注册

[分享] 推荐一份正则表达式介绍资料