MathGroup Archive 1999

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

Search the Archive

Re: writing mathematica data to a tab delimited file??

  • To: mathgroup at smc.vnet.net
  • Subject: [mg18369] Re: writing mathematica data to a tab delimited file??
  • From: "David Keith" <dkeith at sarif.com>
  • Date: Wed, 30 Jun 1999 14:13:31 -0400
  • Organization: Hevanet Communications
  • References: <7l5t26$il6@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Hi Mike,

Others may well provide a maore economical solution, but this is what I have
used. It also accepts arrays of dimension larger than and flattens them
before use.

In[11]:=
writeArray[filename_, arrayname_] := Module[{makeStringList, outfile},
  outfile = OpenWrite[filename];
  makeDepth3[lst_] :=
      Module[{x}, x = lst; While[Depth[x] < 3, x = {x}];
        While[Depth[x] > 3, x = Flatten[x, 1]]; x];
  makeStringList[lst_] :=
      Flatten[{Drop[
            Flatten[Transpose[{Map[ToString, lst],
                  Table["\t", {Length[lst]}]}]], -1], {"\n"}}];
  Scan[WriteString[outfile, Sequence @@ makeStringList[#]] &,
      makeDepth3[arrayname], {1}]; Close[outfile]
]

In[12]:=
t = Table[n - m, {n, 1, 5}, {m, 1, 5}]

Out[12]=
{{0, -1, -2, -3, -4}, {1, 0, -1, -2, -3}, {2, 1, 0, -1, -2}, {3, 2, 1,
    0, -1}, {4, 3, 2, 1, 0}}

In[13]:=
writeArray["test.txt", t]

Out[13]=
"test.txt"

In[14]:=
!! test.txt

0 -1 -2 -3 -4
1 0 -1 -2 -3
2 1 0 -1 -2
3 2 1 0 -1
4 3 2	1	0


Mike wrote in message <7l5t26$il6 at smc.vnet.net>...
>
>I frequently read data into mathematica that has been given to me as a
>two column tab delimited text file.  Is their some way of saving a
>mathematica list eg.
>
>mylist=Table[{1, x}, {x, 1, 10, 1}]
>
>
>as a file in a tab delimited two column format
>
>1 1
>1 2
>1 3
>1 4
>
>etc.
>
>
>
>to be read by other people in eg. excel or sigma plot?
>
>thanks
>
>Mike
>




  • Prev by Date: Re: writing mathematica data to a tab delimited file??
  • Previous by thread: Re: writing mathematica data to a tab delimited file??
  • Next by thread: problems with series of multiple integrals