求一个正则 字符串中以a开始 以b结束的字符串正则表达式

[Sunhk_25]

求一个正则 字符串中以a开始 以b结束的字符串正则表达式

例如kaghibaubebvk

[赵4老师]

a.*?b 非贪婪匹配两次 得到aghib和aub
a.*b 贪婪匹配一次 得到aghibaub

[zuoxingyu]

收藏了
的撒打算打算发

[Sunhk_25]

取得的值应该是 aghib 和 aub

[舉杯邀明月]

友情Up............

[无·法]

a.*?b

[无·法]

Private Sub Form_Load()
    Dim strData$
    Dim reg As Object
    Dim matchs As Object, match As Object
    
    strData = "kaghibaubebvk"
    Set reg = CreateObject("vbscript.regexp")
    reg.Global = True
    reg.IgnoreCase = True
    reg.Pattern = "a.*?b"
    
    Set matchs = reg.Execute(strData)
    
    For Each match In matchs
        Debug.Print match
    Next
End Sub

[skylinecn]

引用 4 楼 sysdzw 的回复:

VB codePrivateSub Form_Load()Dim strData$Dim regAsObjectDim matchsAsObject, matchAsObject

strData="kaghibaubebvk"Set reg=CreateObject("vbscript.regexp")
reg.Global=True
reg.IgnoreCase?-

不懂正则的路过，学习了。