Manipulation de l'objet RegExp

Petit programme pour faire des essais Pattern de l'objet RegExp.

Nos ressources disponibles

Il existe une version VBScript ICI

Signaler un problème

ProgElecT

Expert éminent sénior

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

Poster un commentaire

Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.