(AutoIt) Regular Expression with Multiple Matches and Capture Groups

See more Regular Expressions Examples

Note: Chilkat uses PCRE2. See PCRE2 Regular Expressions
Also see: PCRE2 Performance

Note: This example requires Chilkat v11.1.0 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Local $bSuccess = False

Local $sPattern = "Name:\s+(\w+)\s+(\w+),\s+Email:\s+(\S+)"

$oSb = ObjCreate("Chilkat.StringBuilder")
Local $bCrlf = True
$oSb.AppendLine("Name: John Smith, Email: john.smith@example.com",$bCrlf)
$oSb.AppendLine("Name: Jack Johnson, Email: jack.johnson@example.com",$bCrlf)
$oSb.AppendLine("Name: Mary Adams, Email: mary.adams@example.com",$bCrlf)

ConsoleWrite($oSb.GetAsString() & @CRLF)

; We have the following string:
; Name: John Smith, Email: john.smith@example.com
; Name: Jack Johnson, Email: jack.johnson@example.com
; Name: Mary Adams, Email: mary.adams@example.com

$oJson = ObjCreate("Chilkat.JsonObject")
$oJson.EmitCompact = False

Local $iTimeoutMs = 2000
Local $iNumMatches = $oSb.RegexMatch($sPattern,$oJson,$iTimeoutMs)
If ($iNumMatches < 0) Then
    ; Probably an error in the regular expression.
    ; Suggestion: Use AI to help create and/or diagnose regular expressions.
    ConsoleWrite($oSb.LastErrorText & @CRLF)
    Exit
EndIf

; Examine the matches:
ConsoleWrite($oJson.Emit() & @CRLF)

; This is the JSON with the match information.
; See the JSON parsing code below to get the matched capture group values.

; {
;   "match": [
;     {
;       "group": [
;         {
;           "cap": "Name: John Smith, Email: john.smith@example.com",
;           "idx": 0,
;           "len": 47
;         },
;         {
;           "cap": "John",
;           "idx": 6,
;           "len": 4
;         },
;         {
;           "cap": "Smith",
;           "idx": 11,
;           "len": 5
;         },
;         {
;           "cap": "john.smith@example.com",
;           "idx": 25,
;           "len": 22
;         }
;       ]
;     },
;     {
;       "group": [
;         {
;           "cap": "Name: Jack Johnson, Email: jack.johnson@example.com",
;           "idx": 49,
;           "len": 51
;         },
;         {
;           "cap": "Jack",
;           "idx": 55,
;           "len": 4
;         },
;         {
;           "cap": "Johnson",
;           "idx": 60,
;           "len": 7
;         },
;         {
;           "cap": "jack.johnson@example.com",
;           "idx": 76,
;           "len": 24
;         }
;       ]
;     },
;     {
;       "group": [
;         {
;           "cap": "Name: Mary Adams, Email: mary.adams@example.com",
;           "idx": 102,
;           "len": 47
;         },
;         {
;           "cap": "Mary",
;           "idx": 108,
;           "len": 4
;         },
;         {
;           "cap": "Adams",
;           "idx": 113,
;           "len": 5
;         },
;         {
;           "cap": "mary.adams@example.com",
;           "idx": 127,
;           "len": 22
;         }
;       ]
;     }
;   ]
; }

; Important:  Capture group 0 always contains the entire match — that is, the portion of the input string that matches the full regular expression.

Local $sCap
Local $i = 0
Local $iMatchCount = $oJson.SizeOfArray("match")
While $i < $iMatchCount
    ConsoleWrite("Match " & ($i + 1) & ":" & @CRLF)
    $oJson.I = $i
Local $iJ = 0
Local $iNumCaptureGroups = $oJson.SizeOfArray("match[i].group")
    While $iJ < $iNumCaptureGroups
        $oJson.J = $iJ
        $sCap = $oJson.StringOf("match[i].group[j].cap")
        ConsoleWrite($iJ & ": " & $sCap & @CRLF)
        $iJ = $iJ + 1
    Wend
    $i = $i + 1
Wend

; Capture group 0 always contains the entire match — that is, the portion of the input string that matches the full regular expression.

; Output

; Match 1:
; 0: Name: John Smith, Email: john.smith@example.com
; 1: John
; 2: Smith
; 3: john.smith@example.com
; Match 2:
; 0: Name: Jack Johnson, Email: jack.johnson@example.com
; 1: Jack
; 2: Johnson
; 3: jack.johnson@example.com
; Match 3:
; 0: Name: Mary Adams, Email: mary.adams@example.com
; 1: Mary
; 2: Adams
; 3: mary.adams@example.co