正则表达式实例分享( 更新....)

jiminyanyan

Sub 例8()
    Dim reg As Object
    Set reg = CreateObject("vbscript.regexp")
     Dim sr, x
     Sheet8.Activate
  For x = 2 To Range("a65536").End(xlUp).Row
     sr = Cells(x, 1)
     k = 2
     With reg
      .Global = True
      .IgnoreCase = True
      .Pattern = "客户(.*)(?=诚意金)"
      For Each Item In .Execute(sr)
       Cells(x, k) = Item.submatches(0)
      Next
     End With
    Next x
    Sheet8.Activate
End Sub

jiminyanyan

Sub 例9()
    Dim reg As Object
    Set reg = CreateObject("vbscript.regexp")
     Dim sr, x
     Sheet9.Activate
  For x = 1 To Range("a65536").End(xlUp).Row
     sr = Cells(x, 1)
     k = 2
     With reg
      .Global = True
      .IgnoreCase = True
      .Pattern = "([^—]+)([—]+)([^—]+)"
      sr = .Replace(Cells(x, 1), "$3" & "$2" & "$1")
      Cells(x, 2) = sr
     End With
    Next x
    Sheet9.Activate
End Sub

LMY123

谢谢楼主的分享

ammyc

标记学习，天天进步。

jiminyanyan

.............

knightcamb

多谢分享，正好用得着，学习了基本概念，正在找实例学习实践中

jiminyanyan

正则还是比较有用的。。。

elepeipei

谢谢楼主分享

向東

写了一个手机号码的正则：
(?=[0-9])\b(13|14|15|17|18|19)[0-9]\s\d{4}\s\d{4}(?![0-9])

有个问题想请教一下：
比如这段文字里有：131 2542 5668 132 2542 2589 133 5804 6858等。
或者有：手机号134 2542 5668、电话号码010-88204512
或者：135 5845 5645
都能匹配到想要的手机号，没问题；

如果有：手机号1136 2542 5668
或者有：手机号137 2542 56688、电话号码010-88204512
对于上面错误的手机号是不匹配的，也没问题。

但是，出现个问题：
比如：手机号Mobile Phone152 2542 5668
就会有问题，上面的手机号并没错，但是匹配不到。
不知道上面的表达式如何改动？

向東

jiminyanyan 发表于 2017-6-19 21:32
例7：获取第4空格与第5空格之间的内容

到底是(?:  ) 还是(?=  )
这两个写法有什么不同，
好像(?:  ) 是JavaScript里用。