Information générale
Catégorie:
Codage, syntaxe et commandes
To whom it may concern,
Private Sub Command4_Click()
Dim infile As Long
Dim outfile(133) As Byte ????
Dim Q
Dim data As Long
infile = FreeFile
Open Text1.Text For Binary As #infile
filebytes = LOF(infile)
If filebytes > 0 Then
outfile(a) = FreeFile() ?????
Open "c:\binary.txt" For Binary As #outfile(a) ????
For Q = 1 To 8
Get #infile, Q, data
Put #outfile(a), Q, data ????
Next
End If
Close #infile
Close #outfile(133)
End Sub
Well, i copied this coding from some resources and find that i do not understand this coding which i put (???) next to the coding. Wonder anyone could possible explain to me. I have doubts in array.
Dim outfile(133) As Byte ????
As far as i know this (up) coding declare an array which had 133 block. Am i rite?
outfile(a) = FreeFile() ?????
This part i don't understnad why outfile(a)? I mean why there's a (a) next to the outfile. And freefile() = array freefile ... rite?
Put #outfile(a), Q, data
This code above shows that i am trying to put the data into an array called outfile(a)..rite?
Pls Help...thanks..in advnace.
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement