scanner un repertoire

**pgirier** · 28/01/2008, 14h10

Bonjour,

Voilà mon pb, je dois scanner les différentes tables d'un répertoire.
S'il existe des sous-répertoires à l'intérieur de ce dernier, je dois également les scanner. Au final, je dois avoir une table de sortie dans lequel j'ai le nom de mes tables table sas,avec différentes caractéristiques comme son option de tri, le nb d'enregistrement et si elle est compresser ou non. Je pense que je dois utiliser entre autres une proc contents, non ?

Suis-je clair ou complètement incompréhensible ?

Pour info, je suis un peu débutant en SAS...

Merci pour votre aide.

**steelspirit** · 28/01/2008, 14h59

wouaaa rien que ça

effectivement tu peux passer par un proc contents mais il faut d'abord déclarer des libnames qui pointent sur tes fichiers SAS !

voici les étapes à suivre :
1) stockage des chemins des répertoires dans des macro-variables
2) parcours des macro-variables et création des libname
3) parcours des libnames et récupération du nom des tables, ses options de tri, le nb d'enregistrement, la compression...

étape 1:
La commande DOS permettant de lister les fichiers d'un répertoire et des sous répertoire est : Dir /S/W
Il faut ensuite importer le résultat de cette commande dans une table SAS. ça marche pareil que pour importer un fichier classique mais avec un filename un peu différent :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
%let chemin=C:\;  /* Chemin à partir duquel lire les fichiers : A ADAPTER */
 
option noxwait xsync; /*noxwait : ne pas afficher la fenetre DOS, xsync : attendre la fin de la commande pour poursuivre le traitement */
 
filename liste pipe "DIR /W/S &chemin"; /*commande DOS a exécuter */
/* Création de la table contenant la liste des fichiers SAS */
data liste;
	format liste $500.;
	infile liste;
	input liste $;
run;
/* liste_rep : on ne garde que les chemins de répertoires et on les stockes dans des macro-variables */
data liste_rep;
     set liste;
     if index(liste,'R‚pertoire de ')>0 then do;
            liste=TRANWRD(liste,'R‚pertoire de ','');
            output;
    end;
run;

étape 2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
%macro liste;
data _NULL_;
       set liste_rep;
       call symput(compress('rep'||_N_),trim(left(liste))); /*création des macro-variable rep1, rep2 etc...*/
       call symput('nb_rep',trim(left(_N_))); /*nombre de répertoires au total*/
run;
 
%do i=1 %to &nb_rep;
 
    libname lib&i "&&rep&i";
    /* proc contents :*/
    proc contents data=lib&i.._ALL_ out=contenu&i; /* _ALL_ pour faire un contents sur toute les tables du libname */
    run;
 
%end;
 
%mend;
%liste;