Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2000
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2000

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

Search the Archive

Re: 2D array to tab delimited file

  • To: mathgroup at smc.vnet.net
  • Subject: [mg25329] Re: [mg24695] 2D array to tab delimited file
  • From: Claudius Schnörr <schnoerr at mailzone.com>
  • Date: Sat, 23 Sep 2000 03:35:52 -0400 (EDT)
  • References: <200008040519.BAA05094@smc.vnet.net> <8q78a6$t7l@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Hello Leon,

perhaps this helps a little. It's just a cut from some Source I have written
some years ago:

ma = {{1, 3.23435E5, 2}, {4, 5, 6}}
file = OpenWrite["test.dat"];
WriteString[file, ToString[TableForm[ma, TableSpacing -> {0, 20}]]]
Close[file];

The 20 in TableSpacing means that each column has at least 20 characters in
width. The spaces between could then be replaced with tabs by a macro in the
emacs-editor or some shell-script.

Claudius


Christopher Lee French wrote:
> 
> Leon,
> 
> Array[Plus, {10, 10}]
> // ToString
> // StringReplace[#, {", " -> "\t", "}, " -> "\n", "{" -> "", "}" -> ""}] &
> // WriteString[OpenWrite["filename.tab"], #] &;
> 
> Streams[]
> // Drop[#, 2] &
> // Close /@ # &;
> 
> ReadList["filename.tab", Word, RecordLists -> True, WordSeparators -> {"\t"}]
> // ToExpression
> // MatrixForm
> 
> allot can be done with direct string manipulation
> 
> CLFrench
> 
> L Lobo wrote:
> 
> > I am creating a large 2D array and need to save it to file (tab delimited)
> > which is then read by LabVIEW. I have tried using Export but the spaces
> > created between columns varies. I have looked up old postings on this
> > newsgroup but the solutions I've seen seem to be a bit longwinded. I have
> > version 4. Any ideas?
> >
> > --
> > Leon Lobo
> > Optical Engineering Group
> > Department of Mechanical Engineering
> > Loughborough
> > Leics.
> > LE11 3TU

-- 
----------------------------------------------------------------
Dr.-Ing. Claudius Schn"orr        Tel: ++49-(0)211-5591570
Sigmaringenstr. 2
40547 D"usseldorf / Germany       e-mail: schnoerr at mailzone.com
----------------------------------------------------------------


  • Prev by Date: Re: Another strange bug in Mathematica 4.0's Integrate
  • Next by Date: RE: Point inside a plygon?
  • Previous by thread: Re: 2D array to tab delimited file
  • Next by thread: Strange behaviour of FiniteFields?