Longueur sur 2 caractères

Signaler
Messages postés
54
Date d'inscription
lundi 3 décembre 2001
Statut
Membre
Dernière intervention
17 septembre 2002
-
Messages postés
54
Date d'inscription
lundi 3 décembre 2001
Statut
Membre
Dernière intervention
17 septembre 2002
-
bonjour,
g besoin de mettre une longueur (supérieure à 255) sur 2 caractères mais je sais pas du tout comment faire.
j'ai essayé en calculant 2 valeurs comprises entre 1 et 255 et en les multipliant mais certaines valeurs font chier (991 par exemple) et donc j'ai besoin de votre aide car je ne veux pas passer par un fichier dans lequel je stoquerais un integer en binaire car c'est pas propre....

merci d'avance...

1 réponse

Messages postés
54
Date d'inscription
lundi 3 décembre 2001
Statut
Membre
Dernière intervention
17 septembre 2002

non c bon g trouvé chui bête.... si jamais kelk'un en a besoin voici la fonction :
Public Function getLenSur2Octets(Chaine As String) As String
For i = 0 To 255
For j = 0 To 255
If i + (j * 255) = Len(Chaine) Then
getLenSur2Octets = Chr(i) & Chr(j)
Exit Function
End If
Next j
Next i
End Function

c tout con j'avais juste oublié de brancher mon cerveau ;)
0