Bei diesem Test wird die Funktion test3 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. Dem RegExp-Objekt wird nur einmal ein Pattern zugewiesen, welches immer wieder verwendet wird.

const LONGSTR1 = "..."
const LONGSTR2 = "..."

const PATTERN = "([^\wäöüÄÖÜßçàáâèéêôûÁÀÂÉÈÊÔÛ\x01])"

dim CRE
set CRE = new RegExp
CRE.Multiline = false
CRE.IgnoreCase = bIgnoreCase
CRE.Global = false
CRE.Pattern = PATTERN

sub test3()
  dim r
  r = CRE.Test(LONGSTR1)
  r = CRE.Test(LONGSTR2)
end sub

Resultat

• Calls per sec = 210052
• Time per call = 4.76072591548759 us