Supprimer ligne dans fichier texte [Résolu]
cs_aus3004
- Messages postés
- 319
- Date d'inscription
- jeudi 1 avril 2010
- Dernière intervention
- 16 mars 2011
- Messages postés
- 14357
- Date d'inscription
- vendredi 14 mars 2003
- Dernière intervention
- 19 janvier 2019
A voir également:
- Supprimer ligne dans fichier texte
- Supprimer lignes vides fichier texte - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Echanger deux lignes dans fichier texte ✓ - Forum - Visual Basic 6
- Lire ligne paire fichier texte pour le faire afficher dans textbox ✓ - Forum - Visual Basic 6
- Supprimer caractère dans fichier texte ✓ - Forum - VB.NET
- Supprimer les lignes vides dans un fichier texte - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
20/23 réponses
Meilleure réponse
- Messages postés
- 14357
- Date d'inscription
- vendredi 14 mars 2003
- Dernière intervention
- 19 janvier 2019
Bonjour,
Ajoute le .ToArray à la ligne d'écriture.
For Each files In My.Computer.FileSystem.GetFiles(TextBox1.Text, FileIO.SearchOption.SearchAllSubDirectories, "*.txt")
'' J'ai remis le point entre * et txt
Dim lines As List(Of String) = System.IO.File.ReadAllLines(files).ToList
If lines.Count = 0 Then Continue For
For i = lines.Count - 1 To 0 Step -1
If lines(i).Contains("toto") Then
lines.RemoveAt(i)
End If
Next
System.IO.File.WriteAllLines(files, lines.ToArray)
Next
Ajoute le .ToArray à la ligne d'écriture.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
88 internautes nous ont dit merci ce mois-ci
- Messages postés
- 14357
- Date d'inscription
- vendredi 14 mars 2003
- Dernière intervention
- 19 janvier 2019
Bonjour,
Si ta ligne contient "toto", tu la retire, donc ça fait une ligne de moins.
Mais les bornes du For ne sont calculées qu'au début de la boucle, donc, une modification du nombre de lignes en cours de boucle, ne sera pas prise en compte.
2 solutions :
Soit un If pour faire un Exit For si i>Lines.count-1
soit plus fin, partir de la dernière ligne pour remonter :
For i As Integer = 0 To lines.Count - 1
deviendrait :
For i As Integer = lines.Count - 1 to 0 step -1
For i As Integer = 0 To lines.Count - 1
If lines(i).Contains("toto") Then
lines.RemoveAt(i)
End If
Next
Si ta ligne contient "toto", tu la retire, donc ça fait une ligne de moins.
Mais les bornes du For ne sont calculées qu'au début de la boucle, donc, une modification du nombre de lignes en cours de boucle, ne sera pas prise en compte.
2 solutions :
Soit un If pour faire un Exit For si i>Lines.count-1
soit plus fin, partir de la dernière ligne pour remonter :
For i As Integer = 0 To lines.Count - 1
deviendrait :
For i As Integer = lines.Count - 1 to 0 step -1
- Messages postés
- 319
- Date d'inscription
- jeudi 1 avril 2010
- Dernière intervention
- 16 mars 2011
- Messages postés
- 269
- Date d'inscription
- dimanche 31 mai 2009
- Dernière intervention
- 12 mars 2011
Ah oui ma solution ne marche pas,
mais comment ça se fait que si i est plus
grand que lines.count-1 la boucle for n'est pas stoppée ?
@aus3004 pour la première solution de NHenry, ça donnes :
For i As Integer = 0 To lines.Count - 1
If i > lines.Count - 1 Then
Exit For
End If
If lines(i).Contains("toto") Then
lines.RemoveAt(i) : i += 1
End If
Next
Pour la seconde, ça donne :
If lines(i).Contains("toto") Then
lines.RemoveAt(i) : i += 1
End If
Salutations
mais comment ça se fait que si i est plus
grand que lines.count-1 la boucle for n'est pas stoppée ?
@aus3004 pour la première solution de NHenry, ça donnes :
For i As Integer = 0 To lines.Count - 1
If i > lines.Count - 1 Then
Exit For
End If
If lines(i).Contains("toto") Then
lines.RemoveAt(i) : i += 1
End If
Next
Pour la seconde, ça donne :
If lines(i).Contains("toto") Then
lines.RemoveAt(i) : i += 1
End If
Salutations
- Messages postés
- 319
- Date d'inscription
- jeudi 1 avril 2010
- Dernière intervention
- 16 mars 2011
- Messages postés
- 319
- Date d'inscription
- jeudi 1 avril 2010
- Dernière intervention
- 16 mars 2011
- Messages postés
- 269
- Date d'inscription
- dimanche 31 mai 2009
- Dernière intervention
- 12 mars 2011
J'ai essayé les deux solutions de NHenry,
avec un fichier texte avec plusieurs lignes,
certaines contenant toto, ensuite
dans une boucle for je regarde le résultat :
for i=0 to lines.count-1
msgbox(lines(i))
next i '' donc après la modification bien sur
Qu'est ce que tu veux dire par ne marche pas ?
Quel résultat tu veux obtenir ?
avec un fichier texte avec plusieurs lignes,
certaines contenant toto, ensuite
dans une boucle for je regarde le résultat :
for i=0 to lines.count-1
msgbox(lines(i))
next i '' donc après la modification bien sur
Qu'est ce que tu veux dire par ne marche pas ?
Quel résultat tu veux obtenir ?
- Messages postés
- 269
- Date d'inscription
- dimanche 31 mai 2009
- Dernière intervention
- 12 mars 2011
Essayes :
Salutations
For Each files In My.Computer.FileSystem.GetFiles(TextBox1.Text, FileIO.SearchOption.SearchAllSubDirectories, "*.txt")
'' J'ai remis le point entre * et txt
Dim lines As List(Of String) = System.IO.File.ReadAllLines(files).ToList
If lines.Count = 0 Then Continue For
For i = lines.Count - 1 To 0 Step -1
If lines(i).Contains("toto") Then
lines.RemoveAt(i)
End If
Next
System.IO.File.WriteAllLines(TextBox1.Text, lines) '?
Next
Salutations
- Messages postés
- 319
- Date d'inscription
- jeudi 1 avril 2010
- Dernière intervention
- 16 mars 2011
- Messages postés
- 269
- Date d'inscription
- dimanche 31 mai 2009
- Dernière intervention
- 12 mars 2011
Alors c'est :
For Each files In My.Computer.FileSystem.GetFiles(TextBox1.Text, FileIO.SearchOption.SearchAllSubDirectories, "*.txt")
Dim lines As List(Of String) = System.IO.File.ReadAllLines(files).ToList
If lines.Count = 0 Then Continue For
If lines.Count = 0 Then Continue For
For i = lines.Count - 1 To 0 Step -1
If lines(i).Contains("toto") Then
lines.RemoveAt(i)
End If
Next
System.IO.File.WriteAllLines(files, lines)
Next - Messages postés
- 319
- Date d'inscription
- jeudi 1 avril 2010
- Dernière intervention
- 16 mars 2011
- Messages postés
- 14357
- Date d'inscription
- vendredi 14 mars 2003
- Dernière intervention
- 19 janvier 2019
Bonjour,
Je reprend le code de Raffika (qui a utilisé la 2ième solution que j'évoquais) :
Normalement, ça devrait fonctionner.
Je reprend le code de Raffika (qui a utilisé la 2ième solution que j'évoquais) :
For Each files In My.Computer.FileSystem.GetFiles(TextBox1.Text, FileIO.SearchOption.SearchAllSubDirectories, "*.txt")
'' J'ai remis le point entre * et txt
Dim lines As List(Of String) = System.IO.File.ReadAllLines(files).ToList
If lines.Count = 0 Then Continue For
For i = lines.Count - 1 To 0 Step -1
If lines(i).Contains("toto") Then
lines.RemoveAt(i)
End If
Next
System.IO.File.WriteAllLines(files, lines)
Next
Normalement, ça devrait fonctionner.
- Messages postés
- 107
- Date d'inscription
- samedi 25 novembre 2000
- Dernière intervention
- 4 mai 2013
Bonsoir,
Tu peux tenter ceci j'ai commenté pour expliquer, mais s'il te reste des questions n'hésite pas
Cordialement !
Tu peux tenter ceci j'ai commenté pour expliquer, mais s'il te reste des questions n'hésite pas
Dim files(), lines() As String
Dim output As New List(Of String)
Try
' Récupère les chemins des fichiers
files = IO.Directory.GetFiles(TextBox1.Text, "*txt", IO.SearchOption.AllDirectories)
For Each file In files
' Vide la liste
output.Clear()
' Récupère les lignes du fichier
lines = IO.File.ReadAllLines(file)
For Each line In lines
' Si la ligne ne contient pas 'toto' on l'ajoute à la liste
If Not line.Contains("toto") Then
output.Add(line)
End If
Next
' Ne réécrit le fichier que si le contenu à changé
' autrement dit si son nombre de ligne a baissé
If output.Count < lines.Length Then
' Je réécris dans le même fichier, si tu ne le souhaites pas
' pense à changer le 1er paramètre
System.IO.File.WriteAllLines(file, output)
End If
Next
Catch ex As Exception
' En cas de problème (si un fichier est utilisé par une autre application par exemple)
MessageBox.Show(ex.Message, "Une erreur est survenue")
End Try
Cordialement !
- Messages postés
- 319
- Date d'inscription
- jeudi 1 avril 2010
- Dernière intervention
- 16 mars 2011
Ouais merci les gars ca avance grave
Mais dans chacun de vos codes il y a 1 erreur.
Ma LV2 c'est le Visual Basic, et toi ?
Mais dans chacun de vos codes il y a 1 erreur.
For Each files In My.Computer.FileSystem.GetFiles(TextBox1.Text, FileIO.SearchOption.SearchAllSubDirectories, "*.txt")
'' J'ai remis le point entre * et txt
Dim lines As List(Of String) = System.IO.File.ReadAllLines(files).ToList
If lines.Count = 0 Then Continue For
For i = lines.Count - 1 To 0 Step -1
If lines(i).Contains("toto") Then
lines.RemoveAt(i)
End If
Next
System.IO.File.WriteAllLines(files, lines)
Next
Une valeur de type 'System.Collections.Generic.List(Of String)' ne peut pas être convertie en 'Tableau à 1 dimension(s) de String'.
Dim files(), lines() As String
Dim output As New List(Of String)
' Récupère les chemins des fichiers
files = IO.Directory.GetFiles(TextBox1.Text, "*txt", IO.SearchOption.AllDirectories)
For Each file In files
' Vide la liste
output.Clear()
' Récupère les lignes du fichier
lines = IO.File.ReadAllLines(file)
For Each line In lines
' Si la ligne ne contient pas 'toto' on l'ajoute à la liste
If Not line.Contains("toto") Then
output.Add(line)
End If
Next
' Ne réécrit le fichier que si le contenu à changé
' autrement dit si son nombre de ligne a baissé
If output.Count < lines.Length Then
' Je réécris dans le même fichier, si tu ne le souhaites pas
' pense à changer le 1er paramètre
System.IO.File.WriteAllLines(file, output)
End If
Next
Une valeur de type 'System.Collections.Generic.List(Of String)' ne peut pas être convertie en 'Tableau à 1 dimension(s) de String'.
Ma LV2 c'est le Visual Basic, et toi ?
- Messages postés
- 269
- Date d'inscription
- dimanche 31 mai 2009
- Dernière intervention
- 12 mars 2011
Il reste bien entendu cette dernière solution,
qui marches, selon le principe que la dernière ligne
contiendra obligatoirement un Environment.Newline
mais qui peut être modifié ...
Salutations
qui marches, selon le principe que la dernière ligne
contiendra obligatoirement un Environment.Newline
mais qui peut être modifié ...
For Each files In My.Computer.FileSystem.GetFiles(TextBox1.Text, FileIO.SearchOption.SearchAllSubDirectories, "*.txt")
Dim lines As List(Of String) = System.IO.File.ReadAllLines(files).ToList
If lines.Count = 0 Then Continue For
If lines.Count = 0 Then Continue For
For i = lines.Count - 1 To 0 Step -1
If lines(i).Contains("toto") Then
lines.RemoveAt(i)
End If
Next
Dim resultat As String = "" '' On crée une variable string
For i = 0 To lines.Count - 1
resultat &= lines(i) & Environment.NewLine
'' on met les lignes de 'lines' une par unes suivies de
'' Environment.Newline (retour à la ligne)
Next
'' et on écrit le fichier selon la méthode Writealltext
'' qui écrit la string resultat dans le fichier files
System.IO.File.WriteAllText(files, resultat)
Next
Salutations
- Messages postés
- 319
- Date d'inscription
- jeudi 1 avril 2010
- Dernière intervention
- 16 mars 2011
J'ai pris le dernier code de NHenry, c'est impec !
@NHenry, mdr ta signature, moi je connais la Haute Autorité pour le Développement Optimal du Piratage sur Internet
Une dernière question, est-ce que cela marche avec tous les fichiers de texte à votre avis (dsl, je peux pas tester) ?
Ma LV2 c'est le Visual Basic, et toi ?
@NHenry, mdr ta signature, moi je connais la Haute Autorité pour le Développement Optimal du Piratage sur Internet
Une dernière question, est-ce que cela marche avec tous les fichiers de texte à votre avis (dsl, je peux pas tester) ?
Ma LV2 c'est le Visual Basic, et toi ?
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.