Enregistrement et récupération de deux données dans un fichier .txtRésolu

Question

Salut les amis !!
Je dois pour les cours développer une petite application qui doit me permettre l'enregistrement et la récupération de 2 données dans un 
fichier texte avec VB6

Je m'explique,
je dois enregistrer dans un fichier .txt nommé "meilleursscores.txt" le nom et le temps mis par le joueur pour réaliser sa partie.
et ensuite les afficher dans 2 listbox différentes. il faut bien sur que les indices correspondent afin d'avoir les bon résultat
affectés au bon nom.

l'une s'appelle nom et l'autre score.
j'y arrive avec une seule mais impossible de le faire avec 2 ...

voici mon code pour l'ajout d'un score ... (mais pas pour nom et scores comme demandé !!!)

Private Sub enregistre(scores As ListBox)
    Open App.Path & "" & "meilleursscores.txt" For Output As 1
    For i = 0 To scores.ListCount - 1
        scores.ListIndex = i
        Print #1, scores.Text
    Next
    Close 1
End Sub

Si quelqu'un sait comment faire ??? 
Merci d'avance  !!!

cnt · Accepted Answer

Peut être ça, simplement
Private Sub enregistre(scores As ListBox, noms As Listbox )
    Open App.Path & "" & "meilleursscores.txt" For Output As 1
    For i = 0 To scores.ListCount - 1
        scores.ListIndex = i
        noms.ListIndex = i
        Print #1, scores.Text  &  ","  &  noms.Text
    Next
    Close 1
End Sub

cs_Jack · Answer

Salut
Tu tapes "fichier score" dans la case Rechercher parmi les Codes en excluant .Net et tu auras des exemples, suffira d'adapter

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Splif62 · Answer

Ok sa sa fonctionne !!! merci les amis !!! 
j'ai un autre soucis (enfin g pas encore cherché il faut dire ...)
Comment faire pour vider le fichier texte avant chaque enregistrement ??

cnt · Answer

salut l'ami
la réécriture du fichier écrase les données précédentes, donc pas de souci
voila 

CNTJC

Splif62 · Answer

Merci de ta réponse CNT !
Je trouve sa bizarre, quand je ferme mon application et que je la relance, lorsque je vais afficher les résultats
ceux ci sont en double ... ???

Splif62 · Answer

En fait, avec cette solution j'enregistre le_nom , le_score dans le fichier.
donc dans mon fichier se trouve par exemple :
Jean , 13
alfred , 15
etc ...
Ce que je souhaite faire c'est afficher le nom dans une listbox et le score dans une autre ...
le problème c'est que quand je relance l'application et que je consulte les scores je me retrouve avec sa :
Jean , 13, Jean , 13
alfred , 15, alfred , 15
etc ...

durant toute la partie je peut ouvrir les scores sans probleme mais lorsque je ferme l'application et que je la relance,
tous les scores on été doublés ...

voici les codes d'affichage et de sauvegarde des scores :

affichage :
Private Sub Ouvrescores(noms As ListBox, scores As ListBox)
    Open App.Path & "" & "meilleursscores.txt" For Input As 1
        Do Until EOF(1)
            Line Input #1, strcopy
            noms.AddItem strcopy
            scores.AddItem strcopy
        Loop
    Close 1
End Sub

sauvegarde :
Private Sub enregistre(noms As ListBox, scores As ListBox)
    Open App.Path & "" & "meilleursscores.txt" For Output As 1
    For i = 0 To scores.ListCount - 1
        scores.ListIndex = i
        noms.ListIndex = i
        Print #1, scores.Text & "," & noms.Text
    Next
    Close 1
End Sub

Je ne vois pourtant rien de bizarre ...

Splif62 · Answer

Mais quel BOULET je fais !!!! 

l'érreur vient de là ...

 Line Input #1, strcopy
 noms.AddItem strcopy
 scores.AddItem strcopy

l'application fais simplement ce que je lui demande c'est a dire il affiche les noms et les scores dans chacune des listbox ...

La honte sur moi !!! 

Par contre comment faire pour aficher les noms dans une listbox et les scores dans une autre ??

Quelqu'un à une idée ???
Merci d'avance !!

cnt · Answer

Pour sur, que les noms et scores sont en double, il faut lire les données séparément elles sont séparées par une virgule par ligne lue dans le fichier 

Private Sub Ouvrescores(noms As ListBox, scores As ListBox)
    Dim LeNom As String, LeScore   As Integer
    Open App.Path & "" & "meilleursscores.txt" For Input As 1
        Do Until EOF(1)
            Input #1, LeNom, LeScore   ' Lit les données dans deux variables.

            noms.AddItem  LeNom
            scores.AddItem  LeScore   
        Loop
    Close 1
End Sub

CNTJC

Enregistrement et récupération de deux données dans un fichier .txt

8 réponses

Votre réponse

Discussions similaires