Discussion :

[Franck.H]

Je reviens à la charge avec les Regex. Je travailles sur un interpréteur de formules, à chaque réduction d'une partie des équations, on enlève les parenthèses en trop, exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim rgx_const_parenthesee As New Regex("((\()([0-9,]+)+(\)))") ' regex pour trouver des nombres décimaux entre aprenthèses (avec groupage des parenthèses et du nombre)
 
For Each match As Match In rgx_const_parenthesee.Matches(res) 'on enlève les parenthèses inutiles autours de certaines opérations résolues qui bloquent le porcessus : ex (((1+2)))+1 donnerait (3)+1. Le programme pense qu'il y a une sous opération à gauche du plus et ne fait pas 3+1.
    Dim s As String = match.Value
    s = s.Replace("(", "")
    s = s.Replace(")", "")
    res = res.Replace(match.Value, s) 'pour l'exemple (((1+2)))+1 on a (3)+1, la regex trouve (3) et met cette string dans s, on enlève les parenthèses, et on remplace (3) par 3 
Next

Elle fonctionne bien sauf à la fin avec ce type de chaîne:

(0,0045492502083257919268042437+1,0882259561075000389088239696)

Le matching ne rend plus la main, ça tourne sans fin à priori sans même entrer dans la boucle. Je ne vois pas trop pourquoi.
Pour information, à ce stade là, la regex ne doit plus trouver de parenthèse à enlever avant le calcul final.


pour votre aide


[Edit]
A l'avant-dernier tour la regex matche bien cette chaîne:

((0,0045492502083257919268042437)+(1,0882259561075000389088239696))

mais c'est la dernière fois qu'elle tourne correctement

[Sehnsucht]

C'est pas génial de parcourir les match pour ensuite faire des replace alors que Regex dispose déjà d'une méthode Replace remplaçant tous les motifs correspondant par la chaine donnée (ou exécutant l'action demandée si on utilise la surcharge attendant un MatchEvaluator)

A priori ceci fonctionne au vu des éléments donnés :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim rgx = New Regex("\(\s*(\d(?:,\d+)?)\s*\)")
 
Dim sample = "(((0,0045492502083257919268042437))+(1,0882259561075000389088239696))"
 
 
Dim tmp = rgx.Replace(sample, "$1")
 
 
Do Until tmp = sample
    sample = tmp
    tmp = rgx.Replace(sample, "$1")
Loop

Basiquement on boucle tant qu'on peut remplacer le motif.

En ce qui concerne l'expression rationnelle en elle-même :

• \( -> parenthèse ouvrante
• \s* -> de 0 à une infinité d'espaces (sens large : tabulation etc.)
• (\d(?:,\d+)?) -> groupe 1
  
  • \d -> un chiffre
  • (?:,\d+)? -> groupe non capturant optionnel
    
    • , -> la virgule
    • \d+ -> au moins un chiffre
  
  
• \s* -> de 0 à une infinité d'espaces (sens large : tabulation etc.)
• \) -> parenthèse fermante

Et on remplace l'intégralité du match par $1 c'est à dire par le contenu du groupe 1 ; ainsi on passe de (nombre) à juste nombre

[Franck.H]

Merci beaucoup pour ton aide, j'y vois plus clair désormais (j'ai aussi réussi à récupérer un bouquin sur les regex pour m'améliorer dans ce domaine) et merci pour les explications de la regex