Visual Basic - listado de palabras

Life is soft - evento anual de software empresarial
   
Vista:

listado de palabras

Publicado por toni (6 intervenciones) el 08/01/2011 10:14:15
Hola a todo el foro,

tengo las siguientes lineas de código y me gustaria poner en el listbox todas las palabras del archivo txt que he abierto y crear una matriz con todas las palabras. Con el codigo que tengo solo muestra la ultima linea del archivo txt y yo quiero todo el texto, al igual que crear una matriz con todas las palabras del archivo txt.

Gracias de antemano


Private Sub B_Carregar_Llista_Click()
Dim cadena As String
Open App.Path & "\arxiu_exemple.txt" For Input As 1
While Not EOF(1)
Line Input #1, cadena
Combo1.AddItem cadena
Wend
Close
End Sub

Private Sub B_Esborrar_llista_Click()
Combo1.Clear
End Sub

Private Sub Boto_Separar_Paraules_Click()

Dim paraules() As String

'
For M = 0 To Combo1.ListCount - 1


paraules = Split(Combo1.List(M))


N = UBound(paraules)


For i = 0 To N
Combo2.AddItem paraules(i)
Next i

Next

'pone la matriz dentro de un listbox
For J = 0 To N
List1.AddItem paraules(J)
Next J

End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:listado de palabras

Publicado por Christian (666 intervenciones) el 11/01/2011 02:23:28
' el archivo prueba txt contiene esto :
' aaa
'bbb
'ccc
'ddd'
'eee
'ffff

el codigo para leer el txt

Dim Cadena As String
Open "f:\Prueba.txt" For Input As #1
Do While Not EOF(1)
If EOF(1) Then Exit Do
Line Input #1, Cadena
Combo1.AddItem Cadena
Loop
Close #1

----------------------------------------------------------------------------------------------------------------

Por lo que veo el SPLIT estaria mal aplicado porque te falta el caracter por el cual vas a "SPLITEAR"

te paso un ejemplo a ver si te ayuda

Dim items() As String
Dim texto As String

texto = "aaa;bbb;ccc;ddd;eee;ffff"
items() = Split(texto, ";")
For i = 0 To UBound(items)
Combo1.AddItem items(i)
Next
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:listado de palabras

Publicado por toni_ (6 intervenciones) el 11/01/2011 09:33:54
Muchas gracias Christian, voy a probarlo. La matriz si que se creaba pero no con todas las palabras.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:listado de palabras

Publicado por toni_ (6 intervenciones) el 11/01/2011 18:35:16
Hola, he adaptado tus lineas de codigo al programa que ya tengo y no sale el listado en combo2.addItem. En tu ejemplo separa las palabras a partir de una una frase dentro del propio programa, yo lo he adaptado a un txt que seria: arxiu_exemple.txt, y en vez del punto y coma a splitear como tu has puesto yo he puesto " " un espacio en blanco para separar las palabras. Y no se lo que hago mal.

Gracias por la ayuda.

Este es el codigo que he puesto:

Dim cadena As String
Open App.Path & "\arxiu_exemple.txt" For Input As 1
While Not EOF(1)
Line Input #1, cadena
Combo1.AddItem cadena
Wend
Close
End Sub

Private Sub B_Esborrar_llista_Click()
Combo1.Clear
End Sub

Private Sub Boto_Separar_Paraules_Click()


Dim items() As String


items() = Split(cadena, " ")
For i = 0 To UBound(items)
Combo2.AddItem items(i)
Next
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar