Bonsoir à tous,

J'ai un petit problème.
Je dois convertir un Long en String pour des besoins de stockage de données.

Exemple :
le nombre 1830381757 donne 6D1968BD en hexadécimal
&H6D = 109
&H19 = 25
&H68 = 104
&HBD = 189

Il faut donc que je trouve, à partir du nombre de départ (celui en décimal) et par le calcul, les nombres en gras.
Je savais comment le faire avec des xor et des divisions, mais j'ai oublié.
Merci d'avance.

Salut, créer une variable String

regarde :

dim toto as string dim mydata as long mydata=1830381757 toto=mydata

Et le tour est jouer, j'ai tester et ça marche super

Chris...
Firstruner

Encore toi lol
Lis mon post en entier et c'est drôlement plus complexe.

!heu bhà vi tjs moi, mais pas pour longtemp y'a un film sur TF1 et Urgence sur FR2.

je dois dire que ta question est assez tordu, lol.

je n'en ai aucune idée, mais j'ai hâte de votre la solution

Chris...
Firstruner

Bon alors une solution avec du bricolage :
Tu decoupes la chaine initale en morceaux de deux caracteres puis tu convertis en decimal avec cdec(" ")
Un truc du genre (a tester je le fais en live) :

schaine = Hex("1830381757") ' renvoie 6D1968BD
Dim sNombreEnGras (1 to int(tlen (schaine)/2))

for nboucle 1 to len(schaine) step 2
sBuffer = mid$(schaine,nboucle,2)
sNombreEnGras(nboucle) = Cdec(sBuffer)
next nboucle

Enfin un truc dans ce gout la koi.

Mais ca reste du bricolage si kkun a mieux j'aimerais savoir ne serait ce que par curiosité.

PS:yaura sns doute une erreur a la fin de la boucle mais je peux pas tester dsl.

The Pingouin

Function toString(nombre As Long) As String
Dim sHex As String
Dim i As Integer
Dim itemp As Integer
sHex = Right("00000000" & Hex(nombre), 8)
Debug.Print sHex
toString = ""
For i = 0 To 3
toString = toString + Chr(Val("&H" & Mid(sHex, 2 * i + 1, 2)))
Next i
End Function
' :)

Pingouin,

J'ai tester ça mais le script diffère un peu de ton original. PB : Type incompatible sur CDEC :

schaine = Hex("1830381757") ' renvoie 6D1968BD ReDim sNombreEnGras(1 To Int(Len(schaine) / 2)) For nboucle = 1 To Len(schaine) sBuffer = Mid$(schaine, nboucle, 2) sNombreEnGras(nboucle) = CDec(sBuffer) Next nboucle

Chris...
Firstruner

(tu peux enlever le debug.print c'était pour que je verifie)

(et le itemp aussi :s bon je le refais)


Function toString(nombre As Long) As String
Dim sHex As String
Dim i As Integer
sHex = Right("00000000" & Hex(nombre), 8)
toString = ""
For i = 0 To 3
toString = toString + Chr(Val("&H" & Mid(sHex, 2 * i + 1, 2)))
Next i
End Function
' :)

ou sinon, bcp plus chouette (je viens d'y penser)

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)

Function toString2(nombre As Long) As String
Dim sTemp As String
CopyMemory sTemp, nombre, Len(nombre)
toString2 = sTemp
End Function