Programación General > Visual Basic 6.0 e inferiores

 Abrir Archivo Desde Vb6 Pero No Txt.....

(1/2) > >>

hamdycam:
hola amigos, aun que parezca una tonteria no lo consigo hacer funcionar. es decir, varias veces habro desde mis progrmas archivos txt, tanto linea a linea como el completo, pero el problema lo tengo ahora que quiero abrir un archivo .bin desde el visual y almacenarlo en una variable.

el archivo en si esta formado por caracteres del tipo chr, quiero abrirlos a un txt ypasarlos a hex, para eso hago un bucle con esta sentencia hex(ascb(datos chr)) y ya me los pasa byte a byte, pero el problema lo tengo en que no consigo habrir ese archivo, o solo me habre la primera linea o bien me lo abre todo igual con la primera linea repetida o si bien lo hago con imput no me lo habre y me da un error.

alguien sabe alguna forma de abrir archivos que no esten en formato normal y poder visualizarlos?? es decir, como si quisieramos abrir un .exe para ver su contenido. salu2

posman:
intenta abriendo el archivo en modo binario


--- Código: Text --- Dim nFileNum As Integer, sMyString As String  ' Get a free file numbernFileNum = FreeFile ' Open the file test.txt for binary accessOpen "c:\test.txt" For Binary As nFileNum sMyString = Space(7) ' Read 7 characters from the file, starting at byte 12Get #nFileNum, 12, sMyString ' Close the fileClose nFileNum  
codigo obtenido de: www.developerfusion.co.uk/show/37/8/

hamdycam:
gracias amigo pero eso ni me conexta un byte, es decir nada de nada jiiji.
he puesto en el mismo codigo que tengo lo de binary y tampoco. deb de tener que hacerse de otra forma. salu2

cpmario:
Trata de abrir el archivo ejecutable en un control RichTextBox con la instrucción                     LoadFile con el parámetro para solo texto (rtfText), por ejemplo:

--- Código: Text ---   RichTextBox1.LoadFile strFilename, rtfText   :comp:

hamdycam:
lo he conseguido haciendo alguna chapuza con parte del codigo pasado pro el compañero de antes y algun que otro retoqeu jijij. aqui esta:

 
--- Código: Text ---     'Array que contendrá los bytes del archivo es decir los datos    Dim Data() As Byte    Dim Hex_Temporal As String      'Variable Para el tamaño del archivo ( luego se usa para el Redim )    Dim fLen As Long      'Abrimos el archivo en modo binario de solo lectura (Binary Lock Read)    Open Text5.Text For Binary Lock Read As 1      'Redimiensionamos el array al tamaño del archivo    fLen = FileLen(Text5.Text)      ReDim Data(fLen) As Byte    'Leemos el archivo entero y lo almacenamos en el array    Get #1, , Data    Close 1        'los mostramos en el text6.text       For i = 0 To fLen - 1 Step 1        Hex_Temporal = Hex$(Data(i))         'ojo!! jii, por si tiene menos de dos caracteres le ponemos un cerito        If Len(Hex_Temporal) < 2 Then            Hex_Temporal = "0" & Hex_Temporal                        End If        Text6.Text = Text6.Text & Hex_Temporal    Next 
muchas gracias por todo, no es muy rapido pero vale.


P.D: luego pruebo con el que me has puesto ahora. salu2 fierassssssssssss

Navegación

[0] Índice de Mensajes

[#] Página Siguiente