Bei diesem Test wird die Funktion test1 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 bei jedem Aufruf von test1 ein neues RegExp-Objekt erzeugt.

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

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

sub test1()
  dim re, r
  set re = new RegExp
  re.Multiline = false
  re.IgnoreCase = bIgnoreCase
  re.Global = false
  re.Pattern = PATTERN
  r = re.Test(LONGSTR1)
  r = re.Test(LONGSTR2)
end sub

Resultat

• Calls per sec = 2583
• Time per call = 387.146728610143 μs