Código:
#include <Inet.au3> ; Liberia para obtener archivos de internet, en este caso el codigo fuente de la url
#include <Array.au3> ; Array para almacenar nuestros datos, cada dato incluira una posicion
#include <String.au3> ; Funciones para el manejo de Strings
#include <File.au3> ; Guardar y Escribir archivos.
$contador = 0
while $contador < 14
if $contador = 0 Then
local $url = _InetGetSource('http://xd.com') ; Url de la portada
Else
local $url = _InetGetSource('xd.com' & '/page/' & $contador & '/')
EndIf
local $aArray1 ; Declaramos el Array dodne vamos a guardar los datos
$aArray1 = _StringBetween ($url, '<h2>', '</h2>') ; Con esta funcion tomaremos los datos que esten entre '<h2>', '</h2>' .Ver Img2
$contador2 = 0 ; Contador para los articulos
While $contador2 < 7 ; Este contador limita a 7, que son los articulos que se muestran por pagina
$buffer = $aArray1 [$contador2] ; Añadimos el valor de la posicion $contador en el Array1 a $buffer
$buffer = BinaryToString($buffer, 4) ; Esto lo hacemos porque muchas paginas tienen formato charset=utf-8 -
Local $file = FileOpen ("Enlaces.txt",1) ; Abrimos el archivo donde guardaremos los enlaces
if $file = -1 Then
MsgBox (0, "Error", "No se puede abrir")
Exit
EndIf
FileWriteLine($file, $buffer) ; Escribimos los enlaces en una linea del archivo
FileClose($file)
$contador2 = $contador2 + 1 ; Aumentamos el contador para seguir recorriendo el Array que contiene los enlaces
WEnd
$buffer = $aArray1 &[$contador2]
$buffer = $aArray1 &^ ERROR
>Exit code: 1
$contador += 1 ; Aumentamos el contador para visitar
WEnd
por que me marca un error en esta parte me tiene loco ;S
Código:
$buffer = $aArray1 [$contador2] ; Añadimos el valor de la posicion $contador en el Array1 a $buffer
$buffer = BinaryToString($buffer, 4)
(28) : ==> Subscript used on non-accessible variable.:
si me pueden ayudar gracias