SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: MindEye en Miércoles 23 de Julio de 2003, 10:23

Título: Re: como puedo leer un fichero, caracter a caracter
Publicado por: MindEye en Miércoles 23 de Julio de 2003, 10:23

- Hola amigos, me gustaría saber como puedo recorrer un fichero, caracter a caracter, hasta llegar al final.

 - Gracias.

Título: como puedo leer un fichero, caracter a caracter
Publicado por: Brroz en Miércoles 23 de Julio de 2003, 11:11

A ver qué tal con algo asín:

Private Function LeerF(Byval File as string) As Boolean
Dim intF as Integer
Dim lngL as long
Dim byt1 as Byte
On Error Goto Error_Leer
intF = FreeFile
Open File For Binary as #intF
For lngL = 1 to LOF(intF)
Get #intF, , byt1
msgbox chr(byt1)
Next lngL
LeerF = True
Salir_Leer:
On Error Resume Next
Close #intF
Exit Function
Error_Leer:
Msgbox  Err.Description
Resume Salir_Leer:
End Function

Con esta función lees el fichero byte a byte.  Si quisieras leer varios bytes de una sola vez, en vez de utilizar un variable tipo byte, utiliza una matriz de tipo byte también, de n dimensiones, donde n es el nº de bytes que quieres leer de una vez.

Si quieres leer un desplazamiento en concreto dentro del fichero, no omitas el segundo parámetro del 'GET'.

Para escribir en el fichero, puedes utilizar PUT.

Espero que te vaya bien.