请教一个简单的正则表达式

语虚何以言知

百分比应该也是你要的吧

wj2368

transnote 发表于 2020-5-31 22:59
然后还要用right截取啊？能不能直接提取数字

1. Sub match()
   
2.     Set reg = CreateObject("vbscript.regexp")
   
3.   s = "<=不能用的话，那么S=”数量2  单价5 税率13% 数量5  数量15”"
   
4.     With reg
   
5.         .Global = True
   
6.         .Pattern = "数量(\d+)"
   
7.         Set matches = .Execute(s)
   
8.     End With
   
9.     For j = 0 To matches.Count - 1
   
10.     MsgBox matches(j).SubMatches(0)
    
11.     Next
    
12. End Sub
    

复制代码

duquancai

jimyou 发表于 2020-6-3 10:32
用你的代码 复制 到sublime_text
[Finished in 0.2s]   --没有结果

我代码都写出来了，不过是python语言的，我为啥要复制到sublime_text呢？

jimyou

duquancai 发表于 2020-6-3 13:15
我代码都写出来了，不过是python语言的，我为啥要复制到sublime_text呢？

我的意思是在这里再把代码复制回你的 python环境，能不能执行?

我知道论坛的编辑器有些VBA代码会改变字符的，别人复制过去就不能执行