正则获取横杠前的一个数字

高度保密

用正则获取横杠前只有一位数的数字，附件有模拟结果和说明，麻烦哪位老师给个匹配的正则表达式。谢谢！ 正则获取只有一个数字的字段.rar (4.49 KB, 下载次数: 9)

2020-1-13 19:07 上传

点击文件名下载附件

小花鹿

"^(\d[-_]){1,}                                                                                                   

小花鹿

Sub test()
    Dim reg, i&, s
    Set reg = CreateObject("vbscript.regexp")
    reg.Pattern = "^(\d[-_]){1,}"
    For i = 2 To 7
        s = Cells(i, 1)
        MsgBox reg.Execute(s)(0)
    Next i
End Sub

高度保密

小花鹿 发表于 2020-1-13 19:26
Sub test()
    Dim reg, i&, s
    Set reg = CreateObject("vbscript.regexp")

谢谢老师！结果中能不能不跟随后面的横杠？

ggmmlol

正则替换方法
查找内容：^(.*?\D)?(\d)[-_]|[\d\D]+
替换为：$1$2

高度保密

ggmmlol 发表于 2020-1-13 20:24
正则替换方法
查找内容：^(.*?\D)?(\d)[-_]|[\d\D]+
替换为：$1$2

不好意思，正则还没入门，光看您的方法就头晕