Discussion :

[lepiaf69]

Bonjour,

je désire rechercher dans un fichier txt le mot "teste" et supprimer la ligne entière (et non pas le mot !)

Le début de code ci-dessous me permet de trouver le mot "teste" mais, impossible à supprimer la ligne !

Il y a t'il une commande pour supprimer une ligne complète ?

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
16
17
 
 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
Using flux As New StreamReader("c:/essai.txt")
 
            Dim Compteur As Integer = 0
            While (Not flux.EndOfStream)
                Compteur += 1
                Dim ligne As String = flux.ReadLine
                If (ligne.Contains("teste")) Then
 
 
End If
End While
End Using
End Sub

[Pol63]

un fichier n'est pas quelque de modifiable en soi, il faut le lire et l'écrire

Code :

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

1
2
3
4
5
6
7
dim lines as list(of string) = system.io.file.readalllines("x:\fichier.txt").tolist
for i as integer = 0 to lines.count -1
  if lines(i).contains("teste") then 
    lines.removeat(i)
  end if
next
system.io.file.writealllines(lines.toarray)

ca peut aussi s'écrire en une ligne sur le framework 3.5 (le .ToList fait aussi parti du 3.5 remarque ...)

Code :

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

1
2
3
 System.IO.File.WriteAllLines("x:\fichier.txt", _
                    System.IO.File.ReadAllLines("x:\fichier.txt").Where(New Func(Of String, Boolean)(Function(s As String) (Not s.Contains("teste")))) _
                                    )

le code est équivalent, c'est juste que la boucle est remplacée par une implémentation en linq avec une fonction anonyme

[lepiaf69]

ok, super, merci. cela change totalement mon code.

[aus3004]

Salut tout le monde,

j'aimerais juste savoir si ce code fonctionne avec une boucle comprennant plusieurs fichiers.
Voila mon code, j'ai une erreur :

L'index était hors limites. Il ne doit pas être négatif et doit être inférieur à la taille de la collection. Nom du paramètre : index

Code :

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

1
2
3
4
5
6
7
8
For Each files In My.Computer.FileSystem.GetFiles("C:\dossier", FileIO.SearchOption.SearchAllSubDirectories, "*txt")
                Dim lines As List(Of String) = System.IO.File.ReadAllLines(files).ToList
                For i As Integer = 0 To lines.Count - 1
                    If lines(i).Contains("texte") Then
                        lines.RemoveAt(i)
                    End If
                Next
            Next

Si vous avez une idée, ca serait sympat de m'aider.
bon dev

[Pol63]

oui, sauf qu'avant le 2ème for il faut mettre

Code :

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

if lines.count = 0 then continue for

[aus3004]

Merci d'avoir répondu !
Je viens de tester et il y a la même erreur :

L'index était hors limites. Il ne doit pas être négatif et doit être inférieur à la taille de la collection. Nom du paramètre : index

Sur :

Code :

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

If lines(i).Contains(TextBox5.Text) Then