正则表达式学习总结1

cumulonimbus

wpxxsyzx 发表于 2012-8-19 09:33
这只是例子，熟悉{}的用法，改为"\b\d{3,4}-\d{7,8}\b"试试。你看看贪婪匹配、惰性匹配、匹配边界的相关 ...

老师，你的课还没有讲完呀，留下这么多缺陷，给运用此法则的人会带来不少麻烦。强烈建议老师再接下去开堂讲课。

wpxxsyzx

win2009 发表于 2012-8-19 21:07
Sub 宏2()
    Selection.Replace What:="(", Replacement:=""
    Selection.Replace What:=")", Replac ...

这只是例子。
Replace无法把错误的区号或电话号码排除

tclnxc

谢谢分享！老师能否指点一下多个条件的情况下，“Pattern =。。。”后条件该如何表示呢？如想同时清除多种形式的空字符："[ ]"，ChrW(160)，ChrW(9)，ChrW(10)，这几种形式的字符如果想同时清除的话，代码要如何写呢？期待解答，先谢谢了！

hemd

好好学习，感觉比较复杂，与VBA的查找与替换差不多吧，不知道程序在执行时的效率如何，在飞信中看到过，不直不明白。

@。@

通过你这个我学习了，并且做了个程序，规范日期的，在此分享到你这里，希望有人能看到。
'该程序是把不规范的日期格式规范化
Sub DataGuifan()
Dim tRan As Range
Dim i As Integer
Application.ScreenUpdating = False
For Each tRan In ActiveSheet.UsedRange
With CreateObject("VBSCRIPT.REGEXP")
    .Global = True
.Pattern = "(\d{2,4})\.(\d{1,2})\.(\d{1,2})"
'匹配前面2,4个数字，匹配后面1,2个数字，匹配后面1,2个数字
tRan = .Replace(tRan, "$1/$2/$3")
End With
Next
Application.ScreenUpdating = True
End Sub

@。@

@。@ 发表于 2012-11-7 16:29
通过你这个我学习了，并且做了个程序，规范日期的，在此分享到你这里，希望有人能看到。
'该程序是把不规范 ...

其实对于数字占位困扰了我好久，楼主的帖子学习了，我的问题也解决了，回馈下楼主！

qdzhxg

看来真有必要好好学学正则了

zez

有必要好好学学，谢谢楼主！

Tomchenxun

先留名，慢慢学

bible20139

感谢分享~~~~~