Leer archivos binario...

HOlas... quiero hacer un programita para leer arcchivos binarios... y mostrarlos en pantalla...

no tengo idea de como empesar... claro esta los puedo leer en binario...

Open "c:\terminal.ter" For Binary As #1

por ejemplo... pero como puedo leer esas lineas y colocarlos en pantalla de forma que se vea el codigo binario....

por dond puedo empesr... con algun tuto... o algun otro lenguaje...

gracias...

neosystem

por ej :

yeba 3 comad c/u con su nombre hay estan y un text

Option Explicit

Private Sub cmdCargar_Click()
Dim Cadena As String
Dim Archivo As String

txtContenido = ""

Archivo = App.Path + "\Prueba.txt"
Open Archivo For Input As #1
While Not EOF(1)
Line Input #1, Cadena
txtContenido = txtContenido + Cadena + vbCrLf
Wend
Close

txtContenido.SetFocus
End Sub

Private Sub cmdGrabar_Click()
Open "C:\Prueba.doc" For Output As #1
Print #1, txtContenido
Close
txtContenido.SetFocus
End Sub

Private Sub cmdLimpiar_Click()
' Vacía el contenido de la caja de texto
txtContenido = ""
txtContenido.SetFocus
End Sub

Private Sub txtContenido_Change()

End Sub

binarios

yeba 6 text c/u con tu nombre 3 comand

Option Explicit

Private Type T_Registro
Nombre As String * 20
Apellido As String * 20
Edad As Integer
End Type

Dim Registro As T_Registro

Private Sub cmdGrabar_Click()
Open "C:\Personas.dat" For Random As #1
Registro.Nombre = txtNombre.Text
Registro.Apellido = txtApell.Text
Registro.Edad = Val(txtEdad.Text)
Put #1, 1, Registro
Close
cmdLimpiar_Click
End Sub

Private Sub cmdLimpiar_Click()
txtNombre = ""
txtApell = ""
txtEdad = ""
txtNombre.SetFocus
txtMostrarN = ""
txtMostrarA = ""
txtMostrarE = ""
End Sub

Private Sub cmdMostrar_Click()
Open "C:\Personas.dat" For Random As #1
Get #1, 1, Registro
txtMostrarN.Text = Registro.Nombre
txtMostrarA.Text = Registro.Apellido
txtMostrarE.Text = Registro.Edad
Close
End Sub

perdon en el primer ej cometi un error

en donde dise prueva.doc va .txt fijate q tenga la misma estension los dos

borra App.Path + y pone la ruta ej "c:\Prueba.txt"

quedaria

Option Explicit

Private Sub cmdCargar_Click()
On Error Resume Next
Dim Cadena As String
Dim Archivo As String

txtContenido = ""

Archivo = "C:\Prueba.txt"
Open Archivo For Input As #1
While Not EOF(1)
Line Input #1, Cadena
txtContenido = txtContenido + Cadena + vbCrLf
Wend
Close

txtContenido.SetFocus
End Sub

Private Sub cmdGrabar_Click()
Open "C:\Prueba.txt" For Output As #1
Print #1, txtContenido
Close
txtContenido.SetFocus
End Sub

Private Sub cmdLimpiar_Click()
' Vacía el contenido de la caja de texto
txtContenido = ""
txtContenido.SetFocus
End Sub

holass... muchas gracias.... por l codigo...

solo que tengo otra duda? ese codigo lee archivos TXT y los carga en text, lo que yo quiero hacer es:

supongamos que creo unos archivos "prueba.txt" y "prueba.exe"
esos archivos estan guardados en el HDD, yo los quiero leer asi mismo como estan... pero en binario... por ejemplo:

el archivo prueba.txt esta guardado en el disco fisico como "0100101110101010"
y el archivo prueba.exe esta guardado como "1110101101001101"
(xDD claro las cadenas son mas grandes :-P)

quiero manipular esos ficheros en binario... y mostrarlo en un text....

muxas gracias...

neosystem

Para eso tienes k hacer una funcion para convertirlo a binario, solo tienes k buscar...

Salu2

	Bienvenido(a), Visitante. Favor de ingresar o registrarse. ¿Perdiste tu email de activación? - Octubre 13, 2008, 01:12:14