Visual Basic - cómo leer las dos ultimas lineas de un txt en VB6?

Life is soft - evento anual de software empresarial
   
Vista:

cómo leer las dos ultimas lineas de un txt en VB6?

Publicado por Jorge (3 intervenciones) el 02/01/2009 19:18:41
ese es el problema... quisiera que alguien me pueda ayudar... necesito saber como puedo leer las dos ultimas lineas de una archivo TXT...

de ante mano muchas gracias...

saludos
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:cómo leer las dos ultimas lineas de un txt en V

Publicado por P3L30N2009 (701 intervenciones) el 02/01/2009 19:26:33
yo te lo explico:

Abres el archivo en modo lectura, osea For Input, cargas cada linea en un array con la función Split

Y la última línea es Ubound(array) y la anterior (lógico) Ubound(array) - 1

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:cómo leer las dos ultimas lineas de un txt en V

Publicado por Jorge (3 intervenciones) el 03/01/2009 19:34:56
muchas gracias por tu respuesta...

en la apertura del archivo no tengo problemas... pero con la carga de las lineas en el array con Split tengo ataos seria posible una ayudita con el array???? de antemano muchas gracias...

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:cómo leer las dos ultimas lineas de un txt en V

Publicado por Daivinson Coffi (15 intervenciones) el 03/01/2009 23:26:05
Espero este ejemplo te sirva de ayuda, si es lo que quisistes expresar en tu interrogante este es el ejemplo:
Sub Prueba()
Open "C:Documents and SettingsDaivinsonEscritorioprueba.txt" For Input As #1
Dim vector()
Dim Linea As String, Cuenta
Do Until EOF(1)
Line Input #1, Linea
Cuenta = Cuenta + 1
ReDim Preserve vector(Cuenta)
vector(Cuenta) = Linea
Loop
If Not IsEmpty(Cuenta) Then
MsgBox vector(Cuenta)
MsgBox vector(Cuenta - 1)
Else
MsgBox "El archivo de texto no contiene información", vbCritical, "Alerta"
End If
Close #1
End Sub
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:cómo leer las dos ultimas lineas de un txt en V

Publicado por P3L30N2009 (701 intervenciones) el 04/01/2009 13:50:44
No hombre, yo me refería a algo mas sencillo. Algo así:

Dim s As String, a() As String
Open "C:\Archivo.txt" For Input As #1
s = Input(LOF(1), #1)
Close #1
a = Split(s, vbNewLine)

MsgBox "Ultima línea: " & a(UBound(a))
MsgBox "Penúltima línea: " & a(UBound(a) - 1)

Feliz año!!
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:cómo leer las dos ultimas lineas de un txt en V

Publicado por Daivinson Coffi (15 intervenciones) el 04/01/2009 17:16:30
Tienes Razon P3L30N2009, todos los caminos conducen a Roma, el resultado de tu código es este:
Dim s As String, a() As String
Open "C:Documents and SettingsDaivinsonEscritorioprueba.txt" For Input As #1
s = Input(LOF(1), #1)
Close #1
a = Split(s, vbNewLine)

MsgBox "Penúltima línea: " & a(UBound(a) - 2)
MsgBox "Ultima línea:: " & a(UBound(a) - 1)

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:cómo leer las dos ultimas lineas de un txt en V

Publicado por P3L30N2009 (701 intervenciones) el 04/01/2009 19:18:37
Estoy de acuedo, todos los caminos conducen a Roma, pero por el camino mas corto siempre llegas antes y ahorras energía.

y yo nunca puse MsgBox "Ultima línea:: " & a(UBound(a) - 1) sino MsgBox "Ultima línea: " & a(UBound(a))

a no ser que en tu txt la última línea sea una línea en blanco

Feliz 2009
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:cómo leer las dos ultimas lineas de un txt en V

Publicado por Daivinson Coffi (15 intervenciones) el 04/01/2009 21:40:58
Claro es asi si verificas el código veras que a(UBound(a)) devuelve una cadena vacía saludos compañero, de todos modos ya nuestro compañero por cualquier vía ya le hemos resuelto su problema. Feliz Año Nuevo 2009
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:cómo leer las dos ultimas lineas de un txt en V

Publicado por Jorge (3 intervenciones) el 05/01/2009 04:25:25
Muchas gracias Daivinson Coffi y muchas gracias P3L30N2009 me quedo clarito... ahora a seguir investigando...

muchas gracias y Feliz AÑO atrasado...
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