Página 1 de 1

[RESUELTO] Lectura de datos de Archivo .txt

NotaPublicado: Vie Sep 04, 2015 6:38 pm
por Chelo2
Hola amigos:

Hace unos días en una consulta anterior creo que Federico me sugirió el siguiente código para tomar datos de un archivo de texto donde guardaba una ruta que luego utilizaba en una macro.

Código: Seleccionar todo   Expandir vistaContraer vista
Sub Lee_Linea1
Open "D:\constante.txt" For Input As #1
Line Input #1, sLinea
Msgbox sLinea
Close #1
End Sub


Dicho código fue una solución exitosa a mi pregunta, por lo que pensé que podría utilizarlo, además, para recuperar diferente información sobre algunos parámetros que podría guardar para otras macros en líneas diferentes del mismo archivo. Erróneamente supuse que en el código anterior reemplazando donde decía "1" por el N° de línea que quería recuperar iba a lograr lo que buscaba, :bravo: pero estaba :ucrazy: . Siempre recuperé la información de la primera línea aunque cambiara el mencionado número.

Primero quiero pedir disculpas por lo demasiado básico de mis razonamientos, pero pese a mi ignorancia en el tema, tengo ganas de aprender a toda costa y a veces mis "ensayos y errores" rondan lo ridículo... :knock:

Segundo, quería consultarles, si es posible esto de elegir una línea determinada (no necesariamente la primera) del archivo de texto a recuperar para cargarlo en una variable y utilizarlo en diferentes macros. Esto es por ejemplo, guardar diferentes rutas, que en caso de necesitar cambiar, solo modificaría ese archivo de texto y la macro permanecería intacta, haciendo sólo referencia a la línea donde se encontraría dicha ruta.

Espero haber sido claro en mi explicación y les envío un gran saludo desde Buenos Aires, Argentina.

Chelo2

Re: Lectura de datos de Archivo .txt

NotaPublicado: Vie Sep 04, 2015 7:03 pm
por fornelasa
Como guía ejemplo pudiera ser:

Código: Seleccionar todo   Expandir vistaContraer vista
Sub LeerTodasLasLineas
Open "C:\Users\Federico\Documents\AAAAAAA\constante.txt" For Input As #1
Do While Not EOF(#1)
Line Input #1, sLinea
Msgbox sLinea
Loop
Close #1
End Sub

Lo demas es facil ..... según yo.

Saludos, Federico.

Re: Lectura de datos de Archivo .txt

NotaPublicado: Vie Sep 04, 2015 8:13 pm
por Chelo2
Lo demas es facil ..... según yo.


:oops: Que verguenza me da... jeje .. yo no me doy cuenta como modificarlo...

Veo que ahí me da todas las líneas del archivo. Yo lo que quisera es que por ejemplo me de sólo la línea "3" del archivo. quizá en otra consulta la lía "5" del archivo y así. No se como indicarle la línea.

Intenté hecerle modificaciones intuitivas al código que me pasaste Fede, pero bueno.. jeje se ve que mi intuición no es mi fuerte.. sigo igualll.. :x

Gracias por su atención..

Chelo2

Re: Lectura de datos de Archivo .txt

NotaPublicado: Vie Sep 04, 2015 8:27 pm
por fornelasa
Es que depende de lo que queramos hacer, así tal cual, para leer la linea 3 del archivo, ejemplo:

Código: Seleccionar todo   Expandir vistaContraer vista
Sub LeeLineaTres
x = 0
Open "C:\Users\Federico\Documents\AAAAAAA\constante.txt" For Input As #1
Do While Not EOF(#1)
x = x + 1
If x = 3 Then
Line Input #1, LineaTres
Msgbox LineaTres
Else
Line Input #1, sLinea
End If
Loop
Close #1
End Sub

Saludos, Federico.

Re: Lectura de datos de Archivo .txt

NotaPublicado: Vie Sep 04, 2015 8:39 pm
por Chelo2
Seeeeee.... Sos un genio Fede!!!!

Es lo que quería... por más intuición y "ensayo y error" que hubiera aplicado no iba allegar nunca a esoo... :lol: :lol: :lol:

Gracias enomeee.. por tu atención y por la paciencia que me tuviste!!

Un saludo desde Buenos Aires, Argentina.

Chelo2

Re: [RESUELTO] Lectura de datos de Archivo .txt

NotaPublicado: Vie Sep 04, 2015 8:43 pm
por fornelasa
:super: :super: