Le espressioni regolari rappresentano un elemento molto potente nei linguaggi di programmazione e scripting. La funzione seguente permette di testare velocemente un pattern di un'espressione regolare su una stringa e restituisce come valore il risultato del test.
public function regexpTest(pattern, text)
Dim objRegexp, found
Set objRegexp = New RegExp
objRegexp.Pattern = pattern
objRegexp.IgnoreCase = true
found = objRegexp.Test(text)
Set objRegexp = Nothing
regexpTest = found
end function
La funzione accetta come parametri un pattern da testare e la stringa sulla quale testare l'espressione regolare.
Le prime istruzioni dichiarano le variabili necessarie e creano un'istanza di un'espressione regolare.
In seguito, attraverso la proprietà IgnoreCase, definiamo che il controllo tratterà i caratteri maiuscoli e minuscoli allo stesso modo.
Assegniamo il pattern all'oggetto espressione regolare e, a questo punto, eseguiamo il test attraverso il metodo .Test(), restituendo alla variabile found il risultato.
Il test può restituire solo valori booleani di conseguenza i possibili valori della variabile found potranno essere solo true o false.
A questo punto, chiudiamo la funzione restituendo il valore corrispondente al risultato del test