L'objet Match fournit un accès aux propriétés d'une mise en correspondance d'expression régulière.
Les propriétésL'objet Err contient cinq informations, le numéro, la description et la source de l'erreur ainsi qu'un identificateur contextuel et une adresse d'un fichier d'aide.
Ces informations sont accessibles à partir des cinq propriétés citées ci-dessous.
| Propriété |
|---|
| Description |
| objet.FirstIndex |
| indique la position dans une chaîne de recherche où une correspondance a été trouvée. |
| objet.Length |
| retourne la longueur d'une correspondance dans une chaîne de recherche. |
| objet.Value |
| retourne la valeur d'une correspondance dans une chaîne de recherche. |
<html>
<body>
<%
Dim texte, resultat
Function recherche(modele, chaine)
Dim objet
Dim correspondance
Dim collection
Set objet = New RegExp
objet.Pattern = modele
objet.IgnoreCase = True
objet.Global = True
Set collection = objet.Execute(chaine)
For Each correspondance in collection
resultat = resultat & "<tr><td>" & correspondance.FirstIndex _
& "</td><td>" & correspondance.Value & "</td></tr>"
Next
RegExpTest = resultat
End Function
texte = "Le chercheur d'opale a trouvé une belle pierre dans " _
& "une galerie sinistre, pour le plus grand bonheur de " _
& "la population occidentale qui pourtant se désolerait " _
& " de travailler dans de telles conditions inhumaines."
resultat = recherche(_
"\b[a-zA-Zàâäéèêëïîôöùûç]*le[a-zA-Zàâäéèêëïîôöùûç]*\b",_
texte)
Response.Write "<h3>Liste des mots contenant la " _
& "chaîne de caractères <I>le</I></h3>" _
& "<h4>Texte</h4><p>" & texte & "</p>" _
& "<table border='1' cellpadding='3'>" _
& "<tr><th>Position</th><th>Mot</th></tr>" _
& resultat & "</table>"
%>
</body>
</html> |