Script vb pour le remplacement de caractère ou l’extraction d’un « pattern » relatif à une chaîne de caractères

Le vbscript suivant présente quelques exemples afin de remplacer « fox » pour « cat » ou afin de changer l’ordre des mots « The quick » pour « quick The » et finalement afin d’extraire une chaîne de caractère d’un  texte.

Function ReplaceTest(patrn, replStr)

  Dim mch, regEx, str1               ' Create variables.

  str1 = "The quick brown fox jumped over the lazy dog. <o:Shortcut Id=""o3""> <a:ObjectID>0A274DE3-C31B-480A-9486-5BC56E2EDDE9</a:ObjectID>"

  Set regEx = New RegExp            ' Create regular expression.
  regEx.Pattern = patrn             ' Set pattern.
  regEx.IgnoreCase = True           ' Make case insensitive.

for each mch in regEx.Execute(str1)
  output mch
  ReplaceTest = regEx.Replace(mch, replStr)   ' Make replacement.
next

End Function

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

MsgBox(ReplaceTest("(\S+)(\s+)(\S+)", "$3$2$1"))   ' Swap first pair of words.

MsgBox(ReplaceTest("Id=""([^""]+)"">\s*([^<]+)", "$1"))

MsgBox(ReplaceTest("([^<]+)", "$1"))