|
| Started by r-elex_, Aug., 27 2004 12:26 PM - 4 replies |
| |
| | | |
|
| |
Posted on August, 27 2004 - 12:26 PM |
Bonjour,
J'ai besoin de numeroter un champ de fichier en 00001, 00002, 00003
Comment peut on arriver à ce résultat
Merci de donner quelque pistes de recherche
R Elex |
| |
| |
| | | |
|
| | |
| |
Posted on August, 27 2004 - 12:43 PM |
NumériqueVersChaine + Assistant
ou
NumériqueVersChaine(1, "05,0f")
"R.elex" <r-elex_@9online.fr> a écrit dans le message de
news:412ef070$1@news.pcsoft.fr...
Bonjour,
J'ai besoin de numeroter un champ de fichier en 00001, 00002, 00003
Comment peut on arriver à ce résultat
Merci de donner quelque pistes de recherche
R Elex
|
| |
| |
| | | |
|
| | |
| |
Posted on August, 27 2004 - 1:21 PM |
FONCTION GetFormatedNumber(NumberIN,NumberLength,Mask = 0)
// NumberIn -> Valeur numerique en entrée
// NumberLength -> taille de la chaine en retour
// Mask -> caractère de completion ("0" par defaut)
LOCAL
i est un entier = 0
ReturnValue est une chaîne = ""
SI Taille(NumériqueVersChaine(NumberIN)) > NumberLength ALORS
// traitement de l'exception... a coder
RENVOYER .....
FIN
POUR i = 1 A NumberLength
ReturnValue += Mask
FIN
RENVOYER Gauche(ReturnValue,Taille(NumériqueVersChaine(NumberIN))+1) + NumériqueVersChaine(NumberIN)
-------Explication-----------
Compteur = 23
NOMFICHIER.NOMRUBRIQUE = GetFormatedNumber(Compteur,5)
DANS CE CAS resultat = "00023"
NOMFICHIER.NOMRUBRIQUE = GetFormatedNumber(Compteur,
DANS CE CAS resultat = "00000023"
NOMFICHIER.NOMRUBRIQUE = GetFormatedNumber(Compteur,6,"#")
DANS CE CAS resultat = "####23" |
| |
| |
| | | |
|
| | |
| |
Posted on August, 27 2004 - 1:28 PM |
"Magena" <magena@free.fr> wrote:
NumériqueVersChaine + Assistant ou NumériqueVersChaine(1, "05,0f") "R.elex" <r-elex_@9online.fr> a écrit dans le message de news:412ef070$1@news.pcsoft.fr...
Bonjour,
J'ai besoin de numeroter un champ de fichier en 00001, 00002, 00003
Comment peut on arriver à ce résultat
Merci de donner quelque pistes de recherche
R Elex
La solution de Magena est bonne mais statique
Pas de gestion des exceptions en cas de depassement de la taille et comme
il s'agit d'un compteur ..... |
| |
| |
| | | |
|
| | |
| |
Posted on August, 27 2004 - 8:37 PM |
Merci pour votre réponse claire
R Elex
"jfc Themia" <jfc_themia@hotmail.com> a écrit dans le message de
news:412efd17$1@news.pcsoft.fr...
FONCTION GetFormatedNumber(NumberIN,NumberLength,Mask = 0)
// NumberIn -> Valeur numerique en entrée
// NumberLength -> taille de la chaine en retour
// Mask -> caractère de completion ("0" par defaut)
LOCAL
i est un entier = 0
ReturnValue est une chaîne = ""
SI Taille(NumériqueVersChaine(NumberIN)) > NumberLength ALORS
// traitement de l'exception... a coder
RENVOYER .....
FIN
POUR i = 1 A NumberLength
ReturnValue += Mask
FIN
RENVOYER Gauche(ReturnValue,Taille(NumériqueVersChaine(NumberIN))+1) +
NumériqueVersChaine(NumberIN)
-------Explication----------- Compteur = 23 NOMFICHIER.NOMRUBRIQUE = GetFormatedNumber(Compteur,5) DANS CE CAS resultat = "00023" NOMFICHIER.NOMRUBRIQUE = GetFormatedNumber(Compteur, DANS CE CAS resultat = "00000023" NOMFICHIER.NOMRUBRIQUE = GetFormatedNumber(Compteur,6,"#") DANS CE CAS resultat = "####23" |
| |
| |
| | | |
|
| | | | |
| | |
|