leer archivo hexadecimal en VB6

[thebestmatrix007]

hola buen dia todos. bueno tengo un pequeño inconveniente tengo un archivo *.dat el cual se puede leer en un programa HEXADECIMAL, bueno el archivo si lo entiendo y todo, lo que pasa es que yo quiero convertir el dato HEXADECIMAL a DECIMAL en VB6, ia tengo los campos y todo creado solamente para abrirlo en el VB, pero no entiendo como hago para abrirlo en el VB y que me lea los datos en DECIMALES.

por decir este es una parte del codigo HEXADECIMAL.

77000000740000007400000000000000506972617465000000 00000000000000000000000000000117010000E02E00009001 000001000000504600005802000001000000C05D0000200300 0001000000AC0701006009000001000000F82401004C1D0000 01010000000000000600000000000000090000000000000000 000000000000000500000057652061726520746865206B696E 67206F6620746865207365612100

donde los numeros: 7400 vienen a tener el valor de 116

506972617465: tiene el nombre

y asi sucesivamente. quiero convertirlos en decimales y me los muestre en un txtbox.

si alguien sabe de esto me caeria bien una ayudita saludos ;)

[Insomnia]

Hola

Supongo que lo que tienes que hacer es leer el documento, y una vez lo tienes, convertirlo a decimal.

Código:

Dim Linea as String
Dim texto as string

Open "C:\Prueba.dat" for input as #1
while not EOF(1)
   Line input #1, Linea
   texto= texto & Linea
Wend
close #1

No recuerdo muy bien el código, puede tener errores, pero es algo parecido. Con esto, lees el documento linea a linea y lo guardas en la variable texto. Una vez que tengas los datos en la variable texto puedes pasarlos a decimal, mostrarlos en una caja de texto,...

--Saludos--

[thebestmatrix007]

hola gracias por tu respuesta y ayuda pero, use el codigo que me pasaste ahi y pues no me muestra nada ala hora de ejecutar y todo. no sale nada. espero alguien mas pueda ayudar en algo, y gracias nuevamente por su ayuda ;)

[Insomnia]

Hola

Como te comento en el post anterior, el código es algo orientativo, es decir, para que puedas seguir investigando, no es un código para copiar y pegar.

[pkj]

Aquí te dejo un ejemplo. Para probarlo crea un form con 3 textbox y 1 commandbutton.

Se leerá un fichero hexadecimal "C:\hexa.hex"

En el Text1 se carga el texto en hexadecimal
En el Text2 se carga en decimal
En el Text3 se carga en ascii

Código vb:

Private Sub Command1_Click()
  Dim NumFichero As Integer
  Dim NombreArchivo As String
  Dim Linea As String
  Dim F As Long
  NombreArchivo = "C:\hexa.hex"
  NumFichero = FreeFile
  Open NombreArchivo For Input As #NumFichero
  Text1.Text = ""
  Text2.Text = ""
  Text3.Text = ""
  Do Until EOF(NumFichero)
    Line Input #NumFichero, Linea
    Text1.Text = Text1.Text & Linea & vbCrLf
    For F = 1 To Len(Linea) Step 2
      Text2.Text = Text2.Text & CDec("&H" & Mid$(Linea, F, 2))
      Text3.Text = Text3.Text & Chr$("&H" & Mid$(Linea, F, 2))
    Next F
  Loop
  Close NumFichero
End Sub
 

Saludos