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

zldccmx

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

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

复制代码

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

2009-5-21 20:18 上传

点击文件名下载附件

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

tonyibm

原帖由 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

学习了！应该不错

YZLSZAJ

学习了！真的不错

LAOMALIN

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

ljx63426

学习了！真的不错

赵国辉

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

zjx10

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

mingg

谢谢分享！！！

刘志文

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