Título: Rellenar listbox con archivo de texto Publicado por: rob1104 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 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.Fila2 Fila3 Fila4 Saludos Título: Re: Rellenar listbox con archivo de texto Publicado por: ~~ 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 ;) Título: Re: Rellenar listbox con archivo de texto Publicado por: CeLaYa en 5 Enero 2007, 14:01 pm dale en "búscar", ya se ha tratato ese tema un monton de veces
Título: Re: Rellenar listbox con archivo de texto Publicado por: rob1104 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 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.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 Título: Re: Rellenar listbox con archivo de texto Publicado por: ReViJa 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. Título: Re: Rellenar listbox con archivo de texto Publicado por: ~~ 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 |