Récupération de valeur avec regex

Version imprimable

24/11/2020, 15h42
boboss123

Récupération de valeur avec regex
Bonjour,

J'ai besoin de vous pour construire un regex.
J'analyse ligne par ligne, un fichier texte.
La structure est la suivante : la chaine commence par l'une des séquence suivante
Code:

1 2 3 " ' #xxxx yyyy ' " ou " // #xxxx yyyy " ou " /* #xxxx yyyy */ "
xxxx est un mot obligatoire de taille variable dont la valeur peut être soit "aaaa" ou "bb" ou "ddddddd"
yyyy est un mot optionnel de taille variable
pour les espaces, il peut y en avoir entre 0 et plusieurs (sauf pour séparer xxxx et yyyy, il faut obligatoirement au moins un espace)

Je veux pouvoir récupérer facilement les valeurs de xxxx et yyyy. Si pas de yyyy alors la valeur récupérée doit être ""

Voici mon regex actuel mais il ne fonctionne pas totalement (pour la gestion de "//" qui n'a pas de balise fermante) :

Code:

regex_str = "^\s*((')|(/*)|(//))\s*#((aaaa)|(bb)|(ddddddd))(\s+(\w+))*\s*((')|(*/)).*"

Comment puis-je construire mon regex ?

Aussi comment faire pour dans ma commande pour que xxxx et yyyy se retrouve à l'index 0 et 1 dans results ?

Code:

Set results = re1.Execute(linesArray(lineIndex))
24/11/2020, 18h14
ProgElecT

Salut

Il serait plus facile pour t'aider si tu nous mets une petite dizaine de lignes de ton fichier que tu veux traiter, on pourrait expérimenter de notre côté.

Bonjour,

Voici quelques exemples de lignes qui doivent matcher :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
  ' #aaaa val1 '   
  ' #aaaa val1 '   // blablabla
  // #bb val2   
  // #bb val2    /* blablabla */
 /*#bb val2*/  // #aaaa
  /* #ddddddd  */  'aaaa'
  // #aaaa //  'blablabla'
 
Doit renvoyer :
results(0) = "aaaa" et  results(1) = "val1"
results(0) = "aaaa" et  results(1) = "val1"
results(0) = "bb" et  results(1) = "val2"
results(0) = "bb" et  results(1) = "val2"
results(0) = "bb" et  results(1) = "val2"
results(0) = "ddddddd " et  results(1) = ""
results(0) = "aaaa" et  results(1) = ""

=> je dois pouvoir récupérer les valeur xxxx et yyyy. Pas besoin de récupérer la chaine "blablabla", elle dois juste être ignorée (et pas d'erreur si non présente)

Voici quelques exemples de lignes qui ne doivent pas matcher :

Code:

1
2
3
4
5
6
7
  // aaaa val1    
  'aaaa val1 '   // blablabla
  /*#bb val2    // 
  /*#bb val2' 
  '#zzzzz'
  '#ddddddd  */
  'aaaa val1'  '#aaaa val1'

24/11/2020, 18h59
ProgElecT

L'exemple que tu nous donnes n'est sûrement pas la réalité du fichier que tu dois traité, pour ma part, je ne te soumettrais pas un Pattern dans ses conditions, il ne sera probablement pas opérationnel.

1 pièce(s) jointe(s)

Bon, histoire de ne pas perdre le code

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
Dim Memo
Call(Trier)
MsgBox "Resultat" & vbnewline & vbnewline & Memo
 
Sub Trier
Dim RegularExpressioN, ResulT, Match
        Dim MeStr, MsG, T, U
 
        'simulation du fichier tel que décrit
        MeStr =  "' #aaaa val1 '" & vbnewline _
  & "' #aaaa val1 '   // blablabla" & vbnewline _
  & "// #bb val2" & vbnewline _
  & "// #bb val2    /* blablabla */" & vbnewline _
  & "/*#bb val2*/  // #aaaa" & vbnewline _
  & "/* #ddddddd  */  'aaaa'" & vbnewline _
  & "// #aaaa //  'blablabla'"
 
	Set RegularExpressioN = New RegExp
	'RegularExpressioN.IgnoreCase = True 'accepte caract. min/MAJ
	RegularExpressioN.Pattern = "#([a-z ]*) ([a-z0-9]*)"
	RegularExpressioN.Global = True's'applique à la chaîne entière
	If RegularExpressioN.Test(MeStr) = True Then 'non obligatoire (précaution), méthode Test
	    Set ResulT = RegularExpressioN.Execute(MeStr)
        For U = 0 To ResulT.Count - 1
			Set Match = ResulT(U)
			If Match.SubMatches.Count > 0 Then
				For T = 0 To Match.SubMatches.Count - 1
					If Trim(Match.SubMatches(T)) <> " " Then
						MsG = MsG & "Result(" &  T & ") = """ & Match.SubMatches(T) & """"
						If T <> Match.SubMatches.Count - 1 Then
							MsG = MsG & "  et  "
						End If
					End If
				Next
				MsG = MsG & vbNewLine
            End If
            Set Match = Nothing
        Next
        MsG = Left(MsG, (len(MsG)- len(vbNewLine))) 'pour supprimer le dernier vbNewLine
        Else
		MsG = "Pas d'occurence"
	End If
	Set RegularExpressioN = Nothing
	Memo = MsG
 
End Sub

se qui donne

Pièce jointe 584916

25/11/2020, 12h20
boboss123

Merci,
Au final, je pense que je vais simplifier les conditions de test : je voulais gérer pleins de cas différents mais je pense qu'il est beaucoup plus simple de limiter le format des fichiers texte.