Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: sepiluf en 3 Enero 2006, 20:09 pm



Título: Macros en Internet....
Publicado por: sepiluf en 3 Enero 2006, 20:09 pm
Hola a todos!!!!

Tengo que hacer un copia y pega d un enlace de internet el cual tiene un texto repartido en unas 500 paginas aproximadamente y me han dicho que utilizando macros me podria evitar, lo siguiente:

1º estar delante del ordenador y hacer ctrl+c y ctrl+v en las 500 paginas para pegarme toooooa la informacion en una hoja d word.

2º ahorrarme unas gafas nuevas por pasar delante d la pantalla todo ese tiempo.


Es posible????

Estoy mirando por alli y por aqui y no entiendo mucho eso d las macros y para que sirven exactamente.
Entiendo q es como una herramienta q te evita hacer acciones repetitivas con documentos y hojas d calculo y demas.

Pero no tengo ni idea d como aplicar las macros para hacer copiar y pegar cosas d paginas d Internet.

Si alguien domina y me puede echar un cable?????

Muxas Gracinas y un saludo a todos!!!!


Título: Re: Macros en Internet....
Publicado por: Kizar en 3 Enero 2006, 23:23 pm
Nada de marcos si e entendido bien lo k kieres acer es 500 archivos de texto ponerlo todo en uno no?

Código:
Dim I As Long
Dim Texto As String
Dim Bufer As String
For I = 1 To 500
Open "C:\archivo" & I & ".txt" For Binary As #1
Bufer = Space(LOF(1))
Get #1, , Bufer
Texto = Texto & Bufer
Close #1
Next I

Open "C:\archivo_completo.txt" For Binary As #1
Put #1, , Texto
Close #1

PD puede aber fallos ya k no lo e probado.
Salu2