elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Trabajando con las ramas de git (tercera parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Rellenar listbox con archivo de texto
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Rellenar listbox con archivo de texto  (Leído 3,803 veces)
rob1104


Desconectado Desconectado

Mensajes: 340


Usuario común


Ver Perfil WWW
Rellenar listbox con archivo de texto
« en: 5 Enero 2007, 08:02 am »

Hola a todos, bueno estoy desarrollando una aplicacion en vb, y me tope con algo que nunca habia necesitado, necesito rellenar un listbox con un datos de un archivo de texto. El archivo esta de esta forma:
Citar
Fila1
Fila2
Fila3
Fila4
Tenia pensado hacerlo con arreglos, leer cada linea, almacenarla en un array y vaciarla al listbox con el ciclo for, el problema es que no se como identificar el fin de linea. Alguien podria guiarme un poco, ya sea explicando o con un ejemplo.

Saludos


En línea

Sin análisis de requisitos o sin diseño, programar es el arte de crear errores en un documento de texto vacío.
~~
Ex-Staff
*
Desconectado Desconectado

Mensajes: 2.981


Ver Perfil WWW
Re: Rellenar listbox con archivo de texto
« Respuesta #1 en: 5 Enero 2007, 11:41 am »

Cada linea esta separada por un "||" o lo q es lo mismo un vbCrLf (indica la linea siguiente). Lo mejor q puedes hacer es partir la string q te devuelve el archivo por el vbCrLf (la partes con un Split) e ir metiendo cada uno de los trozos en la lista.

Es muy facil, pero si tienes dudas te digo exactamente como seria
1S4ludo  ;)


En línea

CeLaYa


Desconectado Desconectado

Mensajes: 543



Ver Perfil
Re: Rellenar listbox con archivo de texto
« Respuesta #2 en: 5 Enero 2007, 14:01 pm »

dale en "búscar", ya se ha tratato ese tema un monton de veces
En línea

"La soledad es el elemento de los grandes talentos".
Cristina de Suecia (1626-1689) Reina de Suecia.
rob1104


Desconectado Desconectado

Mensajes: 340


Usuario común


Ver Perfil WWW
Re: Rellenar listbox con archivo de texto
« Respuesta #3 en: 6 Enero 2007, 22:29 pm »

Hola, gracias a los 2, Celaya te juro que lo busque, inclusive busque en otros foros, pero no doy con ese problema especifico, si te moleste disculpa por favor  :-[

EON, nunca he utilizado un split, mira tengo este codigo
Código:
    Dim strDato As String
    Dim archivo As String
    archivo = App.Path & ".\prueba.txt"
    Open archivo For Input As #1
    For i = 0 To ?? <- no se que poner aqui :(
        Input #1, strDato
        frmOpciones!lstSpyware.AddItem strDato
    Next i
    Close #1
Donde lstSpyware es un listbox, no se que utilizar en el for para que recorra linea por linea, es todo lo que necesito para terminar mi aplicacion, un saludo a todos.
 
En línea

Sin análisis de requisitos o sin diseño, programar es el arte de crear errores en un documento de texto vacío.
ReViJa

Desconectado Desconectado

Mensajes: 149


Ver Perfil WWW
Re: Rellenar listbox con archivo de texto
« Respuesta #4 en: 7 Enero 2007, 00:52 am »

NO uses un for prueba asi...

Código:
Do While Not EOF(1)

Loop

Donde EOF es fin de archivo.
En línea

~~
Ex-Staff
*
Desconectado Desconectado

Mensajes: 2.981


Ver Perfil WWW
Re: Rellenar listbox con archivo de texto
« Respuesta #5 en: 7 Enero 2007, 11:49 am »

Es mucho mas simple, mira, te e hecho un code muy bien comentado, despues de esto ya no puede haber dudas xDD

Código:
Private Sub Command1_Click()

Open "C:\hola.txt" For Binary As #1
    Dim Todo As String   'Aki guardamos el contenido de todo el archivo
    Todo = Space(LOF(1)) 'Definimos todo como todo el archivo xDD
    Get #1, , Todo
Close #1

MsgBox Todo 'Como veras se extrae todo correctamente

Dim Linea As Variant 'En esta matriz guardamos todas las lineas separadas
Linea = Split(Todo, vbCrLf) 'Partimos el contenido de todo el archivo por el final de linea

Dim n As Integer
For n = 0 To UBound(Linea) 'Desde la linea 0 hasta la del final
List1.AddItem Linea(n)
Next n

End Sub

1S4ludo
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
vb actualizar valor de existencias de material de un listbox archivo txt
Programación Visual Basic
horlo 4 1,614 Último mensaje 16 Febrero 2015, 00:13 am
por horlo
Rellenar matriz con numeros de un fichero de texto en C
Programación C/C++
mariovich12 0 1,305 Último mensaje 18 Junio 2017, 18:10 pm
por mariovich12
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines