leer fichero binario

**locutus** · 26/08/2006, 00:28

Hola. Estoy desesperado con un pequeño problema.
Tengo un fichero binario con números hexadecimales y al abrirlo para leerlo y convertir los valores hexadecimales a números decimales no me lo hace.

Por ejemplo, al querer leer la posición 2 del fichero (con valor 14h), trato de almacenar ese dato en un string (cadena) para luego convertirlo a decimal y no lo mete en cadena.

Este es el código:

Private Sub Command1_Click() Dim cadena As String Open App.Path & "prueba.ov2" For Binary As #1 Get #1, 2, cadena Text1.Text = cadena Text2.Text = ConvertHexToDecimal(cadena) Close End Sub

El módulo con el algoritmo ConvertHexToDecimal(cadena) es:

Const HexA = 10 Const HexB = 11 Const HexC = 12 Const HexD = 13 Const HexE = 14 Const HexF = 15 Public Function ConvertHexToDecimal(ByVal HexValue As String) As Variant Dim rValue, A As Long Dim Temp, Rev As String Rev = StrReverse(HexValue) For A = 1 To Len(HexValue) Temp = Mid$(Rev, A, 1) If Val(Temp) = Temp Then 'Character is a number If A = 1 Then Else rValue = rValue + (Val(Temp) * (16 ^ (A - 1))) End If Else Select Case LCase$(Temp) Case "a" If A = 1 Then rValue = HexA Else rValue = rValue + (HexA * (16 ^ (A - 1))) End If Case "b" If A = 1 Then rValue = HexB Else rValue = rValue + (HexB * (16 ^ (A - 1))) End If Case "c" If A = 1 Then rValue = HexC Else rValue = rValue + (HexC * (16 ^ (A - 1))) End If Case "d" If A = 1 Then rValue = HexD Else rValue = rValue + (HexD * (16 ^ (A - 1))) End If Case "e" If A = 1 Then rValue = HexE Else rValue = rValue + (HexE * (16 ^ (A - 1))) End If Case "f" If A = 1 Then rValue = HexF Else rValue = rValue + (HexF * (16 ^ (A - 1))) End If End Select End If DoEvents Next A ConvertHexToDecimal = rValue End Function

Y el caso es que saqué el algoritmo de un proyecto en el que se metía un valor hexadecimal en un textbox y funcionaba.

Gracias

**Anibal** · 26/08/2006, 10:13

Prueba abriendo el archivo como acceso secuencial.

En este ejemplo lee todos los datos del archivo y los muestra en un ListBox:

Código:

 Dim cadena As String
 Open App.Path & "\prueba.ov2" For Input As #1
 Do While Not EOF(1)
 Input #1, cadena
 List1.AddItem cadena
 Loop
 Close #1

Saludos

**locutus** · 26/08/2006, 14:11

Muestra parte de los datos, pero sigue sin convertirme a decimal los valores que no están dentro del juego de caracteres del ordenador

Foros de programación, recursos, tutoriales, sistemas operativos...

LinkBack

Herramientas

Buscar tema

Visualizar

Temas similares

Leer de fichero de texto y almacenar BD

Leer Fichero

Leer Fichero

Leer Archivo Binario

Abrir fichero binario

Permisos de publicación

Recursos Visual Basic.NET, VB.NET, Manuales de programación, Tutoriales, Foros de programación, Comunidad de programadores

Foros de programación, recursos, tutoriales, sistemas operativos...

Tema: leer fichero binario

Temas similares

Permisos de publicación