正则表达式

弥山之梦 · 发表于 2018-3-12 17:44

1、有个工作簿名称是《2018年3月5号XXXX班表（1）》，下面代码取出了日期
With regex
   .Pattern = "[\d]{1,}[年|月|日|号]"
   .IgnoreCase = True
   .Global = True
   Set matches = .Execute(b)    ‘b=“2018年3月5号XXXX班表（1）”
   frq = .Replace(b, "")
   rq1 = Replace(b, frq, "")
End With

2、工作表里有一列备注，内容是：6号代扣5元，或还款6元，或代扣5，或5号还款6。怎么修改正则表达式，取出金额。
谢谢，刚入正则的坑……

chxw68 · 发表于 2018-3-12 18:57

提供一个提取日期数据的代码供楼主参考。

Sub test()
Dim reg As New RegExp
ss = "2018年3月5号XXXX班表（1）"
With reg
.Pattern = "\d{4}年\d{1,2}月\d{1,2}(?:日|号)"
Set mh = .Execute(ss)
If mh.Count > 0 Then
rq = mh(O)
End If
End With
End Sub

复制代码

chxw68 · 发表于 2018-3-12 19:04

Sub test()
Dim reg As New RegExp
ss = "6号代扣5元，或还款6元，或代扣5，或5号还款6。怎么修改正则表达式，取出金额"
With reg
.Global = True
.Pattern = "[\.\d]+(?!号)"
Set mh = .Execute(ss)
ReDim brr(1 To mh.Count)
For i = 0 To mh.Count - 1
brr(i + 1) = Val(mh(i))
Next
End With
End Sub

复制代码

onlycxb · 发表于 2018-3-12 19:16

Sub Test()
Dim matches As Object
Dim b As String
'取日期
b = "2018年3月5号XXXX班表（1）"
With CreateObject("VBScript.RegExp")
.Pattern = "[\d]{1,}[年|月|日|号]"
.IgnoreCase = True
.Global = True
Set matches = .Execute(b)
frq = .Replace(b, "")
rq1 = Replace(b, frq, "")
Debug.Print rq1
End With
'取金额
b = "工作表里有一列备注，内容是：6号代扣5元，或还款6元，或代扣5，或5号还款6。怎么修改正则表达式，取出金额。"
With CreateObject("VBScript.RegExp")
.Pattern = "[代扣|还款]([\d]{1,})"
.IgnoreCase = True
.Global = True
Set matches = .Execute(b)
For Each a In matches
Debug.Print a.SubMatches(0)
Next a
End With
End Sub

复制代码

活在理想的世界 · 发表于 2018-3-12 19:29

我只给元字符，注意这是分过组的。

[扣款]([.0-9]+)

弥山之梦 · 发表于 2018-3-12 20:27

chxw68 发表于 2018-3-12 19:04

谢谢，明天我传一下附件吧，这些字符串是不同的行，有些行单元格是:还款6元（这样的就比较正规），还有些是:还款6（没有元这个标识），还有些是:有6元（这个没有还款标识）。我写了两个正则表达式，一个是带有“还款，代扣”的正则，一个是带有“元”的，但两个合在一起就不行了

duquancai · 发表于 2018-3-12 20:35

本帖最后由 duquancai 于 2018-3-12 20:41 编辑

根据具体文档具体分析吧！！！

弥山之梦 · 发表于 2018-3-12 20:47

duquancai 发表于 2018-3-12 20:35
Sub test()
Dim reg As Object, mt, aStr$
Set reg = CreateObject("VBScript.Regexp")

抱歉，题目没说清楚，如果只有“元”这个标识呢。（代扣，还款，元这三个标识至少出现一个。我想优先匹配元这个标识，匹配不到的再用代扣，还款匹配。因为有些单元格内容是:有35元代扣13012345678，后面竟然跟个电话号码。）

duquancai · 发表于 2018-3-12 20:47

弥山之梦发表于 2018-3-12 20:27
谢谢，明天我传一下附件吧，这些字符串是不同的行，有些行单元格是:还款6元（这样的就比较正规），还有些 ...

Sub test()
Dim reg As Object, mt, aStr$
Set reg = CreateObject("VBScript.Regexp")
reg.Global = True: reg.Pattern = "(\d+\.\d+)|(?:(?:[^.]|^)(\d+)(?!\.))(?!号)"
aStr = "6号代扣5元，或还款6元，或代扣5，或5号还款6。或5号还款6.5元，6号代扣.5（不合格）,或还款6.（不合格）。"
For Each mt In reg.Execute(aStr)
MsgBox mt.submatches(0) & mt.submatches(1)
Next
End Sub

复制代码

duquancai · 发表于 2018-3-12 20:53

弥山之梦发表于 2018-3-12 20:47
抱歉，题目没说清楚，如果只有“元”这个标识呢。（代扣，还款，元这三个标识至少出现一个。我想优先匹配 ...

你没说清楚的地方，太多太多了！！！！！！！！！！！！！！

		自动登录	找回密码
密码			免费注册

[求助] 正则表达式

评分

评分