21/11/2006, 20:18
|
| | | Fecha de Ingreso: noviembre-2006
Mensajes: 17
Antigüedad: 17 años, 6 meses Puntos: 0 | |
| Open NombreArchivoTXT For Input As 1
Line Input #1, Registro
While Not EOF(1)
Numero1= Mid(Registro, 1, 5) --(39.96)
Numero2= Mid(Registro, 7, 4) --(0.81)
----así todos los campos----
Line Input #1, Registro
Wend
Ojo ¡¡¡ el último registro no entra en el Loop y lo tenés que hacer solito abajo del while
suerte... |