Hallo!
Erst einmal.. Ich kenne mich weder mit BASIC, noch mit AutoIt oder sonst einer Programmier- / Scriptsprache aus, deswegen fiel es mir schwer einen passenden Threadtitel für das Problem zu wählen...
Ich habe mir von einem Bekannten ein Script schreiben lassen, das automatisch eine beliebig lange Liste von Links (Liste wird als .txt genutzt, Trennung der einzelnen Links ist per Enter, also neue Zeile) abarbeitet und den Quelltext der Seiten einzeln als .txt in einen beliebigen Ordner speichert.
Das läuft soweit gut, der Quelltext der ersten 5 Links der insgesamt 762 Links langen Liste wird korrekt gespeichert... Danach werden zwar weiterhin .txt-Files im dafür angegeben Ordner erstellt, in denen steht aber nur noch eine 0.
Das Script sieht so aus:
[autoit]#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <Array.au3>
#include <File.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Quellcode Schreiber", 343, 206, 192, 124)
$Group1 = GUICtrlCreateGroup("Speicherpfad", 0, 80, 337, 65)
$Input1 = GUICtrlCreateInput("Ordner", 8, 96, 297, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
$Button1 = GUICtrlCreateButton("Browse", 8, 120, 97, 17, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Liste", 0, 8, 337, 65)
$Input2 = GUICtrlCreateInput("Datei", 8, 24, 297, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
$Button2 = GUICtrlCreateButton("Browse", 8, 48, 97, 17, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button3 = GUICtrlCreateButton("In .txt Dateien exportieren", 192, 176, 139, 25, 0)
[/autoit][autoit][/autoit][autoit]GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$File = FileSelectFolder("Ordner, in dem die Dateien gespeichert werden sollen", "")
GUICtrlSetData($Input1, $File)
Case $Button2
$File2 = FileOpenDialog("Datei mit den Links", "", "Text files (*.txt)")
GUICtrlSetData($Input2, $File2)
Case $Button3
Dim $links
_FileReadToArray($File2, $links)
$name = ""
For $i = 1 to $links[0]
$Objekt = _IECreate($links[$i], 0, 0)
$HTML = _IEBodyReadHTML($Objekt)
$name = StringSplit($links[$i], "=", 0)
FileWrite($File & "\" & $name[2] & ".txt", $HTML)
Next
MsgBox(0, "Erfolg", "Der Quellcode wurde erfolgreich in TXT abgespeichert!")
EndSwitch
WEnd
Die Linkliste ist in diesem Format als txt abgelegt:
http://anime-loads.org/page.php?id=1123
http://anime-loads.org/page.php?id=483
http://anime-loads.org/page.php?id=1735
http://anime-loads.org/page.php?id=1663
http://anime-loads.org/page.php?id=1392
http://anime-loads.org/page.php?id=484
http://anime-loads.org/page.php?id=485
http://anime-loads.org/page.php?id=486
http://anime-loads.org/page.php?id=487
http://anime-loads.org/page.php?id=488
http://anime-loads.org/page.php?id=489
http://anime-loads.org/page.php?id=490
http://anime-loads.org/page.php?id=491
http://anime-loads.org/page.php?id=1669
http://anime-loads.org/page.php?id=492
http://anime-loads.org/page.php?id=493
http://anime-loads.org/page.php?id=494
http://anime-loads.org/page.php?id=1388
http://anime-loads.org/page.php?id=495
http://anime-loads.org/page.php?id=496
usw.
Alles anzeigen
Es wäre wirklich genial, wenn jemand den Fehler finden könnte, da mein Bekannter jetzt erstmal für 3 Wochen auf Geschäftsreise ist.. :-/
Freundliche Grüsse
Dabrax