Testare una Espressione Regolare

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