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
Comme ShayW l'a dit, vbCrLf fait 2 caractères, donc
Public Structure Personne
<VBFixedString(20)> Dim Nom As String
<VBFixedString(20)> Dim prenom As String
<VBFixedString(20)> Dim age As String
<VBFixedString(2)> Dim newligne As String
End Structure
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
comme tu me l'as dit précédemment j'ai ajouté dans ma structure la variable newligne,donc j'ai:
Public Structure Adresse
<VBFixedString(20)> Dim Nom As String
<VBFixedString(20)> Dim Rue As String
<VBFixedString(20)> Dim Ville As String
<VBFixedString(1)> 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
Public Structure Adresse
<VBFixedString(20)> Dim Nom As String
<VBFixedString(20)> Dim prenom As String
<VBFixedString(20)> Dim age As String
<VBFixedString(1)> Dim newligne As String
End Structure
Encore désolé!!
c'est la structure Personne donc:
la structure est :
Public Structure Personne
<VBFixedString(20)> Dim Nom As String
<VBFixedString(20)> Dim prenom As String
<VBFixedString(20)> Dim age As String
<VBFixedString(1)> Dim newligne As String
End Structure