Discussion :

[tassia]

bonjour à tous,


je voudrais rajouter un saut de ligne à chaque fin d'adresse.

ADRESSE2
ADRESSE3
ADRESSE4
ADRESSE5

Code :

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

adresse_complete=compbl(ADRESSE2)&chr(10)!!compbl(ADRESSE3)&chr(10)!!compbl(ADRESSE4)&chr(10)+compbl(ADRESSE5);

pouvez-vous m'aider s'il vous plait?

[RemiBousquet]

Tu veux rajouter le saut de ligne à quel moment ?
Dans la variable ?
Ou quand tu exportes l'information ? (dans l'output, via un proc print, autre ?)

[tassia]

re-bonjour,


Le fichier client que je traite contient des saut de lignes au niveau de l'adresse; je dois normaliser ces adresses mais les rendre dans un même champ PR_MAILING et remettre les sauts de lignes .

voilà ce que j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
9
data aa;
set a;
/*** PR_MAILING ***/
PR_MAILING=compbl(ADRESSE2_D)!!'0A'x!!compbl(ADRESSE3_D)!!'0A'x !!compbl(ADRESSE4_D)!!'0A'x!!compbl(ADRESSE5_D);
if substr(PR_MAILING,1,1) ='0A'x   then PR_MAILING=substr(PR_MAILING,2);
if substr(PR_MAILING,1,1) ='0A'x   then PR_MAILING=substr(PR_MAILING,2);
if substr(PR_MAILING,1,1) ='0A'x   then PR_MAILING=substr(PR_MAILING,2);
if substr(PR_MAILING,length(PR_MAILING)-1,1)='0A'x   then PR_MAILING1=substr(PR_MAILING,1,length(compbl(PR_MAILING)-2));
run;

je rajoute des sauts de lignes après chaque adresse normalisée lorsque je concatène et à chaque fois que l'adresse est vide je dois bien sûr enlever le saut de ligne.

Mon programme ne marche pas, est ce que vous pouvez m'aider s'il vous plait?

Je vous remercie par avance.

[JeromeMATHIAS]

Bonjour,

pour vérifier que ton programme ne marche pas passe ta variable texte en hexadécimal.

De mon côté ton code, quoique un peu complexe (il existe des choses plus simples), marche parfaitement....

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
 
data a;
adresse2_d="2 RUE CHARLES DE GAULLE";
adresse3_d="RES DES FFL";
adresse4_d="BAT VERCORS";
adresse5_d="AA888 VILLE DES FRANCAIS LIBRES";
run;
 
 
 
data aa;
set a;
LENGTH PR_MAILING $200. ;
/*** PR_MAILING ***/
PR_MAILING=compbl(ADRESSE2_D)!!'0A'x!!compbl(ADRESSE3_D)!!'0A'x !!compbl(ADRESSE4_D)!!'0A'x!!compbl(ADRESSE5_D);
if substr(PR_MAILING,1,1) ='0A'x   then PR_MAILING=substr(PR_MAILING,2);
if substr(PR_MAILING,1,1) ='0A'x   then PR_MAILING=substr(PR_MAILING,2);
if substr(PR_MAILING,1,1) ='0A'x   then PR_MAILING=substr(PR_MAILING,2);
if substr(PR_MAILING,length(PR_MAILING)-1,1)='0A'x   then PR_MAILING1=substr(PR_MAILING,1,length(compbl(PR_MAILING)-2));
run;
 
DATA aa2; SET aa;
PR_MAILING_HEXA=PUT(PR_MAILING,$HEX1000.);
RUN;
 
PROC PRINT DATA =aa2;
VAR PR_MAILING PR_MAILING_HEXA ;
RUN;

PR_MAILING
2 RUE CHARLES DE GAULLE RES DES FFL BAT VERCORS AA888 VILLE DES FRANCAIS LIBRES

PR_MAILING_HEXA
322052554520434841524C4553204445204741554C4C450A524553204445532046464C0A42415420564552434F52530A41413838382056494C4C4520444553204652414E43414953204C494252455320202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020


Et puis si ce que tu demande c'est de rajouter à la toute fin (non compris trailling blank) que tu veux rajouter un retour à la ligne, tu fais comme ça PR_MAILING=compbl(ADRESSE2_D)!!'0A'x!!compbl(ADRESSE3_D)!!'0A'x !!compbl(ADRESSE4_D)!!'0A'x!!compbl(ADRESSE5_D)!!'0A'x;



Edit :

En fait je crois avoir saisi où se situe ton problème.
Utilise la fonction CATX elle fera très bien le "job".

Pr_MAILING=CATX('0A'x,OF ADRESSE2_D ADRESSE3_D ADRESSE4_D ADRESSE5_D);

[tassia]

merci beaucoup, je ne connaissais pas cette fonction, effectivement ça aide beaucoup!!!! je teste

[tassia]

super ça fonctionne!


Bonne journée!

[s_a_m]

ou encore plus simple :

Code :

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

1
2
 
Pr_MAILING=CATX('0A'x,OF ADRESSE:);