Re: Block[], OpenRead[], & /@
- To: mathgroup at smc.vnet.net
- Subject: [mg75891] Re: Block[], OpenRead[], & /@
- From: CKWong.P at gmail.com
- Date: Sun, 13 May 2007 05:36:02 -0400 (EDT)
- References: <f23pbj$nh8$1@smc.vnet.net>
A quick fix is to simply replace one with dat[#], i.e.,
Block[{str}, str = OpenRead[#];
Skip[str, Record, 4, NullRecords ->
False]; dat[#] = ReadList[str, Table[
Number, {i, 1, 19}]]; Close[str]] & /@ files
Your data are now stored in dat. Retrieve them thus:
dat[ files[[ i ]] ] for the data in the i th file.
dat[#]&/@files for all of them.