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