Ver Mensaje Individual
  #2 (permalink)  
Antiguo 28/09/2017, 14:07
jeaguiar25
 
Fecha de Ingreso: marzo-2011
Ubicación: Florida-Uruguay
Mensajes: 74
Antigüedad: 13 años, 9 meses
Puntos: 4
Respuesta: Cargar parte de texto desde archivo .txt

Estimados amigos foreros.... El código al final lo he dejado asíy me funciona bien:

Código:
        
For i = 1 To miColeccion.Count - 1
            If InStr(miColeccion(i), TextDoc) <> 0 Then
                For j = i - 5 To i + 27
                    List1.AddItem miColeccion(j)
                Next j
            End If
        Next i
Pero quisiera, ya que he colocado un listbox con casilla de verificación al lado del listbox a donde extrigo el recibo, extraer el recibo del mismo funcionario para cada casilla del listbox que halla seleccionado, o sea para cada mes seleccionado. Pero no logro que me funcione, tal vez estoy colocando mal la sentencia....como les parece que lo solucione?

Código:
Private Sub Cargartxt()
On Error Resume Next
If (TextDoc < 1) Then
MsgBox "Debe digitar un documento para continuar"
Else


Dim BuscarDocumento As String
Dim strRuta As String 'declaras una variable en donde pones la ruta del archivo
Dim i As Long
Dim e As Long
Dim j As Long
Dim x As Long

      

Dim strLinea As String 'declaras otra variable en donde pones la linea que estas leyendo
Dim StrMesDeRecibo As String
    StrMesDeRecibo = FormLeerRecibos.ListMeses.Text

Dim miColeccion As New Collection

strRuta = "C:\Pryecto recibo\Recibos\" & StrMesDeRecibo & ""


'----------------------------------------------

For x = 0 To ListMeses.ListCount - 1
    If ListMeses.Selected(x) = True Then
        Open strRuta For Input As #1 'Con esto abres el archivo
        Do While Not EOF(1)
            Line Input #1, strLinea 'y con esto lees linea por linea
            miColeccion.Add strLinea
        Loop
            
        For i = 1 To miColeccion.Count - 1
            If InStr(miColeccion(i), TextDoc) <> 0 Then
                For j = i - 5 To i + 27
                    List1.AddItem miColeccion(j)
                Next j
            End If
        Next i
        Close #1 'con esto se cierra el archivo
    End If
Next x

End If

End Sub