Discussion :

[Ykaar]

Bonjour à tous.

J'ai un fichier texte sous cette forme :

Code :

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

1
2
3
4
5
 
aaaaaaaaaaaaaaaaa_ligne1
aaaaaaaaaaaaaaaaa_ligne2
aaaaaaaaaaaaaaaaa_ligne3
etc...

Je souhaiterai tout simplement supprimer une ligne de mon choix (suppr ligne where texte like '%ligne2' en gros).

J'ai fouillé un peu partout mais rien trouvé qui ne corresponde vraiment à mon besoin, à priori simple.

Merci d'avance pour votre aide

[tomlev]

Il faut lire tout le fichier en mémoire, et le réécrire sans la ligne que tu veux supprimer. Un truc comme ça :

Code :

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

1
2
3
4
5
6
7
8
Dim lines() As String = File.ReadAllLines(le_chemin_du_fichier)
Dim writer As New StreamWriter(le_chemin_du_fichier)
For Each line As String In lines
    If Not line.Contains("ligne2") Then
        writer.WriteLine(line)
    End If
Next
writer.Close

[Ykaar]

Merci beaucoup ! Je vais tester ça de ce pas et je te tiens au courant

En tout cas ça ressemble étroitement à ce que je souhaite.

[Ykaar]

Merci beaucoup le code fonctionne très bien tel quel !

J'aurai juste une demande supplémentaire si tu as quelques minutes s'il te plait. J'ai une contrainte qui fait que dans l'exemple ci-dessus, le mot recherché "ligne2" peut être en majuscule ou en minuscule dans le fichier texte.

Je souhaiterai donc lire le fichier en passant tous les caractères en majuscule avant de faire la recherche pour savoir quelle ligne supprimer.

Je sais comment passer une chaine de caractère en majuscule, mais le faire en même temps que l'ouverture d'un fichier texte sur lequel on boucle ligne par ligne :-/

Merci encore

[tomlev]

il suffit que tu appelles la méthode ToUpper sur la ligne en cours de traitement...

Code :

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

1
2
3
4
 
...
If Not line.ToUpper().Contains("LIGNE2") Then
...

[Ykaar]

Merci encore ça marche parfaitement !