Discussion :

[Filippo]

Bonjour,
je dois exporter dans un fichier texte le contenu d'une table.

Pour certains champs numériques, je dois placer un + devant le nombre s'il est positif ou nul. Je dois également combler les emplacements vides par des zéros.

J'avais opté pour cette solution qui fonctionne bien avec des entiers :

Code :

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

1
2
length stMyVar$ 8.;
if MyVar ge 0 then stMyVar='+'||put(MyVar,z7.); else stMyVar=put(MyVar,z8.);

Cette méthode n'exporte pas les séparateurs décimaux.

Code :

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

if MyVar ge 0 then stMyVar='+'||put(MyVar,z7.2); else stMyVar=put(MyVar,z8.2);

va bien fonctionner sur des nombres avec deux chiffres après la virgule.

Je cherche une manière simple de compter le nombre de décimales d'un nombre pour récupérer cette valeur et l'injecter dans mes put.

Sachant que MyVar est au format 8. mais que je ne sais pas pour chaque enregistrement s'il y a un séparateur décimal et le nombre de décimales après le séparateur.

Si quelqu'un a une idée je suis preneur.

Merci.

[datametric]

Pourquoi tu n'as pas créé un format avec PICTURE, il gère beaucoup de choses. Tu connais ?

[Filippo]

Pourquoi tu n'as pas créé un format avec PICTURE, il gère beaucoup de choses. Tu connais ?

Merci Stéphane,
Oui je connais PICTURE.

Avec l'application de cette syntaxe :

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
proc format;
	picture fMy1Int low-high='9';		
	picture fMy2Int low-high='99';		
	picture fMy3Int low-high='999';		
	picture fMy4Int low-high='9999';		
	picture fMy5Int low-high='99999';		
	picture fMy6Int low-high='999999';		
	picture fMy7Int low-high='9999999';		
	picture fMy8Int low-high='99999999';		
 
	picture fMy7Dec
		low-<0='9999.00'
		0-high='999.00' (prefix='+')
	;
 
	picture fMy8Dec
		low-<0='99999.00'
		0-high='9999.00' (prefix='+')
	;
run;

J'adapte le format en fonction de la taille de chaque champ.
par exemple pour un champ représentant un entier sur 3 caractères :

Code :

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

bilan fMy3Int.

Pour un champ décimal sur 8 caractères avec le '+' devant si le nombre est positif ou nul :

Code :

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

d61 fMy7Dec.

Quand j'ouvre la table c'est nickel par contre quand j'ouvre avec Excel ou bien que j'exporte dans un fichier ascii alors les zéros devant disparaissent.

[bahraoui]

utilise un put pour appliquer le format.
au lieu de format d61 fMy7Dec.

[Filippo]

utilise un put pour appliquer le format.
au lieu de format d61 fMy7Dec.

Merci Bahraoui,
je reconvertis mes champs numériques en alphanumériques avant l'export en utilisant :

Code :

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

std61=put(d61,fMy7Dec.);

et c'est std61 que j'écris dans le fichier ascii.

Là je récupère bien mes zéros par contre j'ai toujours des nombres +8652.00 au lieu d'avoir +0008652.

Même avec picture je n'arrive pas à ne pas mettre de séparateur décimal quand le nombre n'a pas de décimale.

Je reviens au même résultat qu'avec la syntaxe :

Code :

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

if d61 ge 0 then std61='+'||put(d61,z6.2); else std61=put(d61,z7.2);

[datametric]

tu aurais un jeu de données ? et le code qui fonctionne ?
pour excel ça ne m'étonnes pas mais pour le fichier plat, si le champ dans SAS apparaît bien, il faudrait le convertir en caractère ensuite afin de figer le format.