Discussion :

[statinfo]

Bonjour à vous,

J'ai une variable dans laquelle j'ai :

VAR0 = EGTESTCD EQ "AVCOND" AND EGCAT EQ "FINDING"

Et je voudrais obtenir ceci :

VAR1 VAR2
EGTESTCD AVCOND
EGCAT FINDING

Pour le moment j'ai réussi à obtenir la VAR2 avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
data tab2;
	set tab1;
	length  VAR2 $200;
 
	i=2;
	do while (scan(VAR0,i,"""") ne "");
		VAR2=scan(VAR0,i,"""");
		i=i+2;
	output;
	end;
run;

Mais pour obtenir la VAR1 avec la VAR2 je ne trouve pas de solution qui fonctionne...

Si quelqu'un a une idée ?

[JeromeMATHIAS]

Bonjour,

les bons outils pour faire ce genre de choses sont les expressions rationnelles (REGULAR EXPRESSION).

Voici un code qui marche sur ton exemple

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
DATA Table1 ;
VAR0 = 'EGTESTCD EQ "AVCOND" AND EGCAT EQ "FINDING"';
RUN;
 
DATA Table2;
SET Table1;
LENGTH VAR1 VAR2 $50. ;
RETAIN REGEX;
DROP VAR0 REGEX;
IF _N_ =1 THEN 	DO;
		REGEX=PRXPARSE('/^(.*)\sEQ\s"(.*)"\sAND\s(.*)\sEQ\s"(.*)"/');
				END;
IF PRXMATCH(REGEX,VAR0) THEN 	DO;
							VAR1=PRXPOSN(REGEX,1,VAR0);
							VAR2=PRXPOSN(REGEX,2,VAR0);
							OUTPUT;
							VAR1=PRXPOSN(REGEX,3,VAR0);
							VAR2=PRXPOSN(REGEX,4,VAR0);
							OUTPUT;
								END;
RUN;
PROC PRINT DATA=Table2;RUN;

Obs VAR1 VAR2

1 EGTESTCD AVCOND
2 EGCAT FINDING

après si cela ne te suffit pas il faudra préciser ta demande.

Cordialement.

[statinfo]

En fait, dans la VAR0 j'ai oublié de préciser qu'il y a plusieurs possibilité
VAR0 peut etre égale a plusieurs cas de figures :

EGTESTCD EQ "AVCOND" AND EGCAT EQ "FINDING"
TSPARMCD EQ "SPONSOR"
EGTESTCD EQ "HRMED" AND EGCAT EQ "MEASUREMENT"
LBTESTCD EQ "CK" AND LBCAT EQ "CLINICAL CHEMISTRY" AND LBSPEC EQ "SERUM"

Je ne pense pas que ca puisse dépasser 3 égalités.

En tout cas merci pour cette réponse, je ne connaissais pas ! C'est vraiment super de pouvoir apprendre plein de choses à travers vos réponses !

[m.brahim]

Bonjour,

Je te propose cette solution:

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
data tab1;
input var0 $70.;
cards;
A EQ "CK" AND LBCAT EQ "CLINICAL CHEMISTRY" AND LBSPEC EQ "SERUM"
EGTESTCD EQ "HRMED" AND EGCAT EQ "MEASUREMENT"
EGTESTCD EQ "AVCOND" AND EGCAT EQ "FINDING"
EGTESTCD EQ "AVCOND"
EGCAT EQ "FINDING"
A EQ "B" AND C EQ "C"
;run;
 
 
data tab2;
	set tab1;
	length  VAR1 $200;
 
	i=1;
	do while (scan(VAR0,i,"""") ne "");
		VAR1=scan(VAR0,i,"""");
		i=i+2;
		output;
		end;
    drop i;
run;
 
data tab3;
	set tab1;
	length  VAR2 $200;
 
	i=2;
	do while (scan(VAR0,i,"""") ne "");
		VAR2=scan(VAR0,i,"""");
		i=i+2;
		output;
		end;
    drop i;
run;
 
data fin;
merge tab2 tab3;
var1=compress(tranwrd(var1,"EQ",""));
var1=compress(tranwrd(var1,"AND",""));
run;

Cordialement

[statinfo]

Bonjour,

Merci pour cette nouvelle solution !

J'avais essayé avec ce type de code et je ne faisais pas les COMPRESS() au moment ou il fallait et je n'avais pas pensé à faire une jointure.

Cordialement

[hossward]

Bonjour,
C'est une solution avec call scan :

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
 
data test;
VAR0 ='EGTESTCD EQ "AVCOND" AND EGCAT EQ "FINDING"';
VAR0 =compress(VAR0, '"') ;
do i = 1 by 1 ;
       call scan(VAR0, i,    pos, len) ;
	   call scan(VAR0, i+1, pos1, len1) ;
       if pos = 0 then leave ;
	   LP=lag(pos) ; LL=lag(len) ;	
       if substr(VAR0, pos, len) = "EQ" then do; 
        VAR1=substr(VAR0, LP, LL) ;    
		VAR2=substr(VAR0, POS1, LEN1) ;   
		output ;
       end ; 
       end;									 
Keep Var0 Var1 Var2 ;
run;

Cdt Ward