通过正则表达式，获取有规则的字符串中的有效信息

时　间:2021-11-11 13:50:25
作　者:易勋   ID：35404  城市：上海
摘　要:通过正则表达式，从字符串中获取数据。
正　文:

函   数:

Public Function RegExpDemoSyntax(str) As Boolean
    Dim objRegEx As Object
    Dim objMH As Object
    Dim j As Long
    
    Set objRegEx = CreateObject("vbscript.regexp")
    objRegEx.Pattern = "姓名：(.*?)，分数：(.*?)；"
    objRegEx.Global = True
    
    Set objMH = objRegEx.Execute(str)
    
    If objMH.Count > 0 Then
        For j = 0 To objMH.Count - 1
            With objMH(j)
                Debug.Print .submatches(0) & "的分数是" & .submatches(1)
            End With
        Next
    End If
    RegExpDemoSyntax = True
    Set objRegEx = Nothing
End Function

RegExpDemoSyntax "姓名：张三，分数：80；姓名：李四，分数：90；姓名：王五，分数：100；" '字符串的格式需要与objRegEx.Pattern匹配

示   例: