Visual Basic - Archivo txt

Life is soft - evento anual de software empresarial
 
Vista:

Archivo txt

Publicado por Constanza (3 intervenciones) el 28/06/2006 23:29:36
Hola, a ver si me pueden ayudar, por favor...
Yo tengo que recorrer un archivo txt, desplazarme, pero que pare el recorrido en cuanto encuentre un espacio entre las palabras del texto. Cómo puedo hacer eso?? Vale aclarar que hay varias palabras en una misma línea.
Espero ansiosa respuestas!! muchas gracias!!! Coty
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:Archivo txt

Publicado por manolo (239 intervenciones) el 28/06/2006 23:44:01
No lo entiendo. ¿Que pare el reccorrido en cuanto encuentre un espacio entre palabras, y después qué? ¿Tiene que hacer algo mas o simplemente pararse?
¿Quizá quieres poner las palabras en un array para utilizarlo después?
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:Archivo txt

Publicado por Constanza (3 intervenciones) el 29/06/2006 00:06:10
Lo que quiero hacer es que recorra el archivo txt desde Visual y que vaya guardando cada palabra en distintas variables. Porque después debo guardarlas en una base datos como distintos campos.
Me propuse algo muy complejo y sin ayuda, dudo que pueda hacerlo.
Lo que necesitaría es el código y dónde debo colocarlo.
Muchas gracias!
Coty
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:Archivo txt

Publicado por Javi RM (187 intervenciones) el 29/06/2006 07:52:04
Buenas.
Prueba con el siguiente código:

Para recuperar todas las palabras por línea de texto hacemos:

dim PalabrasLinea() as string
dim Linea as string
dim Apunt as integer

Apunt = freefile

' Abrimos el archivo y lo recorremos línea por línea
Open "rutaarchivo" For Input Access Read As #Apunt
do while not eof(Apunt)
doevents

' Leemos la linea de texto
Line Input #Apunt, Linea

' Recuperamos las palabras de la línea (entendemos que puede existir un espacio entre palabras
PalabrasLinea = split(Linea, " ")

' Ya dispones de las palabras de la línea en el array PalabrasLinea()
....

loop

' Cerramos el archivo
Close #Apunt

Un saludo, espero que te sirva.
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