Utilisation de lag pour supprimer des lignes

Version imprimable

22/06/2011, 22h59
Invité

Utilisation de lag pour supprimer des lignes
Bonjour,
j'ai une table qui se présente comme ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 aaaa\ adft\ fic1.txt fic2.txt adft\ fic.txt fic2.txt aoiut\ aiut\ aurt\
j'aimerai avoir le résultat suivant:
Code:

1 2 3 4 5 6 7 8 adft\ fic1.txt fic2.txt adft\ fic.txt fic2.txt
j'ai essayé avec lag mais sa n'a pas marché
l'idée c'est si deux valeurs qui contiennent un \ se succèdent d'éliminer la première.

Merci de votre aide.
Julie.

Bonjour Julia,
Il suffit d'isoler les lignes contenant un \, supprimer les doublons puis concatener avec ceux qui ne contiennent pas un \
Code:

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 data test; input var_$; cards; aaaa\ adft\ fic1.txt fic2.txt adft\ fic.txt fic2.txt aoiut\ aiut\ aurt\ ; run; data test2 test; set test; if index(var_,'\') then output test2; else output test; run; proc sort data=test2 nodupkey; by var_; run; data test; set test test2; run;

23/06/2011, 10h19
Invité

Merci pour la réponse, Mais ce n'est pas ce que je recherche;:(

pas de trie ,car il faut garder la structure du fichier.
les enregistrements avec des / correspondent aux répertoires, les autres à leurs contenue, donc le but c'est d'éliminer tous les répertoires qui ne contiennent pas de fichiers textes.d'où je suis obligée de garder la structure du fichier.
23/06/2011, 10h39
MEGAMIND2

Je n'ai pas trop compris le passage de la table une à la deux :?

Il suffit de créer une variable qui te permettra de retrier dans le bonne ordre. car supprimer une ligne précédente en sas ce n'est pas très facile sinon.

Code:

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
 
DATA test;
input var_$;
cards;
aaaa\
adft\
fic1.txt
fic2.txt
adft\
fic.txt
fic2.txt
aoiut\
aiut\
aurt\
;
run;
 
data test;
   set test;
   numero = _n_;
run;
 
proc sort data = test; by descending numero ; run;
 
 
 data test2;
    set test;
    retain var2 0;
    if (index(var_, '\') > 0 and var2 = 0) or index(var_, '\') = 0 then output ;
    if index(var_, '\') > 0 then var2 = 1 ;
    else var2 = 0;
run;
 
proc sort data = test2; by numero ; run;

Bonjour,

je te propose ce code avec deux proc sort et un lag

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
data test; set test;ordre=_N_;run;
proc sort data=test; by descending ordre;run;
 
data test; set test;
i_txt=lag(substr(var_,length(var_)-3,4)='.txt');
run;
 
proc sort data=test; by ordre;run;
 
data test; set test; 
if substr(var_,length(var_),1)='\' and (i_txt=0 or i_txt=.) then delete;
drop i_txt ordre;run;

bonjour,

un début de réponse
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 data test; input valeur $ ; cards; aaaa\ adft\ fic1.txt fic2.txt adft\ fic.txt fic2.txt aoiut\ aiut\ aurt\ ; run; data test2; merge test test (firstobs=2 rename=(valeur=valeur_suivante)); if reverse(strip(valeur))=:"\" and reverse(strip(valeur_suivante))=:"\" then delete; /*drop valeur_suivante;*/ run;
L'idée est d'accoler la table avec elle-même mais décalée de 1 ligne (firstobs=2).

Comment gères-tu les cas où plus de 2 valeurs XXX\ se suivent ?

23/06/2011, 15h25
Invité

Merci à tous de vos réponses.

Et oui SASADM en réalité mon seul soucisc’était comment gérer les deux valeurs (répertoires) qui se suivent ~~succèdent~~