<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />Cet exemple utilise Files In Directory pour obtenir la liste de tous les fichiers d’un répertoire. Il recherche ensuite tous les fichiers .jmp, les ouvre (et les ferme plus tard) un par un, créant ainsi un tableau récapitulatif. Le répertoire $ sample_data contient des sous-répertoires qui figureront dans la liste mais seront ignorés par le test EndsWith. EndsWith est sensible à la casse; vous pourriez vouloir EndsWith (LowerCase (nom du fichier), ".jmp") pour obtenir les fichiers qui se terminent par .JMP et .jmp.
Files In Directory n'a pas besoin du dernier /, mais ne le dérange pas non plus. Mais le / final est important lorsque les noms de fichiers de la liste sont concaténés au répertoire. JMP s’occupe des problèmes windows vs mac / et \.
directory = "$ sample_data /";
fileNames = Fichiers dans le répertoire (répertoire);
summary = Nouvelle table ("summary", nouvelle colonne ("nom", caractère), nouvelle colonne ("rangées", numérique));
Pour (iFile = 1, iFile <= N éléments (noms_fichiers), iFile ++,
nomfichier = nomFichier [iFichier];
Si (se termine par (nom du fichier, ".jmp"),
dt = Open (répertoire || nom du fichier);
résumé << adresses (1);
résumé: nom = nom du fichier;
résumé: lignes = N lignes (dt);
Fermer (dt, "nosave");
)
)
Il existe une option récursive si vous voulez aussi ces fichiers ...
