自动运行和保存

nancy02628

我想用Mathematica程序行自动实现：打开*.nb,然后自动保存，关闭。再打开下一个。。。

请问如何实现。
试过: NotebookOpen 和NotebookSave不行，也不知道为什么。、

FreddyMusic

Menu -> Evaluation -> Evaluate Notebook

nancy02628

谢谢！
试过，可是*.nb并没有保存，关闭。

FreddyMusic

Add this Magic Code in your final line and do it again.

1. 
   
2. NotebookSave[SelectedNotebook[], ToFileName[DirectoryName[$TemporaryPrefix], "savetest.nb"]]
   

复制代码

Your notebook should be saved in Directory Name below.
C:\Documents and Settings\Administrator\Local Settings\Temp

nancy02628

I will try again, thanks!

nancy02628

感谢版主FreddyMusic ！
我的问题在版主的帮助下解决了。ascDateiNamen中有上百个.nb文件，用下面程序可以实现自动运行保存，关闭了。
Table[
NotebookOpen[ascDateiNamen[[i]]];
FrontEndTokenExecute[nb,"EvaluateNotebook"];
NotebookSave[SelectedNotebook[]];
Pause[5];
NotebookClose[SelectedNotebook[]],{i,1,Length[ascDateiNamen]}]