Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations cowski on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!
Public Arrays
- Thread starter NbrCrunch
- Start date
maged541946
Computer
Hi,
Dim Fnu As Long 'File Number
Open FileName4Array For Binary As Fnu
Put #Fnu, 1, ArrayName() '1 is starting location
'for saving see "PUT" help
Close Fnu
' to read
Open FileName$ For Binary As Fnu
Get #Fnu, 1, AnyArrayName()
Close #Fnu
'Now "1" again is the staring point for read, you may read a part or all.
The read array must be resized to hold all data otherwise the command will read to the size of variable defined in Get Function, this allows you to add a fixed length header to tel the reader software what he is reading and how many bytes... all info you may want to save with your array
Best regards
Maged A. Mohamed
Dim Fnu As Long 'File Number
Open FileName4Array For Binary As Fnu
Put #Fnu, 1, ArrayName() '1 is starting location
'for saving see "PUT" help
Close Fnu
' to read
Open FileName$ For Binary As Fnu
Get #Fnu, 1, AnyArrayName()
Close #Fnu
'Now "1" again is the staring point for read, you may read a part or all.
The read array must be resized to hold all data otherwise the command will read to the size of variable defined in Get Function, this allows you to add a fixed length header to tel the reader software what he is reading and how many bytes... all info you may want to save with your array
Best regards
Maged A. Mohamed
- Status