Imprimir Página - AYUDA CON ARCHIVO DE TEXTO Y TEXTBOX

Título: AYUDA CON ARCHIVO DE TEXTO Y TEXTBOX
Publicado por: Xephiro en 28 Abril 2006, 23:31 pm

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

Título: Re: AYUDA CON ARCHIVO DE TEXTO Y TEXTBOX
Publicado por: Hadess_inf en 29 Abril 2006, 03:19 am

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

Título: Re: AYUDA CON ARCHIVO DE TEXTO Y TEXTBOX
Publicado por: NYlOn en 29 Abril 2006, 03:34 am

A ver si esto te sirve:

Código:

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

Título: Re: AYUDA CON ARCHIVO DE TEXTO Y TEXTBOX
Publicado por: Xephiro en 29 Abril 2006, 05:21 am

Cita de: NYlOn en 29 Abril 2006, 03:34 am

A ver si esto te sirve:

Código:

    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

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Xephiro en 28 Abril 2006, 23:31 pm