用正则取得特定字符后的数值

lcluck2002

照着书上用正则取数，取得字符串中 “货款"或"收款"后面的数值，结果貌似是正确的，但总感觉代码太啰嗦，有点像网上视频讲的“屎山”，请求老师们指正，指点一下迷津，非常感谢！

shiruiqiang

个人：reg.Pattern = "(货款|收款)(\d+)"

sdytsxd991122

不用选择 | 也可以吧 ，非捕获 (?:款)(\d+\.?\d*)

lcluck2002

shiruiqiang 发表于 2023-10-28 15:20
个人：reg.Pattern = "(货款|收款)(\d+)"

非常感谢，因为预计数值时面可能会有小数出现，所以后面的那部分还是需要加上。

lcluck2002

sdytsxd991122 发表于 2023-10-28 15:27
不用选择 | 也可以吧 ，非捕获 (?:款)(\d+\.?\d*)

因为可能会有货款，收款，打款，欠款，回款等不同字眼，不知道是否可以这样：
(?:[货|收]款)(\d+\.?\d*)

cidanji

中括号里不需要用 |
(?:[货收]款)(\d+\.?\d*)

DevilW

[货回欠打收]款(\d+(\.\d+)?)

caiyu93

一次性分组,由于VBA的Matches不支持直接ToArray.所以就会需要额外的foreach遍历把数据重新赋给数组,比较麻烦

如果你要简化的话,按照你之前的代码是每行匹配一次,如果有1000行就需要匹配1000次,我这种,你可以参考一下

汉唐

感觉不用正则，也很方便的达到楼主的要求呀。代码如下：
Sub test1()
Dim i As Long, j As Long, r As Long, n As Long, x As Long
Dim arr, s
arr = Sheet1.Cells(1, 1).CurrentRegion
For i = 2 To UBound(arr)
n = 1
s = 0
Do
x = InStr(n, arr(i, 1), "款")
If x > 0 Then
s = s + Val(Mid(arr(i, 1), x + 1))
n = x + 1
End If
Loop Until x = 0
arr(i, 2) = s
Next 'i
Sheet1.Cells(1, 1).Resize(UBound(arr), 2) = arr
End Sub

XIAOC.

(?=款).(\d+\.?\d+)