Discussion :

[vince2005]

Bonjour,

J'ai une chaine de caractéres toto qui peut etre de longeur variable.
toto=54929379001
toto=456123
toto=004566

Je souhaiterai que ma chaine toto soit au maximum sur 11 caractéres. Si ce n'est pas le cas, alors le caractére "0" s'affiche sur la gauche.

Code :

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

1
2
3
 
$toto = sprintf  "%011d", $toto;
print ">$NumCompte_Destinataire<\n";

cette formule fonctionne la ligne 2 et 3, mais dans le cas où ma valeur toto=54929379001, car le resultat est alors le suivant >-0000000001<.

Par contre si je remplace le 5 par un 0. Alors ça fonctionne de nouveau
toto=04929379001

Merci pour votre aide

[djibril]

Bonjour,

Exprime toi mieux car je ne comprends rien à ta demande et exemples.

[sth56]

bonjour,

C'est normal que tu obtienne >-0000000001< quand ta valeur vaut 54929379001 parce que tu formate ton résultat dans un entier et un entier est limiter par rapport au système
Integer -2147483648..2147483647 32 bits signé
Cardinal 0..4294967295 32 bits non signé

[sth56]

si ce que tu veux faire est d'avoir 0 comme valeur quand ta chaine de caractères est supérieur à 11 sinon tu garde la valeur de ta chaine tu peux faire comme ça :

Code :

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

1
2
3
$toto = sprintf  "%011d", $toto;
$NumCompte_Destinataire = (length($toto)>11) ? 0 : $toto;
print ">$NumCompte_Destinataire<\n";

[djibril]

Code :

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

1
2
3
$toto = sprintf  "%011s", $toto;
$NumCompte_Destinataire = (length($toto)>11) ? 0 : $toto;
print ">$NumCompte_Destinataire<\n";

[vince2005]

j'ai bien compris, sauf que ma chaine n'est pas supérieur à 11, mais égal à 11.

dois je comprendre que "0" n'est pas une valeur.

[vince2005]

parfois ma variable fait tout juste 11 caractéres avec un entier 1 2 3 ou 4....
et c'est là que ça plante.

En fait je dois formater cette variable pour qu'elle fasse 11 caractéres.
Si elle l'ai fait à l'origine, je ne touche à rien, sinon je rajoute des "0".

[sth56]

tu peux faire comme ça :

Code :

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

1
2
3
my $nbZero = 11-length($toto);
my $NumCompte_Destinataire = sprintf "%0${nbZero}s",$toto;
print ">$NumCompte_Destinataire<\n";

par contre ce code ne gère pas le cas ou tu aurais plus de 11 caractères

[vince2005]

quel est la difference entre ${nbZero}s et ${nbZero}d ?

la difference entre s et d ?

Merci

Avant il suffit de faire un test sur ma longeur de chaine ? si c'est supérieur à 11, alors on ressort en erreur ?

[Lolo78]

%s (string): traite la valeur comme une chaîne de caractères
%d (decimal): traite la valeur comme un entier décimal signé

Dans ton cas, l'un ou l'autre devrait marcher (sauf si le nombre peut-être négatif).

[vince2005]

J'ai ce test ci dessous et là, ça ne fonctionne pas :

Le nombre de caractére est 9. ors je voudrais arriver à 11 en mettant les 0 devant.

my $toto="123456789";
my $nbZero = 11-length($toto);
$toto= sprintf "%0${nbZero}s",$toto;
print ">$toto<\n";

[Gardyen]

Code :

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

sprintf "%011s",$toto;

ce code là te donnera une chaine de 11 chiffres, avec des 0 devant (autant qu'il faut pour avoir 11 caractères) s'il y a moins de 11 chiffres, pas besoin de calculer

cf doc perl

[sth56]

Pour que ça fonctionne il faut que tu fasse ça :

Code :

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

$toto= sprintf "%0${nbZero}s%s",0,$toto;

(désoler j'ai modifier mon message au dernier moment en pensant que ça allait fonctionner)

[vince2005]

alors là, ca va beaucoup mieux !!
sauf que si à la base j'ai 11 caractéres, en fait je me retrouve avec un 0, donc 12 caractéres, au lieu des 11 maximum

my $toto="12345678901";
my $nbZero = 11-length($toto);
#$toto= sprintf "%0${nbZero}s",$toto;
print "$nbZero\n";
$toto= sprintf "%0${nbZero}s%s",0,$toto;
print ">$toto<\n"

Donne => >012345678901<

Deplus à quoi sert s%s",0 ?
le premier s pour du string

Merci pour votre aide.

[vince2005]

Pour palier à mes différents problèmes, j'ai été obligé de faire ça :

$toto="12345678901";

$NbCar=length($toto);
if ( ${NbCar} > 11 ) { print "erreur\n"; exit;}
if ( ${NbCar} < 11 ) { $toto= sprintf "%011d",$toto;}
if ( ${NbCar} == 11 ) { $toto=$toto;}

print "$toto\n";