如何用正式表达式求出五位连续数字

opel-wong

一个无固定的字符串，其中有一个五位连续的数字，如何用正则表达式，求出这一组数字，
效果如下图：
"38802项目 Aelcro测试+横梁治具，结果：38802
21035项目 组装治具模（测试专用皮5.8)，结果：21035
B-LLC-16174-T-002，结果：16174
C-K030-13005-W-005，结果：13005
16592项目 16592 上/下盖喷涂模治具，结果：16592

在字符中的位置不固定，但一定是连续的5位数字，否则返回0，

麻烦写成自定义函数，可以直接调用，如：

Function 提取数字(mStr as string) as string

tspliu

.Pattern ="\d{5}"

kevinchengcw

\d{5}(?=\D|$)

ggmmlol

不用正则也很简单。

提取A2单元格中的第一个5位整数：
=-LOOKUP(-9999,-LEFT(RIGHT(A2,ROW($1:$99)),5))

提取A2单元格中的最后一个5位整数：
=-LOOKUP(-9999,-TEXT(MID(A2,ROW($1:$99),5),"[>9999]0;"))

opel-wong

kevinchengcw 发表于 2019-12-9 11:46
\d{5}(?=\D|$)

没玩过正则，是这样吗？
Public Function 提取数字(ByVal mStr As String) As String
    With CreateObject("vbscript.regexp")
        .Global = True
        .Pattern = "\d{5}(?=\D|$)"
        提取数字 = Left(mStr, 5)
    End With
End Function

怎么样判断一下，如果字符串中存在连续的5位数字，则函数提取，否则返回空值。
谢谢！

ggmmlol

opel-wong 发表于 2019-12-9 11:52
没玩过正则，是这样吗？
Public Function 提取数字(ByVal mStr As String) As String
    With CreateO ...

你这个函数，提取的就是源字符的前5位字符，它实际上和正则没有半毛钱关系啊

ggmmlol

1. Public Function 提取数字(ByVal mStr As String) As Long
   
2.     With CreateObject("vbscript.regexp")
   
3.         .Global = True
   
4.         .Pattern = "^.*?(\d{5})|.+"
   
5.         提取数字 = Val(.Replace(mStr, "$1"))
   
6.     End With
   
7. End Function

复制代码

kevinchengcw

这样

1. Public Function 提取数字(ByVal mStr As String) As String
   
2.     With CreateObject("vbscript.regexp")
   
3.         .Global = True
   
4.         .Pattern = "\d{5}(?=\D|$)"
   
5.         if .test(mStr) then
   
6.             提取数字 = .execute(mStr)(0).value
   
7.         else
   
8.             提取数字 = ""
   
9.         end if
   
10.     End With
    
11. End Function

复制代码

opel-wong

ggmmlol 发表于 2019-12-9 12:04
你这个函数，提取的就是源字符的前5位字符，它实际上和正则没有半毛钱关系啊

不一定是前5位，是字符串中连续的5位数字。
因为要在VBA中判断取数，所以，不能用公式，得有自定义函数。
我想要的是正则方便点，应该说，数组循环应该也可以。

tspliu

Public Function tqsz(ByVal mStr As Range) As String
Set reg = CreateObject("vbscript.regexp")
reg.Pattern = "\d{5}"
Set mc = reg.Execute(mStr.Value)
For Each x In mc
    tqsz = x
Next
End Function