如何使用正则表达式提取数字前的字符？

japhler

如何使用正则表达式提取数字前的字符？比如字符内容为：AI型12*200模具12个，要提取字符“12个”前面的字符“AI型12*200模具”，正则表达式如何表达？

ggmmlol

1. Sub Test1()
   
2.     s = "AI型12*200模具12个"
   
3.     With CreateObject("VBScript.RegExp")
   
4.         .Pattern = "\d+个[\d\D]*"
   
5.         ret = .Replace(s, "")
   
6.     End With
   
7.     MsgBox ret
   
8. End Sub
   
9. Sub Test2()
   
10.     s = "AI型12*200模具12个"
    
11.     With CreateObject("VBScript.RegExp")
    
12.         .Pattern = "[\d\D]*?\D(?=\d+个)"
    
13.         If .test(s) Then ret = .Execute(s)(0).Value
    
14.     End With
    
15.     MsgBox ret
    
16. End Sub

复制代码

opiona

P="[0-9]个"
先提取: 12个
在替换掉

japhler

ggmmlol 发表于 2020-12-26 18:58

谢谢！我还想问一个，为什么要加一个If .test(s) ，是什么意思？

cjc209

If .test(s) 是检测 匹配成功没有

japhler

cjc209 发表于 2020-12-26 19:31
If .test(s) 是检测 匹配成功没有

好的，谢谢！