Buenas tardes amigos foreros, ultimamente he molestado poco ya que no he tenido mayores problemas, ja ja. Estoy teniendo un problemita con la carga de un listbox, desde un archivo .txt
tengo el siguiente codigo:
Código HTML:
Private Sub Cargartxt()
Me.List1.Clear
Dim BuscarDocumento As String
Dim strRuta As String 'declaras una variable en donde pones la ruta del archivo
Dim strLinea As String 'declaras otra variable en donde pones la linea que estas leyendo
Dim StrMesDeRecibo As String
StrMesDeRecibo = FormLeerRecibos.ListMeses.Text
strRuta = "C:\Pryecto recibo\Recibos" & StrMesDeRecibo & ""
Open strRuta For Input As #1 'Con esto abres el archivo
While Not EOF(1)
Line Input #1, strLinea 'y con esto lees linea por linea
If InStr(strLinea, TextDoc) <> 0 Then
List1.AddItem strLinea
End If
Wend
Close #1 'con esto se cierra el archivo
End Sub
Lo que deseo hacer es cargar 5 lineas anteriores y hasta 36 posteriores de encontrado un documento. A alguien se le ocurre cómo salir de ese problemita? Gracias por vuestro tiempo...