Visual Basic - leer texto

Life is soft - evento anual de software empresarial
 
Vista:

leer texto

Publicado por victor (6 intervenciones) el 28/10/2006 17:50:08
tengo unas dudas si me pueden ayudar...

texto (de ejemplo):

#STEP:
blablalbllbl
blalblablllll
lblablalball
lbalblablllll
lbalbablalll
blalblablall
lblablalblal
lblablalblbl
ablblablblll
lbalblablall
lblablblalbl
lbalblalblbl
lblablblalbl
lblablalblbl
---------------

quiero leer todo lo que esta despues del tag "#step:" y hasta el tag de cierre "-------------", y quiero guardar los datos "bbllalbalb" en una variable pero sin perder el formato lineal que por ejemplo no quede "balbalballblalbalblalblalblblalblabl".
eso.
de antemano gracias.
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:leer texto

Publicado por albertovicat (200 intervenciones) el 28/10/2006 19:28:36
Se me ocurre, si es un archivo secuencial de VB:
Dim Dato as String
Dim Todo as String

Open "Nombre_del_archivo" for Input as #1

Loop While Dato <> "#STEP:"
Input #1, Dato
Do

Loop While Not EOF(1)
Input #1, Dato
Todo = Todo + Dato + Chr(10) + Chr(13)
Do

Close #1

Tené en cuenta que si el archivo es grande puede llegar a exceder el límite de capacidad de la variable Todo.
El primer Loop lee hasta que encuentra "#STEP:".
El segundo Loop lee un registro en Dato, luego se lo agrega a Todo junto con un avance de línea (10) y un Enter (13); así mientras no se alcance el fin de archivo.
¡Ah!, pero vos querías hasta que aparezcan los guiones. Bueno, en ese caso el 2do Loop tendría que ser:

Loop While Dato <> "---------------"

Suerte.
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:leer texto

Publicado por victor (6 intervenciones) el 28/10/2006 20:00:32
gracias voy a verlo. xD
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