Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe
Liste
Übersicht / Liste
Neu
Datei hochladen
Suche
Quellcode suchen
Download
Dateidownload

Trash- Thread Archivierer

Uploader:Mitgliedraph 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