正则提取AB到|之间的数字

hefuqing · 发表于 2018-8-25 16:07

jnsxmt 发表于 2018-8-25 15:58

"AB(\d+)" 这个包括了AB 我不要AB 只提取AB后的数字

mikezhan · 发表于 2018-8-25 16:23

提示: 作者被禁止或删除内容自动屏蔽

02761752696 · 发表于 2018-8-25 17:30

学习厉害

jiminyanyan · 发表于 2018-8-25 20:54

mikezhan 发表于 2018-8-25 16:23
"\d+(?=\|)" 按楼主的要求，用“零宽先行断言”

前面还有个AB，VBA中的正则没办法支持“反向预查”

mikezhan · 发表于 2018-8-25 21:11

提示: 作者被禁止或删除内容自动屏蔽

ggmmlol · 发表于 2018-8-26 00:19

Sub test()
With CreateObject("vbscript.regexp")
      .Global = True
      .Pattern = "^.*?AB|\|.+"
   For m = 1 To Cells(Rows.Count, "a").End(xlUp).Row
         Cells(m, "b") = reg.Replace(Cells(m, "a"), "")
   Next
End With
End Sub

jsqb · 发表于 2018-8-26 06:20

mikezhan 发表于 2018-8-25 21:11
请你先试验一下，再发言，好吗？

还是个大侠。。。。。。

不要用这种口气取笑人

ggmmlol · 发表于 2018-8-26 07:48

mikezhan 发表于 2018-8-25 21:11
请你先试验一下，再发言，好吗？

还是个大侠。。。。。。

你的正则表达式有问题，别人指出来了，你自己真的不多加一点思考？

Chip_Kenny · 发表于 2018-8-26 09:37

VBA的正则不支持逆环视(?<=...)语法
改用 Submatches 或其他方法吧

Sub zz()
With CreateObject("vbscript.regexp")
.Pattern = "[A-Z]+(\d+)"
For Each k In Array("颜色:000黑色AB000|尺码:UN","颜色:000蓝色AB607|尺码:L","颜色:蓝色AB645|尺码:000")
If .test(k) Then
Debug.Print .Execute(k)(0).submatches(0)
End If
Next
End With
End Sub

复制代码

kankan1030 · 发表于 2018-8-26 12:46

Sub 拆分()
arr = Range("a1:a" & [a1048576].End(3).Row)
Set s = CreateObject("vbscript.regexp")
With s
.Global = ture
.Pattern = ".*AB(\d+)\|.*"
For i = 1 To UBound(arr)
Range("b:b").NumberFormatLocal = "@"
Cells(i, 2) = .Replace(arr(i, 1), "$1")
Next
End With
End Sub

复制代码

可用replace法

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

mikezhan mikezhan 当前离线性别保密 UID 736941 阅读权限 0 注册时间 2009-3-7 在线时间小时最后登录 1970-1-1 积分 975 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-8-25 16:23 \| 显示全部楼层 [广告] ★ ReportLite:表哥表姐早下班神器，专治各种报表不服，拒绝无意义的重复劳动 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

mikezhan mikezhan 当前离线性别保密 UID 736941 阅读权限 0 注册时间 2009-3-7 在线时间小时最后登录 1970-1-1 积分 975 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-8-25 21:11 \| 显示全部楼层 [广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

[求助] 正则提取AB到|之间的数字