Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 585 fois - Téléchargée 36 fois
' ----------------------------------------------------- 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)
J'avais besoin de connaitre la longueur de ma chaîne issue d'une réception via TCPClient, pour exclure de ma chaîne finale les 4 premiers octects en utilisant subtring.
Encore Merci fabrice (y)
Pour adapter cette source en ASP.NET (VB.NET), il faut remplacer la fonction "len" par la fonction incluse dans la classe du type string (qui doit etre length de mémoire).
F___
Quel imports... faut il mettre pour que la fonction Len() soit détectée ?
Bye,
Et merci pour tes nombreux codes ;)
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.