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 |
Partager