Imports System.IO
Dim str_texte as string = "Test d'écriture dans un fichier texte" File.WriteAllText("c:\testFichierTexte.txt", str_texte)
File.AppendAllText("c:\testFichierTexte.txt", "Cette ligne a été rajouté par la méthode AppendAllText")
Dim str_texte as string str_texte = File.ReadAllText("c:\testFichierTexte.txt")
'Lit le fichier texte et le stocke dans un tableau Dim str_lignes() As String = File.ReadAllLines("c:\origine.txt") Dim int_compteur As Integer = 0 Dim int_i As Integer = 0 'Supprime les lignes vides en remontant les lignes non vides For int_i = 0 To str_lignes.length - 1 If str_lignes(int_i).Trim.Length > 0 Then str_lignes(int_compteur) = str_lignes(int_i) int_compteur +=1 End If Next 'Supprime les lignes en trop et stocke le tout dans un nouveau fichier ReDim Preserve str_lignes(int_compteur - 1) File.WriteAllLines("c:\destination.txt", str_lignes)
Avis de décès, Carte de voeux, Bricolage, Coloriages, Cinéma, Coiffure, Cuisine, Déco, Dictionnaire, Horoscope, Jeux en ligne, Programme TV, Recettes, Restaurant, SMIC, Test débit, Voyage, Signification prénom