[VB6] Modifier fichier texte

Question

Bonjour à tous

Ma question est assez simple....
Je créé un fichier texte, que je remplis avec certaines valeurs.
Je voudrais savoir comment je peux faire pour ne pas écraser les données présentes à chaque fois que je viens écrire dedans.
Je termine mon premier jet de valeur par un délimiteur (####) et je souhaiterai venir écrire les nouvelles à la suite de ce délimiteur.

Merci par avance

doolidodom1 · Answer

Bonjour ,  oreilledelest!
Voici un script..
Imports System.IO

Sub FichierTexte(ByVal NomFichier As String)
    Dim sr As StreamReader
    Dim sw As StreamWriter
    Dim sLine As String
    Try
        If Not File.Exists(NomFichier) Then
            'Le fichier n'existe pas. On le crée
            sw = New StreamWriter(NomFichier)
            sw.WriteLine("Bonjour. Il nous sommes le {0} et il est {1} ", _
 DateTime.Now.ToLongDateString, _
 DateTime.Now.ToLongTimeString)
            sw.Close()
            sw = Nothing
            'Remarque : On peut utiliser sw = File.AppendText(NomFichier) pour ajouter
            'du texte à un fichier existant
        End If
        'Ouverture du fichier et Ecriture du contenu du fichier sur la console
        sr = New StreamReader(NomFichier)
        Console.WriteLine("Debut du fichier")
        sLine = sr.ReadLine()
        While Not sLine Is Nothing
            Console.WriteLine(sLine)
            sLine = sr.ReadLine()
        End While
        Console.WriteLine("Fin du fichier")
    Finally
        'Fermeture streamreader
        If Not IsNothing(sr) Then sr.Close()
        'Fermeture streamwriter
        If Not IsNothing(sw) Then sw.Close()
    End Try
End Sub

J'espere que cela t'inspireras...

[VB6] Modifier fichier texte

1 réponse

Newsletters