SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: karen81 en Jueves 9 de Marzo de 2006, 05:27

Título: Problemas Para Abrir Archivos
Publicado por: karen81 en Jueves 9 de Marzo de 2006, 05:27

:( No se mucho de visual basic, por lo que en este foro me dieron esta rutina para abrir archivos, funciona, pero a veces no me abre los archivos, esto ocurre cuando los archivos estan compuestos de caracteres raros (como estoy haciendo un codificador, obtengo todo tipo de caracteres ascii), cuando llega a la instruccion

Citar

file = Input(LOF(fichero), fichero)

aparece el error '62' en tiempos de ejecucion:
La entrada ha sobrepasado el final del archivo
¿por que ocurre esto? :huh:

si alguien sabe, se lo agredeceria mucho. gracias :hola:

la rutina es la siguiente

Código: Text

1. Private Sub Command1_Click()
2. CommonDialog1.ShowOpen
3. 'abre el fichero para leer
4. fichero = FreeFile
5. Open CommonDialog1.FileName For Input Access Read As #fichero
6. ' Leer la información del fichero
7. file = Input(LOF(fichero), fichero)
8. Text1.Text = file
9. tama = Len(file)
10. End Sub
11.  

Título: Re: Problemas Para Abrir Archivos
Publicado por: karen81 en Viernes 10 de Marzo de 2006, 00:41

:lol: Pues me dijeron que este error se produce entre otras razones por la existencia de caracteres raros en el archivo a abrir, por si alguien se encuentra con este mismo problema, la solucion es muy simple solo sustitui:

Código: Text

1. Open CommonDialog1.FileName For Input Access Read As #fichero
2.  
3.  

por

Código: Text

1. Open CommonDialog1.FileName For Binary Access Read As #fichero
2.  

y solucionado el problema :comp: