Bei diesem Test wird die Funktion test2 1 Sekunde lang so oft wie möglich aufgerufen und daraus die durchschnittliche Zeit für einen Funktionsaufruf berechnet.
In dieser Variante des Test wird ein globales RegExp-Objekt erzeugt und wiederverwendet. Bei jedem Aufruf von test2 wird ein neues Pattern zugewiesen.
const LONGSTR1 = "..." const LONGSTR2 = "..." const PATTERN = "([^\wäöüÄÖÜßçàáâèéêôûÁÀÂÉÈÊÔÛ\x01])" dim CRE set CRE = new RegExp CRE.Multiline = false CRE.IgnoreCase = bIgnoreCase CRE.Global = false sub test2() dim r CRE.Pattern = PATTERN r = CRE.Test(LONGSTR1) r = CRE.Test(LONGSTR2) end sub