正则表达式学习总结1

`·./╱诗镱

这边分享看了之后对正则表达式理解更容易点

win2009

Private Sub CommandButton1_Click()
Dim regEX As New RegExp '定义一个正则表达式对象
regEX.Pattern = "\((\d{3,4})\)(\d{7,8})" '设置正则表达式
For i = 1 To 7
    Range("c" & i) = regEX.Replace(Range("a" & i), "$1-$2")
    '用$1-$2，替换 Range("a" & i)
Next
End Sub
Private Sub CommandButton2_Click()
    Dim regEX As New RegExp
    regEX.Global = True    '设置查找返回全部匹配
    regEX.IgnoreCase = False    '设置查找不区分大小写
    regEX.Pattern = "[^书]"
    Range("a12") = regEX.Replace("这有一本关于VBA的书,它在第二个书柜里", "")
    '""，替换 除“书”以外的字符串
End Sub

jhljl

讲得不错，受益了。

ysq227

期待来个例子呀

cumulonimbus

在你的例24中，代码是这样的
regEX.Pattern = "\d{3,4}-\d{7,8}"
Range("e19:e24").ClearContents
For i = 19 To 24
    If regEX.Test(Range("d" & i)) = True Then
        Range("e" & i) = "正确"
    End If
Next
也就是说“-”这之前是3到4个数字才是匹配的。可是为什么得出的结果是这样的：
020-12345678        正确
02-1234567        
010-123456        
0371-12345678        正确
03921-1234567        正确
0393-12345        
倒数第二个明显不符合匹配结果，“-”之前是5个数字，显然不是3-4个。

lightling5241

期待后期讲解 "$1-$2" 初步估计$1,$2分别代表两个括号中的内容

引子玄

马上就要进入这个知识的学习阶段了，该学的DD——假如你要学网抓的话。

win2009

Sub 宏2()
    Selection.Replace What:="(", Replacement:=""
    Selection.Replace What:=")", Replacement:="-"
End Sub

cumulonimbus

在你的例24中，代码是这样的
regEX.Pattern = "\d{3,4}-\d{7,8}"
Range("e19:e24").ClearContents
For i = 19 To 24
    If regEX.Test(Range("d" & i)) = True Then
        Range("e" & i) = "正确"
    End If
Next
也就是说“-”这之前是3到4个数字才是匹配的。可是为什么得出的结果是这样的：
020-12345678        正确
02-1234567        
010-123456        
0371-12345678        正确
03921-1234567        正确
0393-12345        
倒数第二个明显不符合匹配结果，“-”之前是5个数字，显然不是3-4个。



  

wpxxsyzx

cumulonimbus 发表于 2012-8-18 23:51
在你的例24中，代码是这样的
regEX.Pattern = "\d{3,4}-\d{7,8}"
Range("e19:e24").ClearContents

这只是例子，熟悉{}的用法，改为"\b\d{3,4}-\d{7,8}\b"试试。你看看贪婪匹配、惰性匹配、匹配边界的相关内容。