Expressions Rationnelles: Capture de données

Version imprimable

24/06/2013, 11h44
Faern

Expressions Rationnelles: Capture de données

Bonjour,

J'essaye d'utiliser les expressions rationnelles mais pour le moment je suis en plein bourbier.

Mon expression ressemble à cela :

Pattern 1 :

Code:

^(BA_DEF_\s*BO_)\s*\x22([\w_é]+)\x22\s*([\w_]+)\s*(\x22(.)*?\x22\s*\,*)*\s*(\d+)*\s*(\d+)*\s*;

Pattern 2 :

Code:

\s*\x22(.*?)\x22,*

(Le 2nd pattern me sert a diviser les modes récupérer dans le premier pattern.)

Je veux en effet pouvoir récupérer les informations de ces chaines :

Citation:

BA_DEF_ BO_ "GenMsgSendType" ENUM "Cyclic","not_used","not_used","not_used","not_used","Cyclic","not_used","IfActive","NoMsgSendType";
BA_DEF_ BO_ "GenMsgCycleTime" INT 0 0;
BA_DEF_ BO_ "ModeTransmission" ENUM "P","E","P+E";
BA_DEF_ BO_ "Période" INT 0 0;

Mais je n'y arrive pas, le problème vient de l'étoile après ma capture des modes qui sont compris entre "","",...
En effet si je l'enlève ça fonctionne mais du coup pour la capture de chiffre ça ne fonctionne pas...

Avez vous une solution ?

J'ai peut être trouvé une alternative, mais je pense pas que c'est très propre :

Code:

^(BA_DEF_\s*BO_)\s*\x22([\w_é]+)\x22\s*([\w_]+)\s*((\x22(.*?)\x22\s*\,*)*)\s*(\d+)*\s*(\d+)*\s*;

Vous en pensez quoi ?

Merci beaucoup !
24/06/2013, 13h08
mercatog

Bonjour

Peut être avec quelques exemples concrets (données initiales / résultat final souhaité) l'aide sera plus consistante.
24/06/2013, 14h49
Faern

4 pièce(s) jointe(s)

Bonjour Mercatog,

Milles excuses, je vous illustre ça convenablement.

Je fais des essais sur ces 2 chaines de caractères :

Citation:

BA_DEF_ BO_ "GenMsgCycleTime" INT 0 0;
BA_DEF_ BO_ "GenMsgSendType" ENUM "Cyclic","not_used","not_used","not_used","not_used","Cyclic","not_used","IfActive","NoMsgSendType";

Pattern 1 :

Code:

^(BA_DEF_\s*BO_)\s*\x22([\w_é]+)\x22\s*([\w_]+)\s*(\x22(.)*?\x22\s*\,*)*\s*(\d+)*\s*(\d+)*\s*;

Fonctionne avec la première mais pas avec la 2nd.

Pattern 2 :

Code:

^(BA_DEF_\s*BO_)\s*\x22([\w_é]+)\x22\s*([\w_]+)\s*((\x22(.)*?\x22\s*\,*)*)\s*(\d+)*\s*(\d+)*\s*;

Fonctionne a priori avec les 2, mais j'ai des sous-groupes étranges (que je ne maitrise pas trop les résultats), je m'interroge sur la robustesse du pattern.

Edit : L’objectif est de séparer la chaine de cette manière

Citation:

BA_DEF_ BO_
GenMsgCycleTime
INT
0
0

ou

Citation:

BA_DEF_ BO_
GenMsgSendType
ENUM Cyclic
not_used
not_used
not_used
not_used
Cyclic
not_used
IfActive
NoMsgSendType

Bonjour

Regarde cette fonction, le résultat est un string où les données sont séparées par un | (on pourra par la suite facilement les séparer)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function Etat(ByVal Str As String)
Dim Rg As Object
Dim Tmp As String
 
Set Rg = CreateObject("VBScript.RegExp")
With Rg
    .Pattern = "^(BA_DEF_ BO_ )\""(.*)\""\s(.*)\;$"
    .Global = True
    Tmp = .Replace(Str, "$3")
 
    If InStr(Tmp, ",") Then
        Tmp = Replace(Replace(Tmp, ",", "|"), """", "")
    Else
        Tmp = Replace(Tmp, " ", "|")
    End If
 
    Etat = .Replace(Str, "$1|$2|") & Tmp
End With
Set Rg = Nothing
End Function

26/06/2013, 10h26
Faern

Bonjour,

Au final ça nous oblige a retraiter encore derrière une 2nd fois, un peu comme ma solution avec mes 2 patterns non ?
26/06/2013, 10h46
mercatog

C'est hybride bien sûr comme proposition (lignes 11 à 15) parce que à part les 2 premières parties, la suite ne suit plus de norme, sauf si tu as toujours ou bien INT (dans ce cas les suivants sont séparés par des espaces) ou ENUM (dans ce cas ENUM est suivi d'un mot et d'une liste séparée par des virgules).

Au final tu aura au moins tes parties séparés par un | qu'ont peut facilement séparer par une simple Split(TonResultat, "|")

Si ça peut aider, voici une petite variante en pur VB :

La chaine à décomposer se trouve dans la cellule A1, les mots décomposés dans le tableau ListeMots

Code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub Decomposition()
    Dim ListeMots() As String
    Chaine = Trim(Range("A1"))
    If Len(Chaine) = 0 Then Exit Sub
    NbMots = 0
    Mot = ""
    MotEnCours = False
    For i = 1 To Len(Chaine)
        Select Case Mid(Chaine, i, 1)
            Case ";"
                'Fin du traitement
                Exit For
            Case " ", ","
                'on change de mot
                If MotEnCours Then
                    'on sauvegarde le mot composé dans le tableau ListeMots
                    NbMots = NbMots + 1
                    ReDim Preserve ListeMots(NbMots)
                    ListeMots(NbMots) = Mot
                    MotEnCours = False
                    Mot = ""
                End If
            Case Chr(34)
                'Lettre = Guillement
                If MotEnCours Then
                    'Fin du mot en cours
                    'on sauvegarde le mot composé dans le tableau ListeMots
                    NbMots = NbMots + 1
                    ReDim Preserve ListeMots(NbMots) As String
                    ListeMots(NbMots) = Mot
                    MotEnCours = False
                Else
                    'Début nouveau mot
                    MotEnCours = True
                    Mot = ""
                End If
            Case Else
                If Not MotEnCours Then
                    MotEnCours = True
                    Mot = ""
                End If
                Mot = Mot & Mid(Chaine, i, 1)
        End Select
    Next
    '
    For i = 1 To NbMots
        Debug.Print ListeMots(i)
    Next
End Sub