TESTEUR DE REGEX (REGULAR EXPRESSIONS) regex, regular, expression, tester, Source N°2503

Information sur la source

Catégorie :Texte Classé sous : regex, regular, expression, tester Niveau : Expert Date de création : 27/01/2002 Date de mise à jour : 27/01/2002 01:54:37 Vu / téléchargé: 12 168 / 549

Auteur : Nix

Site perso

Ecrire un message privé

Ce membre participe au partage de revenus publicitaires

Note :

8,00 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (6)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Voici un petit prog que je m'étais fait pour tester mes regex quand j'ai développé http://newsgroup.codes-sources.com/ (voir la colorisation des messages sur ce site pour comprendre l'utilité) car c bien pratique les regex mais des fois, faut un peu faire du essai/echec pour arriver à ce que l'on veut faire :-)
Les regex ont l'avantage d'être très rapide et si on les maîtrise bien, on peut faire des choses vraiment puissantes avec avec un temps d'éxécution minime.

Source

' Voir le zip mais voici le code qui est dans le frm
Option Explicit
Private ObjRegex
Private ObjRegexTrouve
Private Sub Command1_Click()
On Error Resume Next
Err.Clear
Dim TmpTxtHTML, i
Set ObjRegex = New RegExp
TmpTxtHTML = Me.TxtHTML
Me.TxtResultat.Text = ""
Me.TxtResultat2.Text = ""
ObjRegex.Global = True
ObjRegex.IgnoreCase = True
' Définition de la patern
ObjRegex.Pattern = "" & Me.TxtReg & ""
' Remplacement des occurences
TmpTxtHTML = ObjRegex.Replace(TmpTxtHTML, Me.TxtRegRepl.Text)
Me.TxtResultat = TmpTxtHTML
TmpTxtHTML = Me.TxtHTML
' Définition de la patern
ObjRegex.Pattern = "" & Me.TxtReg & ""
' Execution de la Regex
Set ObjRegexTrouve = ObjRegex.Execute(TmpTxtHTML)
' Pour chaque occurence trouvé, on met Occurence N° devant
If ObjRegexTrouve.Count > 0 Then
For i = 0 To ObjRegexTrouve.Count - 1
DoEvents
Me.TxtResultat2 = Me.TxtResultat2 & vbCrLf & "[Occurence " & i & "]" & ObjRegexTrouve(i).Value
Next
Else
Me.TxtResultat2 = TmpTxtHTML
End If
' S'il y a une erreur dans la regex, on l'affiche dans une msgBox
If Err.Number <> 0 Then MsgBox ("Erreur dans le regex : " & vbCrLf & Err.Description)
End Sub

' Voir le zip mais voici le code qui est dans le frm

Option Explicit
    Private ObjRegex
    Private ObjRegexTrouve

Private Sub Command1_Click()
    On Error Resume Next
    Err.Clear
    
    Dim TmpTxtHTML, i
    
    Set ObjRegex = New RegExp
    
    TmpTxtHTML = Me.TxtHTML
    Me.TxtResultat.Text = ""
    Me.TxtResultat2.Text = ""
    
    ObjRegex.Global = True
    ObjRegex.IgnoreCase = True
    
    ' Définition de la patern
    ObjRegex.Pattern = "" & Me.TxtReg & ""
    
    ' Remplacement des occurences
    TmpTxtHTML = ObjRegex.Replace(TmpTxtHTML, Me.TxtRegRepl.Text)
    Me.TxtResultat = TmpTxtHTML
        
    TmpTxtHTML = Me.TxtHTML
    
    ' Définition de la patern
    ObjRegex.Pattern = "" & Me.TxtReg & ""
    ' Execution de la Regex
    Set ObjRegexTrouve = ObjRegex.Execute(TmpTxtHTML)
    
    ' Pour chaque occurence trouvé, on met Occurence N° devant
    If ObjRegexTrouve.Count > 0 Then
        For i = 0 To ObjRegexTrouve.Count - 1
            DoEvents
            Me.TxtResultat2 = Me.TxtResultat2 & vbCrLf & "[Occurence " & i & "]" & ObjRegexTrouve(i).Value
        Next
    Else
        Me.TxtResultat2 = TmpTxtHTML
    End If
    
    ' S'il y a une erreur dans la regex, on l'affiche dans une msgBox
    If Err.Number <> 0 Then MsgBox ("Erreur dans le regex : " & vbCrLf & Err.Description)
End Sub

Conclusion

N'oubliez pas de faire référence à "Microsoft VBScript Regular Expression 5.5" (ou 5.6 selon la version que vous avez :)
Si vous n'avez pas ça, dans la liste des références, alors, allez télécharger la dernière version de "Windows script" (5.6 actuelement sur : http://www.microsoft.com/france/scripting/ )

P.S : JE NE SUIS PAS UN EXPERT DES REGEX alors si vous avez des questions à ce sujet, ne me les posez pas, vous n'aurez pas de réponse :) (posez-les dans le forum, merci)
P.S2 : J'en ferai une version ASP d'ici peu pour ceux que ça intéresse (je la mettrai sur www.aspfr.com biensûr ;-) )

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

FrmTesteurRegex.frm 6 474 octets
FrmTesteurRegex.frx30 253 octets
TesteurDeRegex.exe53 248 octets
TesteurDeRegex.vbp 961 octets

Télécharger le zip

Sources du même auteur

Toutes les sources de Nix

Sources de la même categorie

Toutes les sources de la catégorie Texte

Sources en rapport avec celle ci

Commentaires

Commentaire de shivan le 27/01/2002 14:53:40

ouah genial c ce kil me fallait !!!
Commentaire de Pekinio le 27/01/2002 16:20:26

Nix, juste une suggestion par rapport a la fonction de recherche sur ton (tes) site(s), ce serait bien que tu rajoutes la possibilité de filtrer les réponses en fonction de ce que l'utilisateur veut trouver : des codes avec zip, capure, zip + capture ou peut importe (t'as qu'a mettre des checkboxes avec O Zip O Capture et on selectionne celles qu'on veut ) ce serait bien, car moi, par exemple, je ne regarde quasiment que les codes qui contiennent un zip et une capture...

merci bien,

a++

ciao
Commentaire de thiosyiasar le 05/08/2002 11:12:14

Putain j'ai mis une source, j'avais même po vu qu'il y avait déja.
Pour ceux que ca intéresse, ya une doc sur les RegExp avec la source.
http://www.vbfrance.com/article.aspx?Val=5318
Commentaire de kimmelf2 le 01/11/2003 02:46:49

ou tu trouve les regexp ???

j'ai vb5 pro et je les trouve pas ...
Commentaire de CADRATURE le 15/12/2005 11:29:42

Très bon
Commentaire de Renfield le 02/04/2007 15:51:29 administrateur CS

Kimmelf2 => il faut ajouter la reference : Microsoft VbScript 5.5 Regular Expressions

et pour ceux qui se demande comment écrire telle ou telle RegExp, rien de mieux que l'experimentation :
http://www.vbfrance.com/codes/REGEXP-WORKSHOP_17331.aspx

Ajouter un commentaire

Discussions en rapport avec ce code source

recherche une expression reguliere par nabilac

Expression régulière correcte ?? par bolandfranck

test sur formule par sransac

Tester si un couple login-mdpasse fait parti du compte admin local par pOusSinUs

Expression reguliere multiligne par bolandfranck

evaluation d'une expression ecrite sous forme de notation poloniase par chinoberde

tester le chemin d'un fichier par mohamed222222

Datacolumn.Expression et les ^ par surfzoid

calculer une expression par riberas

changer une chaine en expression par dede_1