Visual Basic - leer txt

Life is soft - evento anual de software empresarial
 
Vista:

leer txt

Publicado por Eleazar (1 intervención) el 02/05/2005 23:01:59
mi experiencia con VB es casu nula y lo que necesito es hacer una aplicación que haga lo sgte:

- abrir un archivo *.txt desde el disco duro.
- leer caracter a caracter, reconocer el EOL (creo que es reconociendo el ENTER, se que puedo hacerlo usando el codigo ascii) y pasar a la sgte línea.
- reconocer el EOF.

si alguien me puede dar algunas indicaciones de como hacerlo se lo agradecería.
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 txt

Publicado por Amalia (38 intervenciones) el 02/05/2005 23:25:27
Ese ejemplo toma línea por línea, lo que podés hacer es capturar primero todas las líneas, por ej. en una matríz y después analizas carácter x carácter.
Open App.Path & "\archivo.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, lineatxt
Loop
Close #1
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 txt

Publicado por luis (79 intervenciones) el 02/05/2005 23:46:03
También puedes hacerlo así
Dim Fso as Variant
Dim Archivo as variant

Set Fso = CreateObject("Scripting.FileSystemObject")
Set Archivo = Fso.opentextfile(Ruta & "Archivo")
Do While Archivo.AtEndOfStream <> True
luego lees con el método Archivo.readline o Archivo.read
Loop
Set Fso = Nothing
Archivo.Close

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