(*設定資料目錄*)
SetDirectory["~/Downloads"];
(*抓出所有的資料檔名*)
file = FileNames["*.txt"];
(*轉檔程式*)
recode[filename_String] := Block[{fn = filename, str},
(*讀入資料行，將文字轉成表達式，最後取出數字的元素*)
str = Cases[ToExpression@Import[fn, "Words"], _?NumberQ];
(*將資料依序輸出到xxx_new.txt檔*)
Do[str[[i]] >>> fn <> "_new.txt", {i, Length@str}]
]
(*將整個目錄的檔案轉檔*)
recode/@file
讀者回應 ( 0 意見 )
訂閱Post Comments (Atom)
Post a Comment
Please leave your name and tell me what you thought about this site. Comments, suggestions and views are welcomed.
如果這篇文章對你有幫助，那請留個訊息給我～