Visual Basic - pasar texto .txt a tabla

Life is soft - evento anual de software empresarial
   
Vista:

pasar texto .txt a tabla

Publicado por toni (6 intervenciones) el 27/11/2010 09:08:43
Hola, quiero hacer un programa que las palabras que hay en un archivo .txt lo pase a una tabla cuadriculada. Ejemplo:


The key. It was suddenly very clear that the key. (archivo .txt)

TABLA

the

key

it

was

suddenly

very

clear that

the

key

Este es el código que tengo:

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

He hecho programas en ensamblador y en C pero tengo dificultades con el visual Basic.

Me gustaria saber el codigo del programa o al menos el nombre de las instrucciones que se utilizan. Agradezco cualquier ayuda. Saludos a todo el foro.
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:pasar texto .txt a tabla

Publicado por Pedro Luis (128 intervenciones) el 29/11/2010 09:41:21
Usa Split de la siguiente forma
Matriz=Split(cadena) Crea una matriz con las palabras delimitadas por espacios
N=Ubound(Matriz) Nos dice el subindice mayor empezando por cero

For M=0 to N
Combo1.Additem Matriz(M)
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:pasar texto .txt a tabla

Publicado por toni (6 intervenciones) el 29/11/2010 19:42:07
Muchas gracias, voy a probar el codigo que me has puesto.
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:pasar texto .txt a tabla

Publicado por toni (6 intervenciones) el 05/12/2010 20:14:29
Hola, he probado el codigo y me sale error. Y no veo lo que escrito mal.

He añadido el codigo al que ya tenia y ha quedado de la siguiente forma:


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

Matriz=Split(cadena)
N=Ubound(Matriz)

For M=0 to N
Combo1.Additem Matriz(M)
Next


Agradezco la ayuda.
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