Cómo cargar archivo *.txt determinado en un listbox - VB-MUNDO

champiton · #1 (**permalink**) 05-07-2007, 12:24:54

Hola forer@s, tengo una duda, ¿se puede cargar un archivo determinado de texto en un listbox? Me explico.
Por ejemplo, tengo un archivo llamado "prueba.txt" en el directorio de la aplicación y mediante la pulsación de un botón (al que se le puede llamar "Cargar archivo" por ejemplo) cargue dicho archivo (siempre con el mismo nombre, por ejemplo "prueba.txt")

Imaginad que el archivo contiene esto:

Hola foro
esto es
una prueba
/----------/
Pues pulsando dicho botón, cargue ese archivo y en el listbox quede igual, en ese caso en 3 lineas distintas:

Hola foro
esto es
una prueba

He estado buscando pero no he encontrado lo que busco. He estado viendo carga de bases de datos a listbox, etc. pero no como lo que yo quiero. Os agradezco vuestra colaboración, muchas gracias por vuestra ayuda por adelantado y espero que se pueda :smt002

Un saludo y cualquier duda que tengáis sobre mi explicación, comunicádmelo, lo intentaré explicar lo mejor posible. Gracias de nuevo. Hasta pronto

clark · #2 (**permalink**) 05-07-2007, 12:54:11

Proba con este codigo para que te aparezca como decis el archivo txt debe estar en el orden que decis

Código:

    Dim strLineatxt as string
    'Abre el archivo txt vos busca en donde esta ese archivo prueba.txt
    Open "E:\Archivo\Datos1.txt" For Input As #1
    'mientras no sea fin del archivo txt que siga cargando

    Do While Not EOF(1)
        Line Input #1, strLineatxt
        lstArchivos.AddItem strLineatxt
    Loop
    'cerramos el archivo
    Close #1

espero que te haya servido si no respondeme que yo voy a estar conectado a mi en particular me gusta mucho trabajar con archivos txt. saludos desde argentina

champiton · #3 (**permalink**) 05-07-2007, 13:14:35

Hola clark, gracias por tu respuesta, puede que me sirva, ahora probaré pero un matiz, lo que me gustaría es que me abra dicho archivo desde la ubicación del programa, por ejemplo, el programa se ubica en "C:\Directorio\" con lo cuál el documento de texto, en el caso del ejemplo anterior ("prueba.txt") también se ubicará en "C:\Directorio\" pero quizás desde otro equipo esa ubicación del programa y archivo cambien, por ejemplo "M:\Archivo\". No sé si se me entiende la idea, voy a intentar resumirlo.

El programa, estando en la ubicación que esté, si el documento de texto se encuentra en esa ubicación, el programa lo reconocerá por su nombre (p.e.: "prueba.txt") y lo abrirá.

Un saludo y muchas gracias por vuestra ayuda.

PD.: Espero que me hayas entendido clark, un saludo desde España :smt001 (Ya probé tu código y funciona perféctamente, lo único es lo que especifico con anterioridad :smt002

clark · #4 (**permalink**) 05-07-2007, 13:28:52

si bien te entiendo lo que queres es que el sistema que tenes abra un archivo txt que este en el mismo directorio en donde esta el .exe entonces es asi:

Código:

    Dim strLineatxt as string 
    'Abre el archivo txt vos busca en donde esta ese archivo prueba.txt 
    Open app.path & "\Datos1.txt" For Input As #1 
    'mientras no sea fin del archivo txt que siga cargando 

    Do While Not EOF(1) 
        Line Input #1, strLineatxt 
        lstArchivos.AddItem strLineatxt 
    Loop 
    'cerramos el archivo 
    Close #1

app.path es una funcion de vb 6 que te abre o ubica cualquier archivo en donde se ubica el ejecutable
saludos

champiton · #5 (**permalink**) 05-07-2007, 13:33:25

:smt004 hurra!! jajaja, muchas gracias compañero :smt003 funciona a la perfección, muchísimas gracias de nuevo :smt001

Un cordial saludo

clark · #6 (**permalink**) 05-07-2007, 13:45:21

me alegro que te haya servido saludos