Visual Basic - FACIL CUALKIERA LO SABE

Life is soft - evento anual de software empresarial
 
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:FACIL CUALKIERA LO SABE

Publicado por Emanuel Nogueiras (154 intervenciones) el 20/02/2002 00:19:58
Mirá, para que te carge todo el contenido de un archivo el comando que tenés que utilizar no es "LineInput" porque ese es precisamente como lo dice, para inportar una linea. LO QUE TENÉS QUE USAR ES EL COMANDO "INPUT" DIRECTAMENTE Y SOLO. SUSTITUÍ EL "LINEINPUT" POR "INPUT" Y LISTO. EJEMPLO :

Dim Contenido as String 'la variable
Open "c:\prueba.txt" for input as #1 'lo abris
input #1, Contenido 'metés el contenido en la variable
Close #1 'lo cerras
text1.text = contenido 'lo mostras en el textbox

listo...

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar