Re: [問題] 數據匯出格式
看板Mathematica作者chungyuandye (養花種魚數月亮賞星星)時間12年前 (2012/04/19 23:14)推噓1(1推 0噓 0→)留言1則, 1人參與討論串2/2 (看更多)
※ 引述《troyliu (TROY)》之銘言：
: 不好意思，請問一個數據匯出的問題：
: 當我們要把一個Array匯出成.txt檔時
: 若我們用Export指令來匯出，則可選擇Table這種Format，如:
: M1={{1,1,3},{2,4,7}}
: Export["outfile004.txt", M1, "Table"]
: 如此，檔案寫入outfile004的模式就會是：
: 1 1 3
: 2 4 7
: 但如果我想用OpenAppend將M1加寫到已存在的檔案時，則無法達到相同的效果。
: 我嘗試用
: stmp = OpenAppend["outfile004.txt", FormatType -> Table]
: WriteString[stmp, M1]
: Close[stmp]
: 但是寫入的結果仍為
: .........
: .........
: .........{{1,1,3},{2,4,7}}
: 請問有沒有人知道要怎麼寫才對呢?
(* \n 換行 , \t Tab *)
M1 = {{1, 1, 3}, {2, 4, 7}};
Export["outfile004.txt", M1, "Table"];
FilePrint["outfile004.txt"]
M2 = RandomInteger[10, {10, 3}];
tmpstring = OpenAppend["outfile004.txt"];
WriteString[tmpstring, "\n"];
(* 將陣列組成字串後分別寫入 *)
Do[WriteString[tmpstring,
ToString[#] & /@ Insert[M2[[z]], "\t", {{2}, {3}}] <> "\n"],
{z,Length@M2}];
Close[tmpstring];
FilePrint["outfile004.txt"]
--
養花種魚數月亮賞星星
http://chungyuandye.twbbs.org
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.232.182.186
推
04/20 10:36, , 1F
04/20 10:36, 1F
討論串 (同標題文章)