几个正则表达式的实例，看了你就多一份明白!

zldccmx · 发表于 2009-5-21 20:18

老朽做成了自定义函数，里面有说明，看看就明白了。

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

复制代码

以下是实例：

正规表达式应用.rar (10.34 KB, 下载次数: 1553)

[ 本帖最后由 zldccmx 于 2009-7-5 08:24 编辑 ]

tonyibm · 发表于 2009-6-3 22:43

原帖由 zldccmx 于 2009-5-21 20:18 发表
老朽做成了自定义函数，里面有说明，看看就明白了。
Function zldccmx(Rng As Range, Ms As Integer)
Dim ys(1 To 12): Dim RegEx
ys(1) = "[^A-Za-z0-9]" '只保留字母和数字
ys(2) = "[^!-~]" ...

这个不错，

wsri · 发表于 2009-6-3 23:23

学习了！应该不错

YZLSZAJ · 发表于 2009-7-5 01:51

学习了！真的不错

LAOMALIN · 发表于 2009-7-5 09:11

好的实例胜读一本书,谢谢楼主分享

ljx63426 · 发表于 2009-7-6 07:57

学习了！真的不错

赵国辉 · 发表于 2009-7-6 08:26

ys(2) = "[^!-~]" '去除中文
这个刚看见，以前都是笨蛋方法，汗！

zjx10 · 发表于 2009-9-14 13:07

很有意思，一定要收藏~！

mingg · 发表于 2009-9-14 13:30

谢谢分享！！！

刘志文 · 发表于 2009-9-14 14:28

谢谢老朽老师提供分享，学习了！

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

[分享] 几个正则表达式的实例，看了你就多一份明白!

评分