<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />此示例使用目錄中的文件來獲取目錄中所有文件的列表。然後它會查找所有 .jmp 文件,一個一個地打開(然後關閉)它們,並在此過程中製作一個匯總表。$sample_data 目錄包含子目錄,這些子目錄將出現在列表中,但會被 EndsWith 測試跳過。EndsWith 區分大小寫;你可能想要EndsWith(LowerCase(文件名), ".jmp")獲取以 .JMP 和 .jmp 結尾的文件。
目錄中的文件不需要尾隨 /,但也不介意。但是當列表中的文件名連接到目錄時,尾隨 / 很重要。JMP 負責處理 windows 與 mac / 和 \ 的問題。
目錄 = "$sample_data/";
fileNames = 目錄中的文件(目錄);
summary = New Table( "summary", New Column( "name", character ), New Column( "rows", numeric ) );
對於(iFile = 1,iFile <= N 項(文件名),iFile++,
文件名 = 文件名[iFile];
如果(結束於(文件名,“.jmp”),
dt = Open(目錄||文件名);
總結<<添加行(1);
摘要:名稱=文件名;
摘要:行 = N 行(dt);
關閉(dt,“不保存”);
);
);

如果您也想要這些文件,則有一個遞歸選項...
