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"))