Fixed-length array help

 BBS: Inland Empire Archive
Date: 04-19-92 (17:18)             Number: 108
From: MICHAEL MALLEY               Refer#: NONE
  To: TOM HAMMOND                   Recvd: NO  
Subj: Fixed-length array help        Conf: (2) Quik_Bas

TH>     OPEN a file for BINARY and determine the number of fixed-length
TH>     records it contains.
TH>     Create an array in memory to hold the contents of the file OPENed
TH>     above.

You don't need to use BINARY try this:

TYPE WhateverType
  Whatever AS INTEGER
END TYPE
'$DYNAMIC
DIM Array(1 TO 1) AS WhateverType

OPEN "TEST.DAT" FOR RANDOM AS #1 LEN = LEN(Array(1))
REDIM Array(1 TO LOF(1) \ LEN(Array(1)))

Using LEN(Array) in all of these places does two things.  First it
insures that the proper length is always there without you having to sit
down and count bytes.  Secondly, you can make a change to the TYPE
variable and the program will run correctly without having to track down
all of the length values.

TH>     Read the input file and load the data into the array.


FOR Counter% = 1 TO UBOUND(Array)
  GET #1, , Array(Counter%)
NEXT Counter%

Hope this helps Tom.  - Michael

 * SLMR 2.1a * My compiler has a first name, it's Q.U.I.C.K.

--- Maximus 2.01wb
 * Origin: UltraTech - Nashville, TN  (615) 356-0453 {HST} (1:116/30)