Auslesen, was auf einer Seite steht

Anfängerfragen zum Programmieren mit PureBasic.
Tombi
Beiträge: 369
Registriert: 05.03.2008 22:05

Auslesen, was auf einer Seite steht

Beitrag von Tombi »

Kann man irgendwie auslesen, was auf einer Seite steht?
Vorallem sollte dabei beachtet werden, was an einer bestimmten Stelle steht.

Nützlich wäre auch eine Suche in der Seite.
Bild Bild Bild
Intel Pentium 4 630 (3 GHZ)
Benutzeravatar
edel
Beiträge: 3667
Registriert: 28.07.2005 12:39
Computerausstattung: GameBoy
Kontaktdaten:

Beitrag von edel »

Bitte lies dir doch dein Beitrag nocheinmal durch, vielleicht faellt dir
dann auf das viele ueberhaupt nicht verstehen werden, was du da
moechtest.
Benutzeravatar
Fluid Byte
Beiträge: 3110
Registriert: 27.09.2006 22:06
Wohnort: Berlin, Mitte

Beitrag von Fluid Byte »

+1
Windows 10 Pro, 64-Bit / Outtakes | Derek
Benutzeravatar
STARGÅTE
Kommando SG1
Beiträge: 7031
Registriert: 01.11.2005 13:34
Wohnort: Glienicke
Kontaktdaten:

Beitrag von STARGÅTE »

jo da du 3.3 hast (wenn ich mich nicht irre) hier die Codes:

HTLM to String:

Code: Alles auswählen

Procedure.s OpenURL(Url.s, OpenType.b) 
 isLoop.b = 1 
 INET_RELOAD.l = $80000000 
 hInet.l = 0 : hURL.l = 0 : Bytes.l = 0 
 Buffer.s=Space(2048) 
 hInet = InternetOpen_("PB@INET", OpenType, #Null, #Null, 0) 
 If hInet 
  Versuche = 0
  Repeat 
   hURL = InternetOpenUrl_(hInet, Url, #Null, 0, INET_RELOAD, 0) 
   If hURL 
    Repeat
     Delay(1) 
     InternetReadFile_(hURL, @Buffer, Len(Buffer), @Bytes) 
     If Bytes = 0 
      isLoop = 0 
     Else
      res.s = res + Left(Buffer, Bytes)
     EndIf 
    Until isLoop=0 
    InternetCloseHandle_(hURL) 
   Else
    Delay(300)
    Versuche + 1
   EndIf
  Until hURL Or Versuche > 3
  If Versuche > 3
   DatenFehler$ = "Datenübertragung nicht möglich!"
  EndIf
  InternetCloseHandle_(hInet) 
 EndIf
 ProcedureReturn res 
EndProcedure 
HTML$ = OpenURL(URL$, 1)
was an einer bestimmtest Stelle:

Code: Alles auswählen

Was$ = Mid(HTML$, Stelle, Laenge)
Suche:

Code: Alles auswählen

Position = FindString(HTML$, SucheString$, 1)
PB 6.01 ― Win 10, 21H2 ― Ryzen 9 3900X, 32 GB ― NVIDIA GeForce RTX 3080 ― Vivaldi 6.0 ― www.unionbytes.de
Aktuelles Projekt: Lizard - Skriptsprache für symbolische Berechnungen und mehr
Benutzeravatar
ZeHa
Beiträge: 4760
Registriert: 15.09.2004 23:57
Wohnort: Friedrichshafen
Kontaktdaten:

Beitrag von ZeHa »

STARGÅTE hat geschrieben:jo da du 3.3 hast (wenn ich mich nicht irre)
Tja, seinen Signatur-Button-Link sollte er sich evtl. auch nochmal genauer anschauen :mrgreen:
Bild     Bild

ZeHa hat bisher kein Danke erhalten.
Klicke hier, wenn Du wissen möchtest, woran ihm das vorbeigeht.
Kaeru Gaman
Beiträge: 17389
Registriert: 10.11.2004 03:22

Re: Auslesen, was auf einer Seite steht

Beitrag von Kaeru Gaman »

Tombi hat geschrieben:Kann man irgendwie auslesen, was auf einer Seite steht?
man setze die Brille auf die Nase und schlage das Buch auf.
dann muss man nur noch kein Anal-Fabet sein, dann klappts auch mit dem lesen.
Der Narr denkt er sei ein weiser Mann.
Der Weise weiß, dass er ein Narr ist.
Benutzeravatar
ZeHa
Beiträge: 4760
Registriert: 15.09.2004 23:57
Wohnort: Friedrichshafen
Kontaktdaten:

Beitrag von ZeHa »

Naja, um zu lesen, was auf einer Seite steht, geht man doch eigentlich genau gleich vor, wie wenn man liest, was auf der anderen Seite steht. Von daher hilft es evtl. auch, einfach mal rüber zu laufen.
Bild     Bild

ZeHa hat bisher kein Danke erhalten.
Klicke hier, wenn Du wissen möchtest, woran ihm das vorbeigeht.
Antworten