Fonction index ou find sur une variable multiple

Version imprimable

22/02/2013, 11h42
mohamed_

Fonction index ou find sur une variable multiple
Bonjour,

je cherche à faire un comptage du nombre de 1, 2.. dans une variable à reponse multiple avec un séparateur ;
j'utilise pour cela la fonction index.
Seulement qd la variable contient 10 ou 216 l'index(a,'1') me retourne une valeur positive. Or je ne veux retrouver que '1' tout seul.
Un petit exemple :
Code:

1 2 3 4 5 6 7 8 9 10 data a ; format a $10. ; a="2;10";output ; a = "23;31";output ; a= "25;1;216"; output ; run ; data b ; set a ; y=find(a,'1','i') ne 0 ; run ;
J'ai essayé avec la fonction find mais ça me donne le même résultat.
Est ce que vous avez déjà rencontré ce cas ? Si oui, comment l'avez vous résolu ?
Je ne vois pas comment traiter ces variables.

Bonjour,
Rien de tel que les expressions régulières et les fonctions PRX pour résoudre ce genre de problème !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
DATA a ;
format a $10. ;
a="2;10";output ;
a = "23;31";output ;
a= "25;1;216"; output ;
 run ;
 
  data test;
   ExpressionID = prxparse('/1/');
   set a;
   text=a;
   start = 1;
   stop = length(text);
   compteur=0;
   call prxnext(ExpressionID, start, stop, text, position, length);
      do while (position > 0);
         found = substr(text, position, length);
         call prxnext(ExpressionID, start, stop, text, position, length);
		 compteur+1;
      end;
      put text= compteur=;
run;

Hello,

une truc comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
 
data b (drop=i nbmots);
  set a;
  do;
     nbmots=count(a,';')+1;
     do i = 1 to nbmots;
	if scan(a,i) = 1 then count+1;
	end;
     end;
run;

22/02/2013, 16h58
mohamed_

bonjour,

Merci pour vos réponses.
La solution en pearl semble bien compliquée.

La solution d Edouard fonctionne bien.
Cependant j'aimerai pouvoir faire ça à partir d'une fonction.
Est-ce que je ne peux pas transformer ce code pour en faire une nouvelle fonction indexbis par exemple à partir de la fcmp.

Je sais que le proc fcmp permet de créer des fonctions à partir de code mais je ne l'ai jamais fait..

comme ça ...
Code:

1 2 3 4 5 6 7 8 9 10 proc fcmp outlib=work.functions.samples; function count_mots(var$,separator$,word); do i = 1 to (count(var,separator)+1); if scan(var,i) = word then count+1; end; return(count); endsub; run; options cmplib=work.functions;
où :
var = variable sur laquelle appliquer la fonction
separator = le séparateur de mot
word = le mot cherché

puis appel de la fonction ...
Code:

1 2 3 4 5 data d; set a; c=count_mots(a,';',1); run;

22/02/2013, 18h02
mohamed_

Merci edward ,

ça fonctionne très bien cet outil.

Une question :

Code:

outlib=work.functions.samples

est un catalogue de fonction qui est dans la work un peu comme dans une proc format ?

Si oui, alors je pourrais la stocker ds le répertoire où j'ai mes formats et je pourrais l'appeler comme n'importe qu'elle autre fonction de sas.