MathGroup Archive 1991

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

Search the Archive

List print out


Is there a sensible way to print out a list into a file so that it
appears as columns and rows (spaces and newlines) instead of as a list
with curly brackets.

I'm currently using :

printout[file_,ls_] := Block[{out = OpenWrite[file],
	                lim1 = Length[ls],lim2 = Length[ls[[1]]]},
	For[x=1,x<=lim1,x++,
    	  For[y=1,y<lim2,y++,WriteString[out,ls[[x]][[y]]," "]];
	  WriteString[out,ls[[x]][[y]],"\n"]];
	Close[out]]

which is not very elegant nor very fast for large lists.
I've tried fancier things like:

printout[file_,ls_] := Block[{out = OpenWrite[file]},
	WriteString[out,ToString[TableForm[ls,TableSpacing->{0,1}]]];
	WriteString[out,"\n"];
	Close[out]]

but this puts multiple spaces between numbers so that the columns line
up.  

There must be an easy way to do this.  What is it?

________________________________________________________________
Bill Lytton				billl at helmholtz.sdsc.edu
Salk Institute				tel 619 453 4100 x124
10010 N. Torrey Pines Rd.		fax 619 587 0417
La Jolla, CA  92037			
________________________________________________________________





  • Prev by Date: Yoda is moving
  • Next by Date: Re: Fortran Format
  • Previous by thread: Yoda is moving
  • Next by thread: Re: Fortran Format