Ecriture et lecture dans un fichier

Version imprimable

Je voudrais ecrire dans un fichier puis lire ce qui a été écrit. J'écris dans le fichier mais la fonction de lecture me renvois toujours du vide.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Dim fichiers As String, i As Long,erreurs as integer
fichiers = "c:\test00"
i=20
tab_var(0) = "1"
tab_var(1) = "2"
tab_var(2) = "3"
ecriture_string fichiers, tab_var, i, erreurs
tab_var(0) = ""
tab_var(1) = ""   'Je vide var(0) et var(1) pour m'assurer du resultat de la lecture
lecture_string fichiers, tab_var, i, erreurs
MsgBox tab_var(0)
MsgBox tab_var(1)
 
Public Sub ecriture_string(ByVal fichier$, ByRef tableau() As String, num_enreg As Long, erreurs As Integer)
  On Error GoTo erreur
  Open fichier For Binary As #1 Len = 9000   
  Put #1, num_enreg, tableau
  Close #1
  erreurs = 0
  Exit Sub
erreur:
MsgBox "erreur"
erreurs = 1
Close #1
End Sub
 
Public Sub lecture_string(ByVal fichier$, ByRef tableau() As String, num_enreg As Long, erreurs As Integer)
  On Error Resume Next
   Open fichier For Binary As #1 Len = 4096
   Get #1, num_enreg, tableau
   Close #1
    erreurs = 0
    Exit Sub
End Sub

10/08/2006, 08h26
laetous

J'ai trouvé dans le forum que les fichiers binary ne fonctionne pas en numero d'enregistrement mais en taille d'enregistrement. Je voudrais recuperer une ligne à la position 3 (3 eme enregistrement) dans un tableau?
Est ce que le mode random aussi ne fonctionne pas avec les numeros d'enregistrement??
Merci de votre aide

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Option Explicit
' je n'ai pas vu la déclaration de ton tableau
Dim tab_var(0 To 2) As String

Private Sub Action_Click()
    Dim fichiers As String, i As Long, erreurs As Integer
    '
    fichiers = "c:\test00"
    i = 20
    tab_var(0) = "1"
    tab_var(1) = "2"
    tab_var(2) = "3"
    '
    ecriture_string fichiers, tab_var, i, erreurs
    '
    tab_var(0) = ""
    tab_var(1) = "" 'Je vide var(0) et var(1) pour m'assurer du resultat de la lecture
    '
    lecture_string fichiers, tab_var, i, erreurs
    MsgBox tab_var(0)
    MsgBox tab_var(1)
End Sub

Public Sub ecriture_string(ByVal fichier$, ByRef tableau() As String, num_enreg As Long, erreurs As Integer)
    On Error GoTo erreur
    '
    Open fichier For Binary As #1 Len = 9000
    Put #1, num_enreg, tableau
    Close #1
    erreurs = 0
    Exit Sub
erreur:
    MsgBox "erreur"
    erreurs = 1
    Close #1
End Sub

Public Sub lecture_string(ByVal fichier$, ByRef tableau() As String, num_enreg As Long, erreurs As Integer)
    On Error Resume Next
    '
    Open fichier For Binary As #1 Len = 4096
    Get #1, num_enreg, tableau
    Close #1
    erreurs = 0
    Exit Sub
End Sub

Ton code fonctionne (en ajoutant la déclaration du tableau).

Je ne comprends pas trop ta gestion des erreurs, pourquoi passer cette variable en argument ?

11/08/2006, 08h30
laetous

Le probleme n'est pas la déclaration de tableau (c'est juste un oubli de ma part au moment de rediger le message voila tout). Pour l'instant je m'occupe pas trop de la gestion des erreurs. Mon probleme est que j'arrive à écrire dans un fichier binaire mais pas à lire l'info. Si tu executes le programme tu verras que lors de la lecture tab_var(0), tab_var(1) sont vides donc il ya pas eu recuperation des données à partir du fichier
11/08/2006, 08h50
Phifi

Citation:

Si tu executes le programme tu verras que lors de la lecture tab_var(0), tab_var(1) sont vides donc il ya pas eu recuperation des données à partir du fichier

Eh bien justement, j'ai exécuté le programme : le tableau se vide une fois le fichier texte créé... et se remplit à la lecture de celui-ci. Le contenu s'affiche alors correctement via MsgBox... je ne vois pas ce qui ne fonctionne pas.
11/08/2006, 12h09
laetous

Aprés la lecture tab_var(0) et tab_var(1) sont vides

Tu veux dire qu'à ce niveau...
Code:

1 2 3 4 lecture_string fichiers, tab_var, i, erreurs MsgBox tab_var(0) MsgBox tab_var(1)
... les MsgBox ne t'affichent rien ?

11/08/2006, 12h53
laetous

Oui c'est ca aprés la lecture
11/08/2006, 14h09
Phifi

Ah... car chez moi, cela fonctionne très bien, j'ai bien "1" et "2" qui s'affichent dans les MsgBox...
12/08/2006, 08h30
laetous
Je suis d'accors sauf que si tu fais deux ecritures une à la ligne i et une à la ligne i+5 tu auras des données erronées. Comme si l'accés au fichie rne se fait pas par enregistrement
Code:

1 2 3 ecriture_string1 fichiers, tab_var, i, erreurs ecriture_string1 fichiers, tab_var, i + 5, erreurs
22/08/2006, 00h00
zazaraignée

Salut

En général, on utilise les fichiers binaire lorsqu'on a affaire à des fichiers structurés (table de données, image...). La structure doit donc être connue et déclarée au besoin. La taille de ces données en octêts doit être toujours de la même longueur (sauf exceptions... pas faciles àgérer).

Syncèrement, je ne vois pas trop où tu veux en venir avec un tableau de string de longeur dynamique ni comment tu fais pour déterminer une taille de fichier pour l'écriture et une autre taille pour la lecture.

Fais une recherche sur développez ou sur google pour te trouver un bon tutoriel sur les fichiers binaires...

Personellement, pour ce type d'information, j'utiliserais plutot des fchiers de type random

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
Option Explicit
Private Type Enregistrement
  Var1 As String * 10
  Var2 As String * 10
  Var3 As String * 10
End Type
 
Private Sub cmdTest_Click()
  'ecriture de deux enregistrements
  'en position 1 et en position 10
  Dim Rec As Enregistrement
  Rec.Var1 = "1-1"
  Rec.Var2 = "1-2"
  Rec.Var3 = "1-3"
  Ecriture "c:\test00.dat", Rec, 1
  Rec.Var1 = "10-1"
  Rec.Var2 = "10-2"
  Rec.Var3 = "10-3"
  Ecriture "c:\test00.dat", Rec, 10
  'lecture de l'enreg 1
  Rec = Lecture("c:\test00.dat", 1)
  MsgBox Rec.Var1 & vbTab & Rec.Var2 & Rec.Var3
End Sub
 
Private Sub Ecriture(Fichier As String, Rec As Enregistrement, NumEnreg As Long)
  Dim hFich As Integer
  hFich = FreeFile
  Open Fichier For Random As #hFich Len = Len(Rec)
    Put #hFich, NumEnreg, Rec
  Close #hFich
End Sub
 
Private Function Lecture(Fichier As String, NumEnreg As Long) As Enregistrement
  Dim Rec As Enregistrement
  Dim hFich As Integer
  hFich = FreeFile
  Open Fichier For Random As #hFich Len = Len(Rec)
    Get #hFich, NumEnreg, Rec
  Close #hFich
  Lecture = Rec
End Function

23/08/2006, 17h59
Delbeke

si le probleme est résolu, ne pas oublier de tagger le topic comme résolu :)