Code VB, Fichier -> variable (tableau)

Code VB, Fichier -> variable (tableau) - VB/VBA/VBS - Programmation

Marsh Posté le 18-08-2005 à 21:23:07    

Salut à tous,
 
J'aimerais un coup de pouce pour mon programme en visual basic.
Ce programme est simple mais je suis assez amateur en vb. Voilà, le programme saisi des informations qu'on entre sur le premier formulaire, strNom, strPrenom, intGroupe, intNote. C'est variables sont écrites dans un fichier nommé rapport.txt
 
Ensuite là où je suis bloqué, je dois lire le fichier et remettre chacune des variables en mémoire dans un tableau. Dans un tableau car je dois ensuite les parcourirs avec 2 autres boutons, précédents et suivants.  
 
ici j'ai mon bouton saisi :

Code :
  1. Private Sub cmdSaisi_Click()
  3. strNom = txtNom.Text
  4. strPrenom = txtPrenom.Text
  5. strGroupe = txtGroupe.Text
  6. strNote = txtNote.Text
  8. Open "rapport.txt" For Append As #1
  9. Write #1, strNom, strPrenom, strGroupe, strNote
  10. Close #1
  11. End Sub


 
C'est pour le code du bouton affichage que j'ai du mal a trouvé.. j'avais fait ça.. mais ça ne fonctionne pas.

Code :
  1. Private Sub cmdCharger_Click()
  3. Open "rapport.txt" For Input As #1
  5. Do While EOF(1)
  6. Input #1, strNom, strPrenom, strGroupe, strNote
  7. txtNom.Text = strNom
  8. txtPrenom.Text = strPrenom
  9. txtGroupe.Text = strGroupe
  10. lblNote.Caption = strNote
  11. Loop
  12. Close #1
  14. End Sub


 
Alors voilà je demande votre aide pour avoir le code correct, se serait extrêmement apprécier. Merci  :)  
 
le programme doit être assez simple, met les données du fichier dans un tableau que je peux ensuite parcourir avec les autres boutons (suivant et précédent). Ah oui et je dois aussi faire la moyenne mais ça je devrais être capable.


Message édité par KevSb le 18-08-2005 à 21:24:35
Reply

Marsh Posté le 18-08-2005 à 21:23:07   

Reply

Marsh Posté le 18-08-2005 à 23:36:27    

pas quelqu'un qui a une idée?

Reply

Marsh Posté le 18-08-2005 à 23:51:07    

C'est presque bon.
Au lieu de dire "tant que fin de fichier", il faut dire "tant que PAS fin de fichier".


Do While Not EOF(1)  


Par ailleurs, je ne me souviens plus si l'indicateur de fin de fichier, EOF, est valide dés le Open, ou bien seulement après le Input, il faudra vérifier.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed