hola quisiera que me ayudaran con un pequeño problema. resulta que tengo un procedimineto que me pasa un archivo de texto a una variable string. El procedimiento es este
Public Sub txtAstring(ByVal strRuta As String, ByRef strCadena As String)
' Pasa a un string el contenido de un archivo txt
Dim fnum As Integer
On Error GoTo Ninguno
fnum = FreeFile
Open strRuta For Input As fnum
Do While Not EOF(fnum)
Line Input #fnum, txt
strCadena = strCadena & vbCrLf & txt
Loop
Close fnum
Ninguno:
End Sub
La pregunta es si existe alguna forma de q este procedimineto lea un archivo de la siguiente forma: primero el renglon 1, despues el 4, el 7 , y asi sucesivamente, es decir cada tres renglones.
creo q la solucion ha de ser muy simple aunq no la he podido encontrar
espero me ayuden y gracias