Asp.net - rajout de n'importe quel char devant une chaine suivant une taille fixe

Commenter

Contenu du snippet

Une toute petite fonction qui n'est sans doute pas optimisée mais qui peut rendre bien des services, inspiré de celle-ci (en ASP) :
http://aspfr.com/article.aspx?Val=368

Source / Exemple : 


' -----------------------------------------------------
    Function FixeNbZero(ByVal Monchar As String, ByVal chaine As String, ByVal TailleFixe As Integer) As String
        'Fixe la chaine de charactere avec 'TailleFixe' charactere en remplacant (par devant) les characteres manquant par 'char'
        Dim i, longchaine As Integer
        Dim TempChaine As String = ""
        If Len(Trim(chaine)) < TailleFixe Then
            longchaine = Len(Trim(chaine))
            For i = 1 To (TailleFixe - longchaine)
                TempChaine &= Monchar
            Next
            Return TempChaine & Trim(chaine)
        Else
            Return Trim(chaine)
        End If
    End Function

'----------------------------------
'On l'appelle simplement comme ceci :
Dim MonString as String = FixeNbZero("0", Nombre, 5)

Conclusion :


Si vous souhaitez l'améliorer, n'hésitez pas.

Romelard Fabrice (Alias F___)

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_fabrice69)