Manipulation de l'objet RegExp

Présentation
Petit programme pour faire des essais Pattern de l'objet RegExp.
Nos ressources disponibles
Il existe une version VBScript ICI
Téléchargement
Compatibilité
Windows
0  0 
Téléchargé 21 fois Voir le commentaire
Détails
Catégories : Divers HTA VBS
Avatar de Francis MILLET
Rédacteur / Modérateur
Voir tous les téléchargements de l'auteur
Licence : Gratuit
Date de mise en ligne : 5 septembre 2017




Avatar de ProgElecT ProgElecT - Rédacteur/Modérateur https://www.developpez.com
le 16/10/2017 à 13:00
Mise à jour
(modèle) Recherche le modèle et mémorise la correspondance. La sous-chaîne correspondante peut être extraite de la collection Matches obtenue,
à l'aide d'Item [0]...[n]. Pour trouver des correspondances avec des caractères entre parenthèses ( ), utilisez "\(" ou "\)".
dans la Sub CmdGo_Click
- Remplacer Dim ResulT As Object, Match As Object, Cpt As Integer par Dim ResulT As Object, Match As Object, T As Integer, U As Integer.
- Remplacer la partie
Code : Sélectionner tout
1
2
3
If Option3(0) = True Then 'méthode Execute
...........
End If
par
Code : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
If Option3(0) = True Then 'méthode Execute
    If RegularExpressioN.Test(MeStr) = True Then 'non obligatoire, méthode Test
        Set ResulT = RegularExpressioN.Execute(MeStr)
        For U = 0 To ResulT.Count - 1
            Set Match = ResulT(U)
            MsG = MsG & "position: " & Match.FirstIndex & "  Longueur: " & Match.Length & " Valeur: " & Match.Value & vbNewLine
            If Match.SubMatches.Count > 0 Then
                For T = 0 To Match.SubMatches.Count - 1
                    If Trim(Match.SubMatches(T)) <> "" Then
                        MsG = MsG & "SubMatches = --->" & Match.SubMatches(T) & "<---" & vbNewLine
                    End If
                Next T
            End If
            Set Match = Nothing
        Next U
        Set ResulT = Nothing
        MsG = Left(MsG, (Len(MsG) - Len(vbNewLine))) 'pour supprimer le dernier vbNewLine
        MsG = "Nbr.d'occurrence: " & ResulT.Count & vbNewLine & MsG
        Else
        MsG = "Pas d’occurrence"
    End If
    Else 'méthode Replace
    MsG = RegularExpressioN.Replace(MeStr, TextReplace.Text)   ' Effectue le remplacement
    If MsG = MeStr Then MsG = "Pas d’occurrence, pas de remplacement " & vbNewLine & MsG
    Set ResulT = Nothing
End If
Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.
Contacter le responsable de la rubrique Visual Basic 6