Longitud de un archivo
Publicado por ivan (29 intervenciones) el 16/04/2004 10:47:28
Hola,
Tengo un archivo que consta de lineas de 470 caracteres, el problema es que si lo ejecuto aunque el len este a 470 me recoge menos caracteres, pq puede ser???
Os adjunto el codigo
Dim MiRegistro as String
Open Ruta & "\agencia.txt" For Input Access Read As #1 Len = 470 ' Abre el archivo.
While EOF(1) = False ' Repite el bucle hasta el final del archivo.
'Define el número del registro.
Input #1, MiRegistro ' Lee el registro.
MsgBox Len(MiRegistro)
Wend
Close #1
Tengo tres registros y me da los siguientes resultados en el len de la variable: 225,237,225,237,225,74
Tengo un archivo que consta de lineas de 470 caracteres, el problema es que si lo ejecuto aunque el len este a 470 me recoge menos caracteres, pq puede ser???
Os adjunto el codigo
Dim MiRegistro as String
Open Ruta & "\agencia.txt" For Input Access Read As #1 Len = 470 ' Abre el archivo.
While EOF(1) = False ' Repite el bucle hasta el final del archivo.
'Define el número del registro.
Input #1, MiRegistro ' Lee el registro.
MsgBox Len(MiRegistro)
Wend
Close #1
Tengo tres registros y me da los siguientes resultados en el len de la variable: 225,237,225,237,225,74
Valora esta pregunta


0