Re: Reading a file
- To: mathgroup at smc.vnet.net
- Subject: [mg25509] Re: [mg25475] Reading a file
- From: Tomas Garza <tgarza01 at prodigy.net.mx>
- Date: Thu, 5 Oct 2000 23:50:27 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
What kind of file is it? If you have it in an Excel table, for example
(and if you don't, I suggest you put it there for ease of use), then
save it as tab-delimited text and close it without changing format.
Suppose you call it "sample.txt". I read it using
In[1]:=
newFile=ReadList["c:\Math_ag\sample.txt", Word, RecordLists -> True]
Out[1]=
{{"s", "1", "even", "21", "2.1", "40"}, {"p", "1", "even", "7", "2.1",
"3"}, {"d", "1", "even", "5", "2.1", "3"}, {"f", "1", "even", "3",
"2.1",
"3"}}
As you can see all the elements are now strings, since the input file
was a text file, and you needn't specify word separators. In order to
use each element properly, convert the strings to expressions:
In[2]:=
newerFile=ToExpression /@ Cases[newFile, x_, {2}]
Out[2]=
{s, 1, even, 21, 2.1, 40, p, 1, even, 7, 2.1, 3, d, 1, even, 5, 2.1, 3,
f, 1, \
even, 3, 2.1, 3}
Now you see that:
In[3]:=
Head /@ newerFile
Out[126]=
{Symbol, Integer, Symbol, Integer, Real, Integer, Symbol, Integer,
Symbol, \
Integer, Real, Integer, Symbol, Integer, Symbol, Integer, Real, Integer,
\
Symbol, Integer, Symbol, Integer, Real, Integer}
Finally, regroup properly:
In[4]:=
lastFile=Partition[newerFile, 6]
Out[4]=
{{s, 1, even, 21, 2.1, 40}, {p, 1, even, 7, 2.1, 3}, {d, 1, even, 5,
2.1,
3}, {f, 1, even, 3, 2.1, 3}}
Tomas Garza
Mexico City
"Rod" <rodolphe6831 at my-deja.com> wrote:
> I'm trying to read the following file,
>
> s,1,even,21,2.1,40
> p,1,even,7,2.1,3.0
> d,1,even,5,2.1,3.0
> f,1,even,3,2.1,3.0
>
> I want the field separator to be "," so i tried
>
ReadList["file",{Character,Number,Word,Number,Number,Number},WordSeparato
rs->
> ","] but it does not seem to work. Any ideas ?