Remplacer des ', des -, des / dans une variable par des _ [Résolu]

[zellinho]

Bonjour,

J'ai une variable alphanumérique avec des charactères "-", "'" (apostrophe), "/"... je souhaite les remplacer par "_".

Exemple (table avec la variable NOM):
NOM :
Psychologie-Psychanalyse
Musique d'ambiance



Je souhaite avoir ceci (remplacement des espaces, tirets, apostrophe par _ ) :
NOM :
Psychologie_Psychanalyse
Musique_d_ambiance

L'idéal serait de le faire via une macro... en cherchant sur ce forum, j'ai trouvé quelque chose qui se rapproche de ce que je veux.. mais je ne sais pas comment le modifier pour trouver ma solution :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
%LET liste="- ' /";
 
%MACRO CONVERSION;
DATA  Tab_Out;
	SET Tab_In;
	%DO i=1 %TO 3;
		%LET liste&i=%SCAN(&liste.,&i.,' ');/* Scan la liste &liste.*/
		nom2=tranwrd(nom,"&&liste&i.",'_');/* remplace du alpha-numérique par un _*/
	%END;
RUN;
%MEND CONVERSION;
 
%CONVERSION;

Merci par avance de votre aide !

[bahraoui]

bonjour,

Tu peux utiliser la proc translate

Code :

1
2
3
4
5
6
7
8
9
10
 
 
DATA test;
chaine="/e-/-lk' j";
chaine_modif=translate(chaine,'_',"'");
chaine_modif=translate(chaine_modif,'_',"/");
chaine_modif=translate(chaine_modif,'_',"-");
chaine_modif=translate(chaine_modif,'_'," ");
run;
proc print; run;

[zellinho]

hum... si j'ai

Code :

chaine = "musi'd'ambiance               "

ça me donne

Code :

chaine = "musi_d_ambiance_________"

pas génial...

[Manoutz]

avec lka fonction compbl ca devrait fonctionner

Code :

1
2
3
4
5
6
7
8
DATA test;
chaine="/e-/-lk' j";
chaine_modif=translate(compbl(chaine),'_',"'");
chaine_modif=translate(compbl(chaine)_modif,'_',"/");
chaine_modif=translate(compbl(chaine)_modif,'_',"-");
chaine_modif=translate(compbl(chaine)_modif,'_'," ");
run;
proc print; run;

[bahraoui]

Tu as demandé de rempler les espaces par des '_'.

Je souhaite avoir ceci (remplacement des espaces, tirets, apostrophe par _ ) :

[bahraoui]

Envoyé par Manoutz

avec lka fonction compbl ca devrait fonctionner

Code :

la fonction compbl remplace plusieurs blancs par un seul.
il faudrait peut être préciser les blancs qu'il faut remplacer!!!

[bahraoui]

tu peux enlever le dernier translate

Code :

1
2
 
chaine_modif=translate(compbl(chaine)_modif,'_'," ");

[Manoutz]

en mon sens ca semble qu'il s'agit de ceux situés au début et à la fin...

mais il y a peut être encore mieux avec la fonction strip. En coimbinant avec compbl ca efface tous les blans redondants ainsi que ceux situés au début et à la fin..

Code :

1
2
3
4
5
6
7
8
DATA test;
chaine="/e-/-lk' j";
chaine_modif=translate(strip(compbl(chaine)),'_',"'");
chaine_modif=translate(strip(compbl(chaine))_modif,'_',"/");
chaine_modif=translate(strip(compbl(chaine))_modif,'_',"-");
chaine_modif=translate(strip(compbl(chaine))_modif,'_'," ");
run;
proc print; run;

[zellinho]

désolé cela ne marche pas... en tout, ce n'est pas que j'aimerais avoir

je passe de

Polars / SF

à

Polars_/_SF_

[Manoutz]

Il faut remplacer les / ou pas? pas très clair tout ca ....

Merci de reformuler précisément ta demande

Au fait, à propos de strip... Cette fonction n'est valable qu'à partir de sas 9.1

[bahraoui]

Envoyé par zellinho

désolé cela ne marche pas... en tout, ce n'est pas que j'aimerais avoir

je passe de



à

Tu veux quoi comme résultat pour ce cas?

[zellinho]

Alors, pour préciser...

Voilà ce que j'ai :

Code :

1
2
3
4
5
6
7
Hard Rock
Histoire / Actualités
Humour-Théatre
Jazz
Jeunesse
Jeux Mac
Jeux Nintendo WII-DS

et je voudrais avoir :

Code :

1
2
3
4
5
6
7
Hard_Rock
Histoire_Actualités
Humour_Théatre
Jazz
Jeunesse
Jeux_Mac
Jeux_Nintendo_WII_DS

Les blancs qui sont situés après le dernier caractère ne doivent pas être pris en compte.

Je suis en 9.2, donc c'est bon pour le strip.

[MEGAMIND2]

Envoyé par Manoutz

Il faut remplacer les / ou pas? pas très clair tout ca ....

Merci de reformuler précisément ta demande

Au fait, à propos de strip... Cette fonction n'est valable qu'à partir de sas 9.1

J'ai l'impréssion qu'il ne supprime pas les blancs à droite (j'ai la 9.1 aussi)

[Manoutz]

je suppose que tu as fait une erreur pour "hard rock", tu veux obtenir "hard_rock"...

etant donné le cas "Histoire / Actualités"
ou tu as caractères clés successiveent, je te propose:

1/de transformer tous les caratères spéciaux, hormis en espaces, via tranwrd
2/virer les blancs au début et à la fin, ainsi que ceux qui sont redondants, via un strip/compbl

[zellinho]

Envoyé par Manoutz

je suppose que tu as fait une erreur pour "hard rock", tu veux obtenir "hard_rock"...

oui tout à fait !

Envoyé par Manoutz

etant donné le cas "Histoire / Actualités"
ou tu as caractères clés successiveent, je te propose:

1/de transformer tous les caratères spéciaux, hormis en espaces, via tranwrd
2/virer les blancs au début et à la fin, ainsi que ceux qui sont redondants, via un strip/compbl

je vais essayer...

[Manoutz]

@megamind:

tu es sur ou c'est juste une impression personnelle?

[zellinho]

Je pars de ça :
NOM

Hard Rock
Histoire / Actualités
Humour-Théatre
Jazz
Jeunesse
Jeux Mac
Jeux Nintendo WII-DS

J'ai essayé ça :

Code :

1
2
3
4
5
6
7
DATA  VAR_ARBO2 ;
	SET VAR_ARBO;
		nom2=translate(nom,'_',"'");
		nom3=translate(nom2,'_','-');
		nom4=translate(nom3,'_','/');
		nom5=translate(strip(compbl(nom4)),'_',' ');
RUN;

malheureusement ... cela me donne ça :

Histoire___Actualités

en fait, en NOM4

j'ai ça :

Histoire _ Actualités

et ensuite en NOM5 j'arrive à

Histoire___Actualités

alors que je voudrais

Histoire_Actualités

sinon, pour les autres j'ai bien ce que je veux à savoir :

Hard_Rock
Histoire_Actualités
Humour_Théatre
Jazz
Jeunesse
Jeux_Mac
Jeux_Nintendo_WII_DS

[bahraoui]

ça se complique

[zellinho]

hé ^^ c'est pour ça que je suis ici ! ^^

[MEGAMIND2]

Envoyé par bahraoui

ça se complique