求助一个正则表达式

titi012

刚开始学的正则表达式，做了一个自定义的小函数，想通过正则来达到要求的效果。
但要用到的表达式想到了一个，第二个不会了，所以求助各位大神，谢谢！

更新附件，及图片。

1. Function Reg(xStr, Pat) As String
   
2.     Dim Re As Object, S
   
3.     Reg = ""
   
4.     Set Re = CreateObject("VBScript.RegExp")
   
5.     With Re
   
6.         .Global = False
   
7.         .Pattern = Pat
   
8.         Set S = .Execute(xStr)
   
9.     End With
   
10.     If S.Count > 0 Then Reg = S(0)
    
11. End Function

复制代码

Qs18

([A-Z][A-Z0-9-]*\d+)

titi012

Qs18 发表于 2024-5-25 13:37
([A-Z][A-Z0-9-]*\d+)

可能我前面的举例不够全面，让大家误解了一点。
效果2要求的是得到 以 1-6个大写字母开头，加 -，然后五位数字，后面如果还有 - 加 1个数字，或者 1 个大写字母加1个数字。

ww87725244

先来个长的：[A-Z]{1,}\-\d{5}(\-\d{1}\-[A-Z]\d{1}|\-[A-Z]\d{1}|\-\d{1})|[A-Z]{1,}\-\d{5}

limonet

pattern=[A-Z]+-\d{5}(-\d)?(-[A-Z]\d)?

chxw68

参与一下。

zhangcheng6688

正则表达式留底，谢谢

HANERBABA

[A-Z]{1,6}-\d*-*[A-Z]*\d*(?![A-Z])-*[A-Z]*\d*

titi012

ww87725244 发表于 2024-5-25 16:17
先来个长的：[A-Z]{1,}\-\d{5}(\-\d{1}\-[A-Z]\d{1}|\-[A-Z]\d{1}|\-\d{1})|[A-Z]{1,}\-\d{5}

结果是正确的，虽然长了一点，也学习了这种写法，感谢帮助！

titi012

HANERBABA 发表于 2024-5-26 07:35
[A-Z]{1,6}-\d*-*[A-Z]*\d*(?![A-Z])-*[A-Z]*\d*

感谢帮助啊！
不过结果差了一点点。