Re: Export-Funktion

[Rolf Mertig <rolf@XXXXXXX.com>]

Also ..., etwas brutal programmiert (aber immer noch viel einfacher
als so etwas in S-PLUS zu machen ;-)    :


In[1]:= !!ExportTable.m
ExportTable[f_String, expr_List, (m_Integer)?Positive, 
            opts___?OptionQ] := 
   Module[{ms}, 
           ms[x_Real, (n_Integer)?Positive] := 
           With[{s = ToString[Round[x*10^n]/10.^n] /. 
           "0" :> "0."}, StringJoin @@ (Characters[s] //. 
           {a__, ".", b___ /; Length[{b}] < n} :> {a, ".", b, "0"})]; 
             Export[f, expr /. r_Real :> ms[r, m], "Table", opts]
         ]; 


In[1]:= <<ExportTable.m

In[2]:= ExportTable["tablelle.d",{{1963, 1.07}, {1964, 0.976}, {1965,
9.527 10^-1}},6]

Out[2]= tablelle.d

In[3]:= !!tablelle.d
1963   1.070000
1964   0.976000
1965   0.952700


--------------------------
MfG,
Rolf Mertig

http://www.mertig.com

-----------------------------
Martin Heimann wrote:
> 
> Liebe Kollegen,
> 
> Laut Dokumentation soll Mma4.0 defaultmässig mit der Export-Funktion
> eine Tabelle reeller Zahlen mit 6 Stellenpräzision rausschreiben. Tut
> es bei mir leider nicht. Weiss jemand, wie man die rausgeschriebene
> Darstellung der Zahlen beeinflussen kann?
> 
> Bsp.
> 
> z= {{1963, 1.07}, {1964, 0.976}, {1965, 9.527  10^-1}}
> Export["tabelle.d", z, "Table"]
> 
> Auf "tabelle.d" steht dann:
> 
> 1963   1.07
> 1964   0.976
> 1965   0.9526999999999999
> 
> mit herzlichem Gruss,
> Martin Heimann
> ----------------------------------------------------------------
> Max-Planck-Institut fuer Biogeochemie
> Postfach 100164, D-07701 Jena, Germany
> (!!!==> NEW Street Address: Carl-Zeiss Promenade 10)
> 
> Office: +49-3641-64-3773/3701
> Mobile: +49-170-6307299
> Home:   +49-3641-618254
> Fax.:   +49-3641-64-3789/3710
> Email:  martin.heimann@XXXXXXX.de
> Web:    http://www.bgc-jena.mpg.de/~martin.heimann