シグネチャを保存したまま固定幅のテキストファイルとしてMathematicaリストを書き出すには？

Question

私の最初の質問は、データをMathematicaを使って固定幅フォーマットでどのようにエクスポートするのですか？私の2番目の質問は、どのように私はほとんどの0を保存する必要があります。

例えば、私は数が2未満桁仮数を有する場合、それもしながら、それはゼロパディングを介して2に整合され、詳細に

1.12300 11.12 111.123 
2.10  22.123 222.00 

としてテキストファイルに{{1.12300, 11.12, 111.123},{2.1, 22.123, 222}}を保存しますその仮数部に2桁を超える値があれば、それをそのまま保存します。 1.12300と1.123を区別することが重要です。 PaddingFormを使用すると、MathematicaはそれをそのままテキストファイルにPaddedForm[1.123, {4, 5}]として保存します。

Answer 1

使用

data = {{1.12300``6, 11.12``3, 111.123``4}, 
     {2.1``2,  22.123``4, 222``2}}; 

tbl1 = ToString[TableForm[data]]; 
tbl2 = StringReplace[tbl, "\n\n" -> "\n"] 

1.12300 11.12 111.123 
2.1  22.123 222.0 

を得るためにあなたは、文字列のセットとして、あなたのデータを入力したくない場合は、次のようにする必要があり``を使用してデータの精度を指定します。 MathematicaのNumerical Precisionチュートリアルを参照してください。

Answer 2

これは何ですか？

listt = {{1.12300, 11.12, 111.123}, {2.1, 22.123, 222}} 

Export["C:/tcdata/list.txt", Flatten /@ listt, "Table"] 

Answer 3

データが文字列として受信されなければならないよう1.12300として数値に後続ゼロを維持するために。それで、それはそのように処理することができます。

data = "{{1.12300, 11.12, 111.123}, {2.1, 22.123, 222}}"; 

(* remove any whitespace *) 
d1 = StringReplace[data, " " -> ""]; 

(* split the lists *) 
d2 = StringSplit[StringTake[d1, {3, -3}], "},{"]; 

(* split the numbers *) 
d3 = StringSplit[d2, ","]; 

(* magnitude of number except zero *) 
mag[n_] := Floor[Log[10, Abs[n]]] + 1 

(* format accordingly *) 
d4 = Map[With[{x = ToExpression[#]}, 
    Which[x == 0, If[StringLength[#] > 4, #, "0.00"], 
     FractionalPart[100 x] == 0, 
     ToString@NumberForm[x, {mag[x] + 2, 2}, 
     ExponentFunction -> (Null &)], 
     True, #]] &, d3, {2}]; 

(* pad output *) 
len = Max[StringLength /@ Flatten[d4]] + 2; 
d5 = Map[StringPadRight[#, len] &, d4, {2}]; 
d6 = StringJoin /@ d5; 
Export["output.txt", d6]; 
Import["output.txt"] 

1.12300 11.12 111.123 
2.10  22.123 222.00