Re: how to save each raw of data to separate file?
- To: mathgroup at smc.vnet.net
- Subject: [mg80334] Re: how to save each raw of data to separate file?
- From: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>
- Date: Sat, 18 Aug 2007 05:29:36 -0400 (EDT)
- Organization: The Open University, Milton Keynes, UK
- References: <fa3dp9$v9$1@smc.vnet.net>
Arkadiusz.Majka at gmail.com wrote:
> Say I have a list of sublists
> b= {{a1,a2,a3},{b1,b2},{c1,c2,c3,c4}}
>
> How can I automatically save b[[1]], b[[2]] and b[[3]] to three
> separate files?
>
> How should I correct the below expression to let it work?
>
> Table[b[[i]]>>i, {i,1,Length[b]}]
You can use (at least) *Table*, *Do*, *Map*, or *Scan* with the full
form of >> that is *Put*. (Note that *Do* or *Scan* should be preferred
since your are not interested in the resulting list that is built by
*Table* or *Map*.)
In[1]:= b = {{a1, a2, a3}, {b1, b2}, {c1, c2, c3, c4}};
In[2]:= Table[Put[b[[i]], ToString@i], {i, 1, Length[b]}]
Out[2]= {Null, Null, Null}
In[3]:= Do[Put[b[[i]], ToString@i], {i, 1, Length[b]}]
In[4]:= Put[b[[#]], ToString@#] & /@ Range@Length[b]
Out[4]= {Null, Null, Null}
In[5]:= Scan[Put[b[[#]], ToString@#] &, Range@Length[b]]
In[6]:= $Version
Out[6]= "6.0 for Microsoft Windows (32-bit) (June 19, 2007)"
--
Jean-Marc