VB/VB.Net Gestionnaire Dof

[mrfrag]

Bonjour je suis en train de crée un Gestionnaire Dof. regarder le screen.

J'arrive à supprimer un compte ajouter un compte etc .... mais le truc c'est que une fois un compte ajouter et bas sa enregistre pas le compte enfin si sa l enregistre dans un fichier texte à la racine du programme via le code ( sa enregistre que le NDC pas le MPD pas le Mail pas le pseudo):

        Dim name_file As String
        name_file = "Account"
        Dim monwriter As New IO.StreamWriter(name_file & ".txt", True)
        'ndc mdp ect sa c'est une ligne du fichier que tu ecrit
        monwriter.Write(TextBox5.Text, TextBox6, TextBox7, TextBox8)
        monwriter.Close()
        Dim message As String = ""
        message = "Le compte à bien été ajouter." & vbCrLf
        MsgBox(message, MsgBoxStyle.Information, "Compte enregistré avec succès")

Apres des que je ferme le programme bas le compte enregistrez bas il y est plus donc si vous pouviez m'aider merci.

 

[ToOnS]

monwriter.Write(TextBox5.Text, TextBox6, TextBox7, TextBox8)
c'est
monwriter.Write(TextBox5.Text & "|" & TextBox6.Text & "|" & TextBox7.Text & "|" & TextBox8.Text)

 

[miniteck27140]

Remplace :
monwriter.Write(TextBox5.Text, TextBox6, TextBox7, TextBox8)
Par :
monwriter.Write(TextBox5.Text & TextBox6 & TextBox7 & TextBox8)

 

[Nicogo]

salut, je n'ai pas bien compris, tu veux faire une info par ligne ? ou tout en vrac séparer par un caractère ?

tien :

Public Sub test()
        Dim name_file As String
        name_file = "Account"
        Dim monwriter As New IO.StreamWriter(name_file & ".txt", True)
        'ndc mdp ect sa c'est une ligne du fichier que tu ecrit
        monwriter.Write("test0" & "|" & "test1" & "|" & "test2" & "|" & "test3" & vbNewLine)
        monwriter.Close()
        Dim message As String = ""
        message = "Le compte à bien été ajouter." & vbCrLf
        MsgBox(message, MsgBoxStyle.Information, "Compte enregistré avec succès")
    End Sub
    Public Sub testline()
        Dim name_file As String
        name_file = "Account"
        Dim monwriter As New IO.StreamWriter(name_file & ".txt", True)
        'ndc mdp ect sa c'est une ligne du fichier que tu ecrit
        monwriter.Write("test0" & vbNewLine & "test1" & vbNewLine & "test2" & vbNewLine & "test3" & vbNewLine)
        monwriter.Close()
        Dim message As String = ""
        message = "Le compte à bien été ajouter." & vbCrLf
        MsgBox(message, MsgBoxStyle.Information, "Compte enregistré avec succès")
    End Sub

c'est vraiment très simple ^^

 

[mrfrag]

Merci de vos réponse mais javais trouver ^^