HELP !!! Enregistrement d'un tableau dans fichierRésolu

Question

Bonjour à tous ,

J'ai une appli composée de Form1 et Form2.
Dans La Form1, je crée un tableau T et j'aurais besoin de récupérer les données de T dans Form2.

Je ne sais pas comment faire alors j'ai pensé à enregistrer toutes les données de T dans un fichier .txt. 

PROBLEME => je ne sais pas comment faire!

Pourriez vous m'expliquer comment fonctionne l'enregistrement d'un tableau dans un fichier TXT à moins que vous ayez d'autres idées ...

aieeeuuuuu · Accepted Answer

salut

si tu veux acceder a une variable de ta form1 depuis ta form2 fais
form1.maVariable au lieu de maVariable tout court.

encore faut-il que tu la declare en public

jpleroisse · Answer

Bonjour,

Pour enregistrer un tableau dans un fichier txt.



Private Sub Command1_Click()

Dim T(4) As Integer

    T(0) = 21

    T(1) = 15

    T(2) = 299

    T(3) = 455

    T(4) = 12

 Dim sChaine As String, i As Integer

    sChaine = ""



    For i = 0 To UBound(T) - 1

        sChaine = sChaine & CStr(T(i)) & vbCrLf

    Next i



    sChaine = sChaine & CStr(T(UBound(T)))



    Open "C:	ruc.txt" For Output As #1

        Print #1, sChaine

    Close #1



    MsgBox "Fichier truc.txt enregistr&#233; !", 32

    Unload Me

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

TomIlliev · Answer

Salut,
plus simple

Private Sub Command1_Click()
 Dim T(4) As Integer
     T(0) = 21
     T(1) = 15
     T(2) = 299
     T(3) = 455
     T(4) = 12
  Dim i As Integer, n as integer
     
 n=Freefile 'Canal de sortie libre
open "c:\myFile.txt" for output as n
   
     For i = 0 To UBound(T) - 1
        print#n,T(i)
     Next i
  close n    
     MsgBox "Fichier enregistr&#233; !", 32
     Unload Me
 End Sub

Tomilliev
a+

TomIlliev · Answer

Encore moi,
pour communiquer des donn&#233;es entre deux feuilles il existe de nombreuses m&#233;thodes (Variables publics, globales, proc&#233;dures...)
voir l'aide sur les port&#233;es des variables

Maintenant pour r&#233;cup&#233;rer les donn&#233;es du fichier myFile.txt il faut faire

Dim Tbl()  'Entete du module (form,  module ou classe)

Sub Lirefichier()
dim m as string, cpt as integer, n as integer

n=freefile 'canal libre

open "c:\myFile.txt" for input as n
          do while not eof(n)               'boucle jusqu'a la fin du fichier
                  line input#n,m               'extrait une ligne
                 redim preserve Tbl(cpt) 'redim le tableau
                 tbl(cpt)=m                     'save la ligne dans le tableau
                cpt=cpt+1                     'incr&#233;mente le compteur
          loop                                    'suivant...
close n                                          'ferme le canal 

'Voir le r&#233;sultat dans un msgbox
m=""
    for n=0 to ubound(tbl)-1
        m=m & tbl(n) & vbcrlf
    next n
msgbox M
end sub

Voila simple non?
Tomilliev
a+

crenaud76 · Answer

Sachant que l'idée de transmettre les donnéees entre deux forms via un fichier sur disque est a mon avis à proscrire !!

crenaud76 · Answer

... et comme un tableau ne peut être déclaré comme membre public d'un module objet, il faudra passer par une propriété indexé. 

CR

HELP !!! Enregistrement d'un tableau dans fichier

6 réponses

Discussions similaires