ich bin inzwischen fast 58 Jahre und habe es imme rnoch nicht aufgegeben Programme erstellen zu wollen. Meinen PB-Compiler habe ich sicherlich schon seit etwa 10 Jahren immer wieder installiert und erste Gehversuche gemacht, aber leider bin ich nie darüber hinaus gekommen.
Aus aktuellem Anlass, möchte ich gerne Textdateien bearbeiten. Dazu habe ich mir z.B. von der Webseite Anne Will die Kommentare als Einzeldateien herunter geladen. Das habe ich mit Codefragmenten noch selbst geschafft, die ich im Forum gefunden bzw. selbst erarbeitet habe.
Code: Alles auswählen
EnableExplicit
Define.l i, Ergebnis, URL_Laenge, Zaehlerlaenge
Define.s URL, Dateikopf
Ergebnis = InitNetwork()
URL = "https://daserste.ndr.de/common/apps/php/sophorum/thread/view?cmsid=5f5a9397-2dcd-45e6-ada0-53960678a7f7&id_page="
Dateikopf = GetHTTPHeader("https://daserste.ndr.de/common/apps/php/sophorum/thread/view?cmsid=5f5a9397-2dcd-45e6-ada0-53960678a7f7&id_page=1")
For i = 152 To 190
Zaehlerlaenge = Len(Str(i))
URL = URL + i
Debug URL
ReceiveHTTPFile(URL, "E:\AnneWill\AnneWill_S_" + i + ".html")
URL_Laenge = Len(URL)
;Debug "Länge URL: " + URL_Laenge
;Debug "Zaehler: " + Zaehlerlaenge
URL_Laenge = Len(URL)-Zaehlerlaenge
URL = Left(URL, URL_Laenge)
Debug URL
Next
; https://daserste.ndr.de/common/apps/php/sophorum/thread/view?cmsid=5f5a9397-2dcd-45e6-ada0-53960678a7f7&id_page=1
; https://daserste.ndr.de/common/apps/php/sophorum/thread/view?cmsid=5f5a9397-2dcd-45e6-ada0-53960678a7f7&id_page=2
Code: Alles auswählen
<div class="pager">Zu Seite:
.
.
.
<div class="singlecomment">
Habe mich deshalb an den Funktionen ReadString, FindString usw versucht, bekomme es aber nicht hin eine einzelne Zeile anzeigen und deren Position bestimmen zu lassen, damit ich die Zeilen zwischen den beiden Suchparametern löschen kann.
Bräuchte deshalb etwas Hilfe dazu.
Danke vielmals.
System ist W7 64, PB ist 5.40 LTS