Discussion :

[cubepiege]

Bonjour,
je fais appel à vous car je coince sur une problématique.
J'ai écrit un script qui contrôle la longueur d'un numéro de matricule. Ce champs doit être sur 10 caractères.
Ainsi lorsque je vois qu'une valeur = '5636' par exemple, je rajoute des zéros devant pour arriver à 10 caractères. J'obtiens donc '0000005636'.

Je souhaite faire le contraire, et là je ne sais pas comment m'y prendre.
Si j'ai '0000000084', je veux dégager tous les zéros devant et n'avoir que '84'.
Il faut qu'a l'arrivée je puisse enlever tous les zéros à gauche jusqu'à rencontrer un chiffre !='0'

Comment faire svp ?
Cela fait un moment que je suis dessus et je n'y arrive pas.

Merci

[hackoofr]

Postez votre début de code et

[omen999]

bonjour,

Code :

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

1
2
3
4
5
6
NoMat= "0000000084"
NoMatStripped=Mid(NoMat,InStrRev(NoMat,"0")+1)
MsgBox NoMatStripped
NoMat="0000005636"
NoMatStripped=Mid(NoMat,InStrRev(NoMat,"0")+1)
MsgBox NoMatStripped

l'intérêt, c'est que le code est fonctionnel quelque soit la longueur de la chaine initiale

[cubepiege]

Bonjour omen, merci pour ta réponse, j'ai testé et cela à l'air de fonctionner mais:
N'y aurait-il pas un soucis dans le cas ou l'on a des matricules = '0000000001', '0000000010' et '0000000100'.
je l'ai passé sur un jeu de test et j'ai l'impression qu'il m'a dégagé des matricules lorsque l'on est dans ce cas. ici il me les a mis tous à '1'.
Du coup j'ai perdu mes matricules '10' et '100'.

Je crois que ton script enlève également les zéros après les chiffres !='0' qu'il trouve et pas seulement avant

[papyxy]

bonjour

voila comment je ferai :

Code :

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

1
2
x="000000100"
msgbox x+0

[pitchalov]

Bonjour,
Moi je m'y serais pris comme ça :

Code :

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

1
2
3
4
5
6
NoMat= "0000000084"
NoMatStripped = CInt(NoMat)
MsgBox NoMatStripped
NoMat="0000005636"
NoMatStripped = CStr(CInt(NoMat)) 'S'il faut absolument une chaine
MsgBox NoMatStripped

[cubepiege]

Bonjour,
merci Pitchalov.
Cela fonctionne parfaitement.
C'était je pense, la manière la plus simple de régler ce problème.

Bien à toi.
Cordialement

[omen999]

vive le cast explicite
c'est effectivement la meilleure solution

edit :
le cast implicite c'est bien aussi mais pas recommandé pour la lisibilité

[I'm_HERE]

Salut,

Une autre façon est d'utiliser les regex

Code :

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

1
2
3
4
 
str="0000000012"
Set r=new regex :  r.pattern="^0*"
Msgbox(r.replace(str,""))