正则表达式菜鸟问题

sxfxtf

比如内容
1
2
3
22
305
hgdf6
fd06hg

用正则表达怎么匹配出上面的1  2  3  22   305，忽略掉文字内的数字。我看的脑子浆糊了。
我用[0-9]+  但是文字里面数字会被匹配出来。

jiangxiaoyun

在单元格内用函数可以了，isnumeric

sxfxtf

jiangxiaoyun 发表于 2018-3-6 16:05
在单元格内用函数可以了，isnumeric

我是在理解正则表达式的内容

lss001

.pattern="^\d+$"
或
.pattern="^[0-9]+$"

Chip_Kenny

1. Sub zz()
   
2. s = Array(1, 2, 3, 22, 305, "hgdf6", "fd06hg")
   
3. With CreateObject("vbscript.regexp")
   
4.     .Pattern = "\b\d+\b"
   
5.     For i = 0 To UBound(s)
   
6.         If .test(s(i)) Then Debug.Print .Execute(s(i))(0)
   
7.     Next
   
8. End With
   
9. End Sub

复制代码

sxfxtf

lss001 发表于 2018-3-6 16:35
.pattern="^\d+$"
或
.pattern="^[0-9]+$"

我看懂了表达式，以0到9开头，并以0到9结尾，但是我用在线正则工具测试下没有数据识别出啊

sxfxtf

Chip_Kenny 发表于 2018-3-6 16:44

谢谢，你的亲测有效。非常感谢，有个疑问为何最后还要\b？  \b\d+已经可以识别出边界前的数字了。

Chip_Kenny

看看不加是如何
Sub zz()

1. s = Array(1, 2, 3, 22, 305, "hgdf6", "fd06hg", "123xx")
   
2. With CreateObject("vbscript.regexp")
   
3.     .Pattern = "\b\d+"
   
4.     For i = 0 To UBound(s)
   
5.         If .test(s(i)) Then Debug.Print .Execute(s(i))(0)
   
6.     Next
   
7. End With
   
8. End Sub

复制代码

lss001

以上表达式excel中没问题，
没有识别数据应检查一下其它原因

sxfxtf

Chip_Kenny 发表于 2018-3-6 17:25
看看不加是如何
Sub zz()

明白了,非常感谢.