Autor
nombre: tamaño: tipo de datos:
cantidad 2 bytes binario LSB-MSB
el problema que me surge es que al leer la cantidad de la BD (tipo de dato integer) lo debo pasar a hexa luego swapearlo y guardar esos valores ocupando solo 2 bytes
Pd: para abrir el archivo y ver como se guardaron los datos guardados uso el UEStudio (UltraEdit)
ej
Código:
Private Sub Form_Load()
Dim cantidad As Integer
Dim cantHexa As String
Dim a As String
Dim b As String
cantidad = 6871 'lo paso a hexa
cantHexa = Hex(6871) 'y da "1AD7" que es un dato de tipo string
'ahora debo guardarlo swapeado y solo ocupando 2 bytes
a = Right(cantHexa, 2) 'D7
b = Left(cantHexa, 2) '1A
Open "D:\pepe.bin" For Binary As #1
Put #1, 1, a 'D7
Put #1, 2, b '1A
Close #1
End Sub
Dim cantidad As Integer
Dim cantHexa As String
Dim a As String
Dim b As String
cantidad = 6871 'lo paso a hexa
cantHexa = Hex(6871) 'y da "1AD7" que es un dato de tipo string
'ahora debo guardarlo swapeado y solo ocupando 2 bytes
a = Right(cantHexa, 2) 'D7
b = Left(cantHexa, 2) '1A
Open "D:\pepe.bin" For Binary As #1
Put #1, 1, a 'D7
Put #1, 2, b '1A
Close #1
End Sub
El problema
que tengo es que este codigo me guarda 44 31 41 en tres bytes (valor hexa de D, el de 1 y el de A el 7 se pisa porque A1 me ocupa 2 bytes ) esto lo veo usando el UEStudio conmutando a modo hexa Lo que yo deseo guardar es D7 (no 44 37) ocupando un solo byte y 1A (no 31 41) ocupando un solo byte o sea que cuando uso el UeStudio en modo hexa vea D7 y 1A ocupando solo 2 byte
Bueno se hizo largo por que trate de ser lo mas claro posible
Espero que se entienda
Un gran saludo
En línea
... como paso a hexa este numero 3502289056 
