AYUDA CON ARCHIVO DE TEXTO Y TEXTBOX

[Xephiro]

  :-[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!!!

[Hadess_inf]

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

[NYlOn]

A ver si esto te sirve:

Código [Seleccionar] Expandir


    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.-

[Xephiro]

A ver si esto te sirve:

Código [Seleccionar] Expandir


    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