Fichier texte et inputbox

Question

Bonjour amis de la communauté,

Je sollicite votre aide. Je m'explique.

Lors de l'ouverture de mon inputbox, je saisie du texte et je l'enregistre dans un fichier .txt jusque là tout va bien.

Quand je ré-ouvre cette inputbox et que je saisie du texte, celui écrase l'ancien texte ajouter précédemment.

J'aimerais que le texte s'ajoute l'un à la suite de l'autre, que dois-je modifier dans mon code ???

Merci de votre aide

    Private Sub CmdAjoutUtilisateuOutils_Click(sender As Object, e As EventArgs) Handles CmdAjoutUtilisateuOutils.Click
        '***************************************************************************************************************
        '************                  C R E A T I O N      I N P U T B O X                                 ************
        '************                                                                                       ************
        '***************************************************************************************************************

Dim message, title, defaultValue As String
        Dim myValue As Object
        ' affiche le texte pour l'utilisateur
        message = "Ajouter un nouvel utilisateur"
        ' Donne le titre à l'inputbox
        title = "Utilisateur"
        defaultValue = ""   ' valeur par defaut

' Affiche le titre, le message et la valeur par defaut.
        myValue = InputBox(message, title, defaultValue)
        ' Si l'utilisateur a cliqué sur Annuler, la valeur par defaut se met
        If myValue Is "" Then myValue = defaultValue

'***************************************************************************************************************
        '************         E N R E G I S T R E M E N T   D E  I N P U T B O X                            ************
        '************                                                                                       ************
        '***************************************************************************************************************
        ' Créer la chaîne de caractères avec les lignes de texte en  retour de l'inputbox
        Dim lines() As String = {myValue}

' Définit une variable sur le chemin Mes documents.
        Dim mydocpath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)

' Écrit le nouveau fichier nommé "IN_OUT-outils.txt".
        Using outputFile As New IO.StreamWriter(mydocpath & Convert.ToString("\IN_OUT-outils.txt"))
            For Each line As String In lines
                outputFile.WriteLine(line)
            Next
        End Using

jordane45 · Answer

Bonjour 

Peut être  ceci
 https://msdn.microsoft.com/fr-fr/library/system.io.file.appendtext(v=vs.110).aspx

Whismeril · Answer

Bonjour,

ça n'a rien à voir avec l'inputbox, c'est ta façon d'écrire le fichier.
Tu écris un fichier entier, donc forcément ça écrase le précédent.

Essaye

File.AppendAllText(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) + "\IN_OUT-outils.txt", myValue + Environment.NewLine)
 

A la place de tout ça
        ' Créer la chaîne de caractères avec les lignes de texte en  retour de l'inputbox
        Dim lines() As String = {myValue}

' Définit une variable sur le chemin Mes documents.
        Dim mydocpath As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)

' Écrit le nouveau fichier nommé "IN_OUT-outils.txt".
        Using outputFile As New IO.StreamWriter(mydocpath & Convert.ToString("\IN_OUT-outils.txt"))
            For Each line As String In lines
                outputFile.WriteLine(line)
            Next
        End Using


D'autre part, il n'est pas nécessaire de convertir en string "\IN_OUT-outils.txt" ou quoique ce soit écrit entre guillemets, en effet c'est déjà une string.

Enfin, je t'ai proposé, par 2 fois, la lecture d'un article prévenant des erreurs à éviter quand on vient de VB6, force est de constater que tu n'as pas appliqué les conseils qui y sont présentés. Car InputBox n'est pas une instruction VB.Net, mais un import de VB6, ça marche souvent ces imports, mais des fois ça plante. Et là il est très difficile de trouver pourquoi.

Fichier texte et inputbox

2 réponses

Votre réponse

Discussions similaires