fb:porticula NoPaste
Trash- Thread Archivierer
Uploader: | raph ael |
Datum/Zeit: | 05.02.2008 18:29:07 |
/'
Dieses kleine Programm erzeugt eine HTML-Datei mit den Links zu
den einzelnen Seiten des Trash-Threads. Dann kann man alle Seiten
bequem mit DownThemAll herunterladen.
Kann jeder gerne verwenden und/oder zum archivieren anderer Foren-
Beiträge verwenden.
by int21h - int21h@wolke7.net
'/
#Define SEITENANZAHL = 443
Dim As Integer id, vary
Open "output.html" For Output As #1
id = 0
vary = 0
Do
Print #1, "<a href=""http://forum.qbasic.at/viewtopic.php?t=721&postdays=0&postorder=asc&start=" + Trim(Str(vary)) + """>"
Print #1, Trim(Str(id + 1))
Print #1, "</a> "
id += 1
vary = id * 20
Loop Until id=SEITENANZAHL - 1
Close #1