Discussion :

[Hybride76]

Bonjour,

Je fais actuellement une application où j'ai besoin de faire des recherches dans des fichiers.
Pour cela je me sers des expressions régulières, mais malgré plusieurs heures de recherches et de lecture je me trouve face à un problème.

Je cherche à récupérer l'information se situant à la suite de "# Carte "

J'ai donc écrit cela :

Code :

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

Dim myRegex = New Regex("^(# Carte [a-zA-Z]+)")

Cela me donne # Carte avec la suite que je souhaite.

Je pense qu'il est possible de faire la recherche et d'extraire ce que je souhaite récupérer.

Donc j'aurais besoin de conseils, d'avis, de corrections afin de pouvoir réaliser cela.

J'ai déjà essayé plusieurs choses mais sans grand succès.

Ci dessous le code général :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Do
 
            Dim Text As String = Text_carte.ReadLine()
 
            Dim myRegex = New Regex("^(# Carte [a-zA-Z]+)")
 
            Dim res = myRegex.IsMatch(Text)
 
            Dim r = myRegex.Match(Text).Value
 
            'myRegex.Match(Text)
       Loop Until Text Is Nothing

Nota : Je suis novice dans les expressions régulière.
Pour réaliser le code regex ci dessus j'ai mis à peu près 4h à 5h. (Donc super novice).

Merci d'avance pour votre aide.

[wallace1]

Bonsoir ,

Il faut travailler avec les groupes :

Code :

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

1
2
3
4
 
  Dim s = "ABCDEF# Carte GHIJKLM"
  Dim rx = New Regex("# Carte(.+)$")
  MsgBox(rx.Match(l).Groups(1).Value)

Affiche :

Code :

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

1
2
 
 GHIJKLM

A+

[Hybride76]

Merci wallace1,

Je fais le test au plus vite et je vous tiens au courant.

Cordialement.

[chrismonoye]

Bonsoir,
il est possible, aussi, de faire une post-analyse positive.
Voir ce tuto plus qu'excellent.
La recherche devrait ressembler à cela ( poste 3.8.2):

Code :

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

Dim myRegex = New Regex("^((?<=# Carte )[a-zA-Z]+)")

Voir aussi le poste 4.4 pour récupérer toutes les occurrences.

[clementmarcotte]

Bonjour,

Un outil très intéressant pour tester les expressions régulières

http://www.ultrapico.com/Expresso.htm

[Hybride76]

Merci wallace1,

Je fais le test au plus vite et je vous tiens au courant.

Cordialement.

Suite à la modification de mon code tel que proposé par wallace1.
J'arrive a réaliser ce que je recherche.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
 
        While (ligne <= nLignes)
 
            Dim Text = Text_carte.ReadLine()
            Dim myRegex = New Regex("# Carte (.+)$")
            Dim res = myRegex.IsMatch(Text)
            Type_Carte = myRegex.Match(Text).Groups(1).Value
            If (res = True) Then
                ToolStripComboBox1.Items.Add(Type_Carte)
            End If
            ligne = ligne + 1
 
        End While

Encore merci.