Function RegExpTest(patrn, strng)
  Dim regEx, Match, Matches		' Create variable.
  Set regEx = New RegExp			' Create a regular expression.
  regEx.Pattern = patrn			' Set pattern.
  regEx.IgnoreCase = True			' Set case insensitivity.
  regEx.Global = True			' Set global applicability.
  Set Matches = regEx.Execute(strng)	' Execute search.
  For Each Match in Matches		' Iterate Matches collection.
    RetStr = RetStr & "Match found at position "
    RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
    RetStr = RetStr & Match.Value & "'." & vbCRLF
  Next
  RegExpTest = RetStr
End Function

MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))

sub MyTrigger (sName, sLine, wildcards)

Set regEx = New RegExp

' get trigger match text
regEx.Pattern = world.GetTriggerInfo(sName, 1)

Set Matches = regEx.Execute(sLine)

For Each match in Matches
'
'  do something here
'
Next

end sub

Function ReplaceTest(patrn, replStr)
  Dim regEx, str1					' Create variables.
  str1 = "The quick brown fox jumped over the lazy dog."
  Set regEx = New RegExp				' Create regular expression.
  regEx.Pattern = patrn				' Set pattern.
  regEx.IgnoreCase = True				' Make case insensitive.
  ReplaceTest = regEx.Replace(str1, replStr)	' Make replacement.
End Function

MsgBox(ReplaceTest("fox", "cat"))		' Replace 'fox' with 'cat'.

' Output to match
' HP: 500/500 SP: 200/200 W: 300/500(200) L: 100% P: 3/100% A: 30 T: perfect G: 100

' Trigger:
'  <trigger
'   enabled="y"
'   match="HP: ([0-9]+)/([0-9]+) SP: ([-]*[0-9]+)/([0-9]+) W: ([0-9]+)/([0-9]+)\(([0-9]+)\) L: ([0-9]+)\% P: ([0-9])/([0-9]+)\% A: ([0-9]+) T: ([a-z]+) G: ([0-9]+)$"
'   name="catch_hp"
'   regexp="y"
'   script="catch_hp_bar"
'   sequence="91"
'  >
'  </trigger>


Dim hp_hp, hp_hp_max
Dim hp_sp, hp_sp_max
Dim hp_water, hp_water_max, hp_water_recycle
Dim hp_limberness
Dim hp_poison, hp_reset
Dim hp_ammo
Dim hp_target
Dim hp_gxp

Sub catch_hp_bar(ByVal strName, ByVal strLine, ByVal astrParam())
  Dim regEx, Matches, Match

  Set regEx =     New RegExp
  regEx.Pattern = world.GetTriggerInfo(strName, 1)
  Set Matches =   regEx.Execute(strLine)
  Set Match =     Matches(0)

  Set regEx =   Nothing
  Set Matches = Nothing

  hp_hp =            CInt(Match.SubMatches(0))
  hp_hp_max =        CInt(Match.SubMatches(1))
  hp_sp =            CInt(Match.SubMatches(2))
  hp_sp_max =        CInt(Match.SubMatches(3))
  hp_water =         CInt(Match.SubMatches(4))
  hp_water_max =     CInt(Match.SubMatches(5))
  hp_water_recycle = CInt(Match.SubMatches(6))
  hp_limberness =    CInt(Match.SubMatches(7))
  hp_poison =        CInt(Match.SubMatches(8))
  hp_reset =         CInt(Match.SubMatches(9))
  hp_ammo =          CInt(Match.SubMatches(10))
  hp_target =        Match.SubMatches(11)
  hp_gxp =           CInt(Match.SubMatches(12))

  Set Match = Nothing

' process data

End Sub