Mathematica 教學：檔案複製、搬移

最近寫一本講義，用到的圖檔實在太多，整理資料實在費時。所以就利用Mathematica來做一些資料搬移複製的工作。

(*檔案位置*)
path = NotebookDirectory[];
(*設定目錄位置*)
SetDirectory[path];
(*輸入LaTeX檔Compile後的log檔*)
test = Import["Ch1.log"];
(*抓出該TeX檔所使用的所有eps檔*)
epsdata=StringTrim@Flatten[StringCases[#,x__~~".eps    Graphic file (type eps)"->x]&/@
Select[test,Length[#]==1&]]
(*新增一個資料夾CH1，將Ch1.tex所使用到的eps全部複製到Ch1*)
CreateDirectory["Ch1]
CopyFile[path<>#<>".eps", "path"<>"Ch1/"<>#<>".eps"]&/@epsdata

Tags: Mathematica 教學

• 編輯文章
• 此文章網址
• 轉寄此文章
• 目前有0 意見