Probleme de fichiers texte

Question

Salut
Voila quand j'écrit dans un fichier txt (via le prog), il y a 4 ligne et il me saute la 3 eme
si les infos sont
Joueur 1
Ordi
5
10
il affiche :
Joueur 1
Ordi
10

Voici le code : Pour sauvegarder :
Private Sub SaveName_Click()
Dim name1 As String
Dim name2 As String
Dim score1 As String
Dim score2 As String
name1 = Voust.Text
name2 = Autret.Text
score1 = PJ1.Caption
score1 = PJ2.Caption
Open App.Path & "" & "save.txt" For Output As #1
Print #1, name1
Print #1, name2
Print #1, score1
Print #1, score2
Close #1
End Sub

Le code pour charger :
Private Sub Command2_Click()
Dim Var1
Dim Var2
Dim Var3
Dim Var4
Open App.Path & "" & "save.txt" For Input As #2
Input #2, Var1
Input #2, Var2
Input #2, Var3
Input #2, Var4
Close #2
Voust.Text = Var1
Autret.Text = Var2
VJ1 = Var3
VJ2 = Var4
PJ1.Caption = Var3
PJ2.Caption = Var4
End Sub

Voila mon probleme je ne pense pas que cela viennent du chargement car quand j'ouvre le fichier txt avec notepad il affiche les meme info que si on clique sur chargement
Merci de m'aider
CIAO
SZ

PatDeLaYaute · Answer

Salut, ton problèm est tout simple
tu as fait une petite erreur a la ligne 8 lors de l'enregistrement au lieu de Score2 tu a mis Score1.

@+

leneuf22 · Answer

Bien vu !

Pendant que j'y suis au lieu de mettre
Open App.Path & "" & "save.txt" For Input As #2

Tu peux mettre

Open App.Path & "\save.txt" For Input As #2

Simple remarque...

Probleme de fichiers texte

2 réponses

Discussions similaires