Discussion :

[polo92]

Bonjour,

J'ai un fichier texte avec des lignes de longueur variable à importer sous SAS.
J'ai une variable 'nbtrait' (nombre de traitement) et après j'ai sur 6 caractères un code pour chaque traitement. Mon nombre de traitement varie de 1 à n.

Je voudrais automatiser l'import de ce fichier en créant une boucle après l'instruction input :

Input @1 nbretrait 3; /*j'importe le nbre de traitement*/
If nbretrait >0 then do;
%do i=1 %to (nbretrait); @%eval(4+6*(&i-1) trait&i $6.; %end; /*si le nbre de traitements n'est pas nul, j'importe trait1, trait2,…,trait(nbretrait)*/
End;

Je ne sais pas comment indiquer que la fin de la boucle correspond au nombre de traitement (et donc dépend de chaque ligne et de la longueur de chaque ligne).

Il y a d'autre solution pour importer le fichier, mais j'aimerais savoir si celle-ci est possible.

Merci d'avance pour vos lumières.

[RemiBousquet]

Sans avoir la solution à ton besoin
Je peux déjà te dire où est le problème.
Tu ne peux pas boucler sur une macro variable avec une information qui est importée dans l'étape data.

En effet, il faut bien voir que sous SAS, tout se passe en 2 étapes (d'autres l'expliqueraient de façon plus précise que je le fais, mais c'est l'idée) :
Etape 1 : tout le code macro variable est résolu, pour être tranformé en "vrai code SAS"
Etape 2 : le code SAS est exécuté (étapes data et proc)

[RemiBousquet]

Une solution, certainement pas optimale, mais qui a le mérite de marcher

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
 
%let nbmax_traitement = 3 ; 
 
data test (drop = loop trait_all) ;
 
    infile "D:\DONNEES\T E M P\A_IMPORTER.txt"  missover ;
 
    length trait_all $%eval(6*&nbmax_traitement.) ;
    Input nbretrait 3  @4 trait_all $ ; 
 
    length trait1-trait&nbmax_traitement. $6 ;
    array traitn(&nbmax_traitement.) trait1-trait&nbmax_traitement. ;
 
    do loop = 1 to dim (traitn)  ;
        traitn(loop) = substr(trait_all, 1 + 6*(loop-1),6) ;
    end;  
 
run ;

Fichier txt testé :

Code :

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

1
2
3
4
5
001AAAAAA
001BBBBBB
002CCCCCCDDDDDD
000
003EEEEEEFFFFFFGGGGGG

[polo92]

Bonjour et merci Rémi pour tes explications et ton aide. Je voudrais trouver une méthode ou je ne fixe pas à l'avance le nbre de max de traitement.

Je vais essayer de procéder en 2 étapes data, une ou j'importe le fichier avec une variable 'traitement' de longueur 6*'nbretraitement', une autre ou je fais une boucle sur la longueur de la variable traitement...je vais voir si ça marche.

[hossward]

Bonjour,
Pour optimiser ce travail il suffit de déterminer le nombre maximal de traitement et de le stocker dans une macro variable (&nbmax) comme ceci :

Code :

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

1
2
3
4
5
6
7
8
 
data _null_ ;
infile "d:\donnees\t e m p\a_importer.txt" ;
input nbtrait 3 ;	
retain max_ ;
max_=max(nbtrait, max_) ;
call symputx('nbmax', max_) ;
run;    %put  &nbmax ;

Puis créer les variables traitement (Trait1-Trait&nbmax) :

Code :

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

1
2
3
4
5
 
data test  ;
infile "d:\donnees\t e m p\a_importer.txt"  truncover ;
Input nbtrait 3 @4(Trait1-Trait&nbmax) ($6.);
run;

Cdt Ward

[polo92]

Voilà un code qui marche sans connaitre à priori le nbre max de traitement, mais qui ne me satisfait pas pleinement (pas du tout optimal en gestion du temps et de la mémoire)...

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
21
22
23
24
 
%macro test();
data trait ;
	infile r3a truncover lrecl=32767 obs=1000;
	input 
	@1 nbretrait $2. 
	@3 trait $594.; /*nbretrait est sur 2 caratctèes=> varie de 0 à 99 et le traitement est sur 6 caractères => longueur max théorique est de 594*/
	temp=nbretrait+0; /*je convertis nbretrait en numérique*/
 
        /*je calcule le nbre max de traitement et le mets dans une macro variable*/
	retain nbretrait 0;
	if nbremax<temp then nbremax=temp;
	call symput('traitmax',nbremax);
run;
 
 
data trait;
set trait;
	%do i=1 %to &traitmax;
	trait&i=substr(trait,%eval(1+6*(&i.-1)),6);
	%end;
run;
%mend;
%import;

[hossward]

Je crois que tu n'as pas besoin d'une macro. Essayes ce code et tu auras 594/6=99 traitements. ... ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
data_null_ ;
INFILE r3a truncover lrecl=32767 obs=1000;
Input @1nbtrait $2. @3 trait $594.;	
retain max_ ;
max_=max(nbtrait, max_) ;
call symputx('nbmax', max_) ;
run;     %put  &nbmax ;		   
 
DATA trait (drop=trait)  ;
INFILE r3a truncover lrecl=32767 obs=1000;
Input @1 nbtrait $2. @3 (Trait1-Trait&nbmax) ($6.);	
run;

Hoss

[polo92]

Merci hossward!

nos messages se sont croisés tout à l'heure.
Tes codes marchent très bien, je vais garder le premier.