:-[ :-[ :-[ :-[Llevo mucho ya tratando de hacer que se carge un texto de un *.txt en distintos textbox .... me explico que se cargue por ejemplo la primera linea en un textbox1, la segunda en otro y la tersera en otro... :-( :-( :-( :-( :-(
AYUDENME PORFAAA!!!
yo hice eso hace mucho tiempo pero la verdad que no recuerdo como hacerlo ... pero esta en el CD ayuda de visual.. era algo de readline .. supongo que deberia ser algo asi
text1.text = readline(ruta de doc)
Cya
A ver si esto te sirve:
Dim Var As String
Open "c:\telefonos.txt" For Input As #1
For i = 1 To 3 'esta es la cantidad de lineas que vamos a sacar
Line Input #1, Var 'sacamos linea por linea
Select Case i 'nos vamos fijando en que linea estamos
Case 1 'si es la 1ra linea
Text1 = Var 'la ponemos en el text1
Case 2 'si es la segunda...
Text2 = Var 'en el text2...
Case 3
Text3 = Var
End Select
Next i
Close #1 'cerramos el archivo
Espero que te sirva, saludos.-
Cita de: NYlOn en 29 Abril 2006, 03:34 AM
A ver si esto te sirve:
Dim Var As String
Open "c:\telefonos.txt" For Input As #1
For i = 1 To 3 'esta es la cantidad de lineas que vamos a sacar
Line Input #1, Var 'sacamos linea por linea
Select Case i 'nos vamos fijando en que linea estamos
Case 1 'si es la 1ra linea
Text1 = Var 'la ponemos en el text1
Case 2 'si es la segunda...
Text2 = Var 'en el text2...
Case 3
Text3 = Var
End Select
Next i
Close #1 'cerramos el archivo
Espero que te sirva, saludos.-
WOW... si me funciono altiro ... Gracias