leer txt apartir de linea determinada ( VB6 )

[Zay]

1. Dim obj_FSO As Object
2. Dim Archivo As Object
3. Set obj_FSO = CreateObject("Scripting.FileSystemObject")
4. 'Creamos un archivo con el método CreateTextFile
5. Set Archivo = obj_FSO.CreateTextFile(App.Path & "MiArchivo.txt", True)
6. 'Escribimos lineas
7. Archivo.WriteLine "Una linea"
8. Archivo.WriteLine "Otra linea"
9. Archivo.WriteLine "Otra mas"
10. 'Cerramos el fichero
11. Archivo.Close
12. 'Para abrir el archivo
13. Set Archivo = obj_FSO.OpenTextFile(App.Path & "MiArchivo.txt", 1)
14. 'Cargamos en el TextBox todo el archivo
15. Text1 = Archivo.ReadAll
16. '///Nota: para leer una linea se utiliza ReadLine
17. Archivo.Close
18. Set obj_FSO = Nothing
19. Set Archivo = Nothing

1. Private Sub Imprimir(Archivo As String)
2. ' variable para fso
3. Dim Obj_TextStream As Scripting.TextStream
4. Dim Obj_Fso As New Scripting.FileSystemObject
5. Dim Obj_File As File
6. Dim Linea_Actual As String
7. ' Referencia al archivo con GetFile
8. Set Obj_File = Obj_Fso.GetFile(Archivo)
9. ' Lo abre con OpenAsTextStream
10. Set Obj_TextStream = Obj_File.OpenAsTextStream(ForReading, TristateUseDefault)
11. ' recorre todo el contenido del fichero
12. Do While Not Obj_TextStream.AtEndOfStream
13. ' lee la linea
14. Linea_Actual = Obj_TextStream.ReadLine
15. Printer.Print Linea_Actual ' imprime con
16. Loop
17. Printer.EndDoc
18. End Sub

O sea, abres el archivo plano (txt), lo metes a un array o recorres todo el contenido del fichero, y tu limitante sera en este caso el salto de linea (/n). Necesitas que sean 5, a partir de que lo encuentre empiezas a copiar el texto a tu listbox y hasta el 6to salto de linea.

Espero ahora si me haya explicado un poco mejor.

saludos.