Visual Basic - archivos de texto

Life is soft - evento anual de software empresarial
 
Vista:

archivos de texto

Publicado por Sergio (3 intervenciones) el 02/03/2005 16:51:50
Hola, tengo una duda acerca de algo que no se si puede hacer. La idea es que tengo archivos de texto de gran tamaño, miles de lineas, pero me interesaria poder leer cada vez que los abro solo las 100 ultimas mas o menos. ¿Existe algun modo ? ¿ir hasta el final y leer al reves?
Gracias por adelantado
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:archivos de texto

Publicado por Matías Freire (421 intervenciones) el 02/03/2005 19:53:18
Que tipo de archivo es? solo texto, tiene registros, son de longitud fija los registros??
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:archivos de texto

Publicado por Sergio (3 intervenciones) el 03/03/2005 10:44:03
El fichero es de lineas de logintud variable, la unica separacion se hace con el salto de linea
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:archivos de texto

Publicado por Matias Freire (421 intervenciones) el 03/03/2005 15:32:04
Hola Sergio...

Acá te mando una rutina para hacer lo que necesitás. Espero que te sirva. Te lee las Ultimas 100 líneas de cualquier archivo de textos.

Private Sub ContarUltimasLineas()

Dim cadas String
Dim cadena(1 To 100) As String
Dim i As Integer
Dim pos as long
Dim lineas As Long

pos = 0
i = 1
Open MiArchivo For Input As #1

Do While Not EOF(1)
Line Input #1, cad
pos = pos + 1
Loop
lineas = pos
Close #1
pos = 0
Open MiArchivo For Input As #1
Do While Not EOF(1)
Line Input #1, cad
pos = pos + 1
If pos = lineas - 100 Then Exit Do
Loop

Do While Not EOF(1)
Line Input #1, cadena(i)
i = i + 1
Loop
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