CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 04 23:54:46

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

JE VEUX UNE CONLISION par kabouri

RE : LIEN VISUAL FOXPRO VFP7 VERS EXCEL par Larix

RE : LIEN VISUAL FOXPRO VFP7 VERS EXCEL par MichelAtoutFox

LIEN VISUAL FOXPRO VFP7 VERS EXCEL par Larix

FOXPRO 3.0B par tantoun20

+ de logiciels à télécharger

1 464 482 membres
373 nouveaux aujourd'hui
15 045 membres club

Trouver une ressource

Trouvez une ressource parmi 40 096 codes, 1 302 897 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

STRZERO FCTN QUI INSÈRE DES 0.

Information sur la source

Catégorie :Divers Classé sous : str, remplace, espace, zero, trim Niveau : Débutant Date de création : 07/10/2004 Vu : 2 354

Auteur : RomanS

Site perso

Ecrire un message privé

Note :

9,00 / 10

Commentaire sur cette source (2)

Ajouter un commentaire et/ou une note

Description

Fonction basique, mais dont je ne me passe plus...

Source

Function StrZero( pnN, pnLong )
local cNumber
if type("pnLong") # "N"
pnLong = 10
endif
cNumber = ltrim(str( pnN, pnLong ))
if "-" $ cNumber
cNumber = substr(cNumber,2)
return ( '-' + padl(cNumber, pnLong - 1, "0") )
endif
return ( padl(cNumber, pnLong, "0") )
ENDFUNC

Function StrZero( pnN, pnLong )

	local cNumber

	if type("pnLong") # "N"
		pnLong = 10
	endif

	cNumber = ltrim(str( pnN, pnLong ))

	if "-" $ cNumber
		cNumber = substr(cNumber,2)
		return ( '-' + padl(cNumber, pnLong  - 1, "0") )
	endif

	return ( padl(cNumber, pnLong, "0") )

ENDFUNC

Conclusion

Voilà c'est tout bête mais fallait y penser.

Sources de la même categorie

RENOMMER LE PRÉFIXE DE TOUS LES FICHIERS D'UN DOSSIER par mike_vk

COULEUR HEXADECIMAL par tmcuh

ITERATION par DDU de AtoutFox

CRYPTE/DECRYPTE par FredArmoni

CONTRÔLE DU NUMÉRO DE TVA (BELGE) par johnmary

Toutes les sources de la catégorie Divers

Commentaires et avis

Commentaire de ccguns le 08/10/2004 08:46:24

C'est marrant, j'ai la même fonction. J'ai toujours cru qu'elle avait été écrite par quelqu'un de la boite où je travaille, mais à priori non.
La voilà, un peu modifiée pour gérer les décimales :

* Fonction : Strzero
* Objet : Permet d'effectuer un STR en remplaçant les espaces par des zéros.
* Paramètre : - La valeur numérique
*   - La longueur de la chaine totale
*   - Le nombre de chiffre après la virgule
* Exemple : ? strzero(123.45, 8, 2) => "00123.45"

FUNCTION strzero

PARAMETERS m.valeur, m.longueur, m.decimale

PRIVATE lcRetour
PRIVATE m.chaine
PRIVATE m.nb_param

STORE "" TO lcRetour
STORE "" TO m.chaine
STORE 1 TO m.nb_param

m.nb_param = IIF(EMPTY(m.longueur), 1, IIF(EMPTY(m.decimale), 2, 3))

IF (TYPE("m.valeur") <> "N")
m.chaine = IIF(m.nb_param =  1, STR(0), IIF(m.nb_param =  2, STR(0, m.longueur), STR(0, m.longueur, m.decimale)))
ELSE
m.chaine = IIF(m.nb_param =  1, STR(m.valeur), IIF(m.nb_param =  2, STR(m.valeur, m.longueur), STR(m.valeur, m.longueur, m.decimale)))
ENDIF

lcRetour = STRTRAN(m.chaine," ", "0")

IF m.nb_param = 2 AND LEN(lcRetour) > m.longueur
lcRetour  = LEFT(lcRetour , m.longueur)
ENDIF

RETURN lcRetour