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

[Pol63]

cette erreur veut dire que lines(i) n'existe pas, donc que i est supérieur au nombre possible
lines va de 0 à n-1 pour un count = n, mais lines n'est pas indexable s'il ne contient rien

donc normalement avec ce que je dis ca évite le problème

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
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
  If lines.count = 0 then Continue For ' ne passe pas à la ligne de dessous mais remonte pour traiter le prochain fichier
 
  For i As Integer = 0 To lines.Count - 1
    If lines(i).Contains("texte") Then
      lines.RemoveAt(i)
    End If
  Next
 
Next

vérifie en pas à pas ...

et d'ailleurs avec removeat ca ne doit pas fonctionner, car si i vaut par exemple 5, qu'on remove à l'emplacement 5, i passe à 6 alors que celui qui était indexé à 6 avant se retrouve en 5 (vu qu'on a retiré un élément)
il faudrait donc décrémenter i de 1 dans le if contains


ou sinon ma solution avec linq qui ne passe pas par un itérateur local

[aus3004]

Ouais ta raison, c'est pas possible comme ca.
Le code donne toujours la même erreur...

Je vais me passer de ce code, merci quand même.

[Imad_ing]

Bonjour tout le monde.

Moi je cherche une solution pour supprimer du fichier F1 toute ligne se trouvant dans un autre fichier F2.
Quelqu'un pourrait me donner une solution rapide? Genre utiliser la solution de Pol63, mais lui passer comme paramètre une ligne de mon fichier F2 et non pas un mot.

NB: J'aimerai bien que mon fichier de sortie respecte le tri tel que le fichier F1.

Merci d'avance pour vos réponses .

[Pol63]

avec le readalllines tu mets les lignes de f1 dans une collection, puis une ligne de f2 dans une autre
et ensuite

Code :

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

linesFinal = linesF1.Where(New Func(Of String, Boolean)(Function(s As String) (Not linesF2.Contains(s))))

puis writer linesFinal dans le fichier voulu

.where va appeler la fonction entre parenthèse pour chaque élément de F1 dans l'ordre de F1 en donnant l'element à la fonction
c'est une fonction anonyme ici mais on aurait pu faire avec une fonction normale avec un where(new func(of string, boolean)(addressof ElementNestPasDansF2)) et

Code :

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

1
2
3
private function ElementNestPasDansF2(elementDeF1 as string) as boolean
  return not linesF2.contains(elementDeF1)
end function

linesF1.Where retournant les elements de linesF1 qui satisfont la condition du where dans l'ordre original

[Imad_ing]

Moi je cherche une solution pour supprimer du fichier F1 toute ligne se trouvant dans un autre fichier F2

Merci pour votre réponse, je la déploierai tout à l'heure en fin de travail, et je la garderai pour moi; car les gens qui me l'ont demandé viennent de le redemander en Java !!!

Merci bcp Pol63 pour la solution