Affichage dans fichierRésolu

Question

ICONIC FIGURE

Bonsoir à tous!!!
j'ai une petite application qui enregistre dans un fichier le nom,le prénom et l'age...
l'enregistrement se passe sans problème mais lorsque j'ouvre mon fichier,les enregistrements sont tous sur la même ligne c.à.d si je fais 2 enregistrement j'ai dans le fichier les enregistrements comme suit:

dave                jack                56                  luke                dayan               80  
mais je veux que le prochain enregistrement aille sur la ligne c.à.d que j'ai dans le fichier:

1.dave                jack                56 
2.luke                dayan               80


voici le code que j'ai utilisé:
 Private Sub premier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles premier.Click

        RecLength = Len(UneAdresse)
        FileNum = FreeFile()
        FileOpen(FileNum, "D:\page.txt", OpenMode.Random, , , RecLength)
        Personne.Nom = nom.Text
        Personne.prenom= prenom.Text
        Personne.age= age.Text
        FilePut(FileNum, Personne)
        nom.Text = ""
        prenom.Text = ""
        age.Text = ""
        FileClose(FileNum)

 Private Sub prochainenregistrement_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles prochainenregistrement.Click
        RecLength = Len(UneAdresse)
        FileNum = FreeFile()
        FileOpen(FileNum, "D:\page.txt", OpenMode.Random, , , RecLength)
        last = FileLen("D:\page.txt") / RecLength
        Personne.Nom = nom.Text
        Personne.prenom= prenom.Text
        Personne.age= age.Text

        FilePut(FileNum, Personne, last + 1)
        nom.Text = ""
        prenom.Text = ""
        age.Text = ""
        FileClose(FileNum)
    End Sub

    End Sub

Merci d'avance!!

foliv57 · Accepted Answer

Comme ShayW l'a dit, vbCrLf fait 2 caractères, donc Public Structure Personne Dim Nom As String Dim prenom As String Dim age As String Dim newligne As String End Structure Dim newligne As String et ca devrait rouler

cs_ShayW · Answer

Bonjour
Ajoutes
 Public Const x As String = vbCrLf
Ajoutes à la structure  de personne en dernier
Structure persone
'le vbcrlf a 2 characters
 newline as string(1)
end structure

personne.newline = x

NSUADI · Answer

ICONIC FIGURE

Désolé mais je n'ai toujours rien de concluant...

cs_ShayW · Answer

Salut
C'est quoi la déclaration de
une addresse
personne
nom prenom age sont des textboxes?
Envoies avec le code

NSUADI · Answer

ICONIC FIGURE comme tu me l'as dit précédemment j'ai ajouté dans ma structure la variable newligne,donc j'ai: Public Structure Adresse Dim Nom As String Dim Rue As String Dim Ville As String Dim newligne As String End Structure Public Const cn As String = vbCrLf Erreur de syntaxe mais le code est : Private Sub premier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles premier.Click RecLength = Len(Personne) FileNum = FreeFile() FileOpen(FileNum, "D:\page.txt", OpenMode.Random, , , RecLength) Personne.Nom = nom.Text Personne.prenom= prenom.Text Personne.age= age.Text Personne.newligne= cn 'la nouvelle instruction pour passer à la ligne FilePut(FileNum, Personne) nom.Text = "" prenom.Text = "" age.Text = "" FileClose(FileNum) Private Sub prochainenregistrement_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles prochainenregistrement.Click RecLength = Len(Personne) FileNum = FreeFile() FileOpen(FileNum, "D:\page.txt", OpenMode.Random, , , RecLength) last = FileLen("D:\page.txt") / RecLength Personne.Nom = nom.Text Personne.prenom= prenom.Text Personne.age= age.Text FilePut(FileNum, Personne, last + 1) nom.Text = "" prenom.Text = "" age.Text = "" FileClose(FileNum) End Sub

NSUADI · Answer

ICONIC FIGURE re-oups!! la structure est : Public Structure Adresse Dim Nom As String Dim prenom As String Dim age As String Dim newligne As String End Structure

NSUADI · Answer

ICONIC FIGURE Encore désolé!! c'est la structure Personne donc: la structure est : Public Structure Personne Dim Nom As String Dim prenom As String Dim age As String Dim newligne As String End Structure My bad

Affichage dans fichier

7 réponses

Votre réponse