10/12/2003, 13:42
|
 | | | Fecha de Ingreso: noviembre-2003
Mensajes: 418
Antigüedad: 21 años, 5 meses Puntos: 0 | |
| considero que estas usando las instrucción open para leer el archivo, entonces el código sería algo así:
...
Open FileName For Input As #1
If Not EOF(1) Then 'verifico que no haya llegado al fin del archivo para leer la linea.
Line Input #1,textline$
else
'fin de archivo
End If
'con cada repeticion se lee una nueva linea y se verifica el fin del archivo.
Close #1 'cierro el archivo, al volver a abrilo comienzo a leer desde el principio
'esta es la forma más simple.
saludos.
__________________ La cantidad total de inteligencia del planeta permanece constante.
La población, sin embargo, sigue aumentando. COLE :cool: Los ordenadores no resuelven problemas ... ejecutan soluciones.Laurent Gasser Tienes alguna duda :pensando: ? >>> www.google.com :aplauso: <<< |