<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />Questo esempio utilizza File In Directory per ottenere un elenco di tutti i file in una directory. Quindi cerca tutti i file .jmp, li apre (e successivamente li chiude) uno per uno, creando una tabella di riepilogo lungo la strada. La directory $ sample_data ha sottodirectory che saranno nella lista ma che vengono saltate dal test EndsWith. EndsWith è case sensitive; forse vorresti EndsWith (LowerCase (nome file), ".jmp") per ottenere i file che terminano in .JMP e .jmp.
File In Directory non ha bisogno del trailing /, ma non gli dispiace neanche. Ma il trailing / è importante quando i nomi dei file nella lista sono concatenati alla directory. JMP si prende cura di windows vs mac / and \ issues.
directory = "$ sample_data /";
fileNames = Files In Directory (directory);
summary = New Table ("summary", New Column ("nome", carattere), New Column ("rows", numerico));
Per (iFile = 1, iFile <= N Items (fileNames), iFile ++,
filename = fileNames [iFile];
Se (Termina con (nome file, ".jmp"),
dt = Apri (directory || nome file);
sommario << addrows (1);
sommario: nome = nomefile;
riepilogo: rows = N Rows (dt);
Close (dt, "nosave");
);
);
C'è un'opzione ricorsiva se vuoi che anche quei file ...
