CONVERSION HEXADECIMAL
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
10 août 2003 à 11:07
user82 Messages postés 2 Date d'inscription samedi 11 mars 2006 Statut Membre Dernière intervention 10 août 2006 - 10 août 2006 à 12:10
user82 Messages postés 2 Date d'inscription samedi 11 mars 2006 Statut Membre Dernière intervention 10 août 2006 - 10 août 2006 à 12:10
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/8187-conversion-hexadecimal
https://codes-sources.commentcamarche.net/source/8187-conversion-hexadecimal
10 août 2006 à 12:10
merci
8 août 2006 à 09:47
VB "perds" parfois cette fonction.
ajoute simplement 'Strings' devant :
Strings.Space$
8 août 2006 à 08:23
j'ai téléchargé un projet en VB mais lorsque je compile, il ne reconnait pas la fonction "Space" ( Renfield l'a utilisé ds son code) . je voudrais savoir s'il y a pas une librairie à ajouter
merci
10 août 2003 à 22:39
quand a tout ce ramassis de commentaire, je prefere user du silence.
10 août 2003 à 22:10
10 août 2003 à 21:43
(En plus entre nous, Niveau 2, je suis pas sur !)
10 août 2003 à 21:27
10 août 2003 à 15:40
et une difference existe bien pour chr(17)
il faut modifier la fonction comme ca :
If Car < 16 Then
et ca donne pareil que ta fonction, donc voila, ca se perfectionne :D
10 août 2003 à 15:34
et j'ai viré ta fonction, a part ca.......
a moins que je ne fasse vraiment une erreur de manipulation....
Que testes-tu comme chaine ?? J'ai fais un test assi, et je recupere la meme chose que toi !
10 août 2003 à 12:28
10 août 2003 à 12:21
10 août 2003 à 11:07
>> For A = 0 To Len(Text)
tu ne peux utiliser l'indice 0 !! (merci le On Error.....)
d'autre part, ton code ne permet de gérer que les strings de 655535 caracteres (type integer oblige.....)
bien sur, VB est assez limité, en longueur de chaine.... passons.
pour une chaine de 65535 caracteres, ton code met 36 secondes (sur ma machine)
cette lenteur provient de la concatenation que tu effectue. En fait, quand tu concatene, vb alloue une variable temporaire, transfere le contenu, alloue la place necessaire pour la variable et y transfere le contenu de la variable temporaire. C'est LONG.
la solution consiste a allouer dès l'origine la place necessaire.et de transferer les valeurs hexa où il faut dans la chaine :
Function HexCrypt2(ByRef Text As String) As String
Dim Size As Long
Dim Buffer As String
Dim Car As Byte
Dim i As Long
Size = Len(Text)
Buffer = Space$(2 * Size)
For i = 1 To Size
Car = Asc(Mid$(Text, i, 1))
If Car <= 16 Then
Mid$(Buffer, (i * 2) - 1, 2) = "0" & Hex$(Car)
Else
Mid$(Buffer, (i * 2) - 1, 2) = Hex$(Car)
End If
Next i
HexCrypt2 = Buffer
End Function
tu verra tout de suite que cette version est PLUS RAPIDE (moins de 200ms sur ma machine.)