Thema: PosEx Bug?

Einzelnen Beitrag anzeigen

youuu

Registriert seit: 2. Sep 2008
Ort: Kleve
822 Beiträge
 
Delphi 2010 Professional
 
#1

PosEx Bug?

  Alt 14. Jan 2011, 10:37
Hi,

ich hab ein Problem und zwar, scan ich einen Quelltext nach Links mit Pos.

Quelltext abschnitt:

Code:
<HTML><HEAD><TITLE>SV Büro Homepage</TITLE>
<META NAME="AUTHOR" CONTENT="Ihr Name">
.
.
.
<AREA SHAPE=RECT COORDS=" 0, 0, 109, 120" HREF="hul.htm">
so, ich benutze hierzu

Delphi-Quellcode:
      Pos2:= 0; <-- Start des Quelltextes
      if PosEx('href=', Source, Pos2 + 1) <> 0 then begin <-- Sobald er ein Href findet
        Pos1:= PosEx('href="', Source, Pos2 + 1); <-- Gefunden
        Pos2:= PosEx('"', Source, Pos1 + 8); <-- Gefunden
        Copy(bla)
Das Problmem an der Sache ist das Pos1 immer auf 0 rutsch Egal wo der eigentlich Href steht.
Denn ich weiß das 100% kein Href am Anfang des Quelltext zufinden ist sondern erst bei Position 1xxx, jedoch zeigt im Debugger Pos1 immer auf Position 0.

Wie kann das sein?
Selbst wenn ich Pos1:= PosEx('href="', Source, 200); Testweise probiere, springt er auf 0 zurück
Steven
  Mit Zitat antworten Zitat