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

*To*: mathgroup at smc.vnet.net*Subject*: [mg18340] Re: writing mathematica data to a tab delimited file??*From*: tburton at brahea.com (Tom Burton)*Date*: Wed, 30 Jun 1999 14:13:15 -0400*Organization*: Brahea, Inc.*References*: <7l5t26$il6@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Hi, There's lots on this topic in books, in MathSource, and elsewhere. I have been using this function: Options[tabDelimitedForm]=PageWidth\[Rule]132; tabDelimitedForm[x:{{__}..},opts___?OptionQ]:= Module[{ PageWidthRule=Options[$Output,PageWidth], TableDirectionsRule=Options[TableForm,TableDirections], thisPageWidth,result}, thisPageWidth=PageWidth/.Flatten[{opts}]/.Options[tabDelimitedForm]; SetOptions[$Output,PageWidth\[Rule]thisPageWidth]; SetOptions[TableForm,TableDirections\[Rule]{Column,Row}]; result=OutputForm[ TableForm[Drop[Flatten[#,1],1]&/@Map[{"\t",FortranForm[#]}&,x,{2}], TableSpacing\[Rule]{0,0}]];SetOptions[$Output,PageWidthRule]; SetOptions[TableForm,TableDirectionsRule]; result ] This function accepts a list of lists. The resulting text can be pasted to a text file or spreadsheet. (Use standard Copy, not Copy as Text. Copy only the text, not the entire output cell.) The new Export facility in version 4 write directly to a file. I haven't tried it yet. Cheers, Tom Burton On 27 Jun 1999 15:12:06 -0400, in comp.soft-sys.math.mathematica you wrote: >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 ... Tom Burton