[Date Index] [Thread Index] [Author Index]

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.