正则表达式提取连续数字的疑问

LIUZHU

我有一段代码如下，目的是提取一段文字中的数字，现在我想提取的结果是“123”，现有代码只能提取单独的“1”，“2”，“3”，请教下，除了通过循环连接数字的方式，通过直接修改正则表达式的代码，可以实现提取字符“123”吗？

1. Private Sub CommandButton1_Click()
   
2.     Dim regEx As New RegExp
   
3.     Dim iMatch As MatchCollection
   
4.    
   
5.     With regEx
   
6.         .Global = True
   
7.         .IgnoreCase = False
   
8.         .MultiLine = False
   
9.         .Pattern = "\d+"
   
10.     End With
    
11.     Set iMatch = regEx.Execute("我公司名称是1地址是2联系电话是3")
    
12.     Debug.Print iMatch(0)
    
13. End Sub

复制代码

小花鹿

\D+
连起来有什么意义呢

zhangzhang21

1. Public Sub regex()
   
2.     Dim regex As Object, str As String
   
3.     Set regex = CreateObject("vbscript.regexp")
   
4.     With regex
   
5.         .Global = True
   
6.         .Pattern = "[^\d+]"
   
7.         str = .Replace("我公司名称是1地址是2联系电话是3", "")
   
8.     End With
   
9.     Debug.Print str
   
10. End Sub

复制代码

非数字的去掉不就行了

LIUZHU

zhangzhang21 发表于 2017-12-7 10:26
非数字的去掉不就行了

感谢3楼，好久不用正则表达式，取反集的表达式都快忘记了。

02761752696

不懂正则     努力学习

秋枫

用\d+的话，可以用matches集合，matches(0)就是第一个。matches(1)第就是第二个......