Discussion :

[Docteur26]

Bonsoir,
Je pratique très peu VB.NET et je reprends (aprés un long moment d'interruption !) un code que ce forum m'avait aidé à écrire.
J'essaie maintenant de supprimer toutes les lignes d'un texte contenant le format suivant :

"*" & "toto" & "[0-9][A-Z]*"
ou
"*" & "toto" & "[A-Z][0-9]*"

Exemples de lignes du texte :
--> "atotoA0z" --> à supprimer
--> "atoto0Az" --> à supprimer
--> "atotoFJz" --> à conserver
--> "zzzzzzzz" --> à conserver

Malheureusement pour moi, ce code simple ne peut pas fonctionner:

Code :

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

1
2
3
4
5
6
Dim path As String = "Emplacement du fichier .txt"
Dim lignes() As String = System.IO.File.ReadAllLines(path)
        Dim ASupprimer As New List(Of String)
        ASupprimer.Add("*" & "toto" & "[0-9][A-Z]*")
        ASupprimer.Add("*" & "toto" & "[A-Z][0-9]*")
        System.IO.File.WriteAllLines(path, lignes.Except(ASupprimer))

Donc s'il existe une solution facile à coder, je suis preneur ...
Merci de votre aide

[wallace1]

Salut docteur26,

S' il existe une solution facile à coder ca sera à toi de la trouver car nous te donneront des infos qui te permettrons de solutionner toi-même ton problème !

Regardes du côté de la classe regex et des patterns.

A+

[rv26t]

Bonjour,

Un tuto sur l' Utilisation des expressions régulières en .Net

[Docteur26]

Merci de vos réponses.
Bref, je vais essayer de comprendre tout seul un tuto que j'avais déjà vu mais qui comme la conclusion l'indique : " ... leur aspect complexe au premier abord ...", ne m'avait vraiment pas trop éclairé sur le sujet.
Je m'y remets ...
Bonne soirée.

[rv26t]

La finalité de ce que tu souhaites faire est flou

Si c'est juste sur un mot Contains suffit
Si c'est sur plusieurs mots une expression régulière avec plusieurs mots suffit.
Si c'est plus complexe il faut plus de détail.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Private Sub btnPurge_Click(sender As System.Object, e As System.EventArgs) Handles btnPurge.Click
        Dim rg As New System.Text.RegularExpressions.Regex("toto|titi|tutu")
 
        Dim lstLignes As List(Of String) = New List(Of String)
        ' lecture fichier et constitution de la liste
        For Each ligne As String In File.ReadAllLines("D:\data\fichiers\apurger.txt")
            'If Not ligne.Contains("toto") Then
            If Not rg.IsMatch(ligne) Then
                lstLignes.Add(ligne)
            End If
            'End If
        Next ligne
        File.WriteAllLines("D:\data\fichiers\apurger.txt", lstLignes)
    End Sub

[Docteur26]

Merci r26t,
tu m'as mis sur la bonne voie avec le code que tu m'as proposé.
Effectivement, les Regex sont la solution simple à mon problème.
J'ai fait quelques essais en m'aidant du tuto et je tiens le bon bout.
Pour répondre à ta question (désolé de ne pas avoir été clair), il s'agit bien pour moi d'une recherche sur une suite complexe de caractères.
Alors voilà ce que je cherchais à faire dans l'intitulé de mon premier post :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 Private Sub btnPurge_Click(sender As System.Object, e As System.EventArgs) Handles btnPurge.Click
        Dim rg As New System.Text.RegularExpressions.Regex("toto[0-9][A-Z]|toto[A-Z][0-9]")
 
        Dim lstLignes As List(Of String) = New List(Of String)
        ' lecture fichier et constitution de la liste
        For Each ligne As String In File.ReadAllLines("D:\data\fichiers\apurger.txt")
            If Not rg.IsMatch(ligne) Then
                lstLignes.Add(ligne)
            End If
        Next ligne
        File.WriteAllLines("D:\data\fichiers\apurger.txt", lstLignes)
    End Sub

Donc maintenant grace à toi, je devrais pouvoir poursuivre mon code tout seul.
Encore une fois merci.