FACIL CUALKIERA LO SABE
Publicado por Cristian (22 intervenciones) el 19/02/2002 20:39:25
k cargue un fichero yo he puesto el codigo de abajo, pero lo k necesito es k lo cargue todo no linea por linea, y que despues con una funcion en un boton pueda pegarlo todo en un texto, MUCHAS GRAICAS
Dim Linea As String
Open "c:\texto.txt" For Input As #1 'Abre el archivo de modo lectura
Do Until EOF(1) 'un ciclo hasta el fin de archivo
Line Input #1, Linea 'Lee un registro del archivo -
codigo = Mid(Linea, 1, 8) 'Extrae 8 caracteres
Loop
Close #1 'cierra el archivo
Dim Linea As String
Open "c:\texto.txt" For Input As #1 'Abre el archivo de modo lectura
Do Until EOF(1) 'un ciclo hasta el fin de archivo
Line Input #1, Linea 'Lee un registro del archivo -
codigo = Mid(Linea, 1, 8) 'Extrae 8 caracteres
Loop
Close #1 'cierra el archivo
Valora esta pregunta


0