markieren

Code:

......
<tr>
<td class="tdh" colspan="2" align="center">VIP BlueManGroup</td>
</tr>
<tr>
<td class="tdn" colspan="2"><span class="fontsmall2">Registriert am 20.01.2008</span></td>
</tr>
<tr>
<td class="tdn">Postings:</td>
<td class="tdn">870[img]pictures/posts.gif[/img]</td>
</tr>
......

Das obere wäre der Quellcode den ich in meinem ACP zum Beispiel sehe, wenn ich mir den Quellcode anzeigen lasse. Nun möchte ich in mein Programm eben einige Sachen rausholen. Wenn ich normal nur mit reinen Text arbeite gehts ja mit

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
source: String;
pos1: Integer;
pos2: Integer;

begin
source := Webbrowser1.OleObject.Document.Body.innerHTML;
pos1 := Pos('Anfangstext', source);
pos1 := pos1 + 11;
pos2 := Pos('Endtext', source);
Caption := Copy(source, pos1, pos2 - pos1);

end;

Nur wenn es um HTML Tags gehts haut nix mehr hin, vorallem weil </td> zuoft gibt. Nächste Überlegung wäre den Quellcode in ein memo zu laden und Line für Line zu durchsuchen und dann alles zu machen.

Nun meine Hauptfrage, gibts eine einfachere Art an diesen Text zu kommen oder bzw. wäre das Ofterwähnte TRegExpr doch besser dafür? Also TRegExpr, oder mit Memo line für line oder gibts noch was einfacheres?


Mit freundlichen Grüßen



Asatru

Mit PosEx kannst du auch einen Offset setzen.

Zitat von mkinzler:

Mit PosEx kannst du auch einen Offset setzen.

markieren

Delphi-Quellcode:

pos1 := Pos('VIP ', source);
pos1 := pos1 + 4;
pos2 := Posex('</TD>', source, Pos1+1);

Erstmal vielen Dank für den Tip....
Nun noch kleine Zwischenfragen, damit ich BSP: den Namen bekomme muss ich </td> Großschreiben, wie muss ich aber schreiben, damit das VIP auch noch mit einbezogen wird?

markieren

Code:

<TD class="tdh" colspan="2" align="center">
<TD CLASS="tdh" colspan="2" align="center">
......

oder andere Schreibungen wollen nicht funktionieren.



MFG

pos2 := Posex('</TD>', UpperCase(source), Pos1+1);

hallöchen....


im normalen Quelltext ist es ja </td> durch das uppercase wird ja gesagt groß und kleinschreibung ist egal?

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
source: String;
pos1: Integer;
pos2: Integer;

begin
source := Webbrowser1.OleObject.Document.Body.innerHTML;
pos1 := Pos('<TD class="tdh" colspan="2" align="center">', UpperCase(source));
pos1 := pos1 + 43;
pos2 := Posex('</TD>', UpperCase(source), Pos1+1);
Caption := Copy(source, pos1, pos2 - pos1);
end;

Hab ich irgendein Denkfehler noch drin? Den selbst mit Uppercase muss ich </td> <-- immer Groß schreiben.



MFG


#Edit: Man muss TEXT bei Uppercase immer Großschreiben? warum klappt dann pos1 := Pos('<TD CLASS="TDH" COLSPAN="2" ALIGN="CENTER">', UpperCase(source)); nicht?

Eigentlich sollte UpperCase alle Kleinbuchstaben in source in Großbuchstaben wandeln
lass dir mal UpperCase( source) anzeigen

Arghhh ich Depp da hät ich och selbst druffkommen können

Nun sehe ich das problem, weil die " werden gar nicht mehr angezeigt und es wurde

markieren

Code:

<TD CLASS=TDH ALIGN=MIDDLE COLSPAN=2>

Vielen Dank für deine Gute Hilfe

Sorry im Voraus für den Doppelpost, aber ich hab zu der Sache noch eine offene Frage!

markieren

Code:

<td class="tdn">Postings:</td>
<td class="tdn">870[img]pictures/posts.gif[/img]Function PosEx(Const SubStr, S: AnsiString; Offset: LongInt = 1): LongInt;
    ASM
      PUSH   ESI
      PUSH   EDI
      PUSH   EBX
      TEST   &SubStr, &SubStr
      JE     @Exit
      TEST   &S, &S
      JE     @Exit0
      TEST   &Offset, &Offset
      JG     @POff
      MOV    &Offset, 1
      @POff:
      MOV    ESI, &SubStr
      MOV    EDI, &S
      PUSH   EDI
      MOV    EAX, &Offset
      DEC    EAX
      MOV    ECX, [EDI - 4]
      MOV    EDX, [ESI - 4]
      DEC    EDX
      JS     @Fail
      SUB    ECX, EAX
      ADD    EDI, EAX
      MOV    AL, [ESI]
      INC    ESI
      SUB    ECX, EDX
      JLE    @Fail

      @Loop:
      REPNE  SCASB
      JNE    @Fail
      MOV    EBX, ECX
      PUSH   ESI
      PUSH   EDI
      MOV    ECX, EDX
      REPE   CMPSB
      POP    EDI
      POP    ESI
      JE     @Found
      MOV    ECX, EBX
      JMP    @Loop

      @Fail:
      POP    EDX

      @Exit0:
      XOR    EAX, EAX
      JMP    @Exit

      @Found:
      POP    EDX
      MOV    EAX, EDI
      SUB    EAX, EDX

      @Exit:
      POP    EBX
      POP    EDI
      POP    ESI
    End;

procedure TForm1.Button1Click(Sender: TObject);
var
source: String;
pos1, pos2, pos3, pos4 : Integer;

begin
source := Webbrowser1.OleObject.Document.Body.innerHTML;
pos1 := Pos('<TD CLASS=TDN>', uppercase(source));
pos1 := pos1 + 14;
pos2 := Posex('</TD>', uppercase(source), Pos1+1);
pos3 := Posex('<TD CLASS=TDN>', uppercase(source), Pos1+2);
pos4 := Pos('<IMG ALT=POSTS', uppercase(source));
Caption := Copy(source, pos1, pos2 - pos1)+ Copy(source, pos3, pos4 - pos3);
memo1.Lines.Text:= uppercase(source);
end;

kann ich irgendwie sagen das ich bei pos3 den 2ten Tag als start suche?

Wenn ich meinen Quellcode verwende bekomme ich angezeigt:

Postings:<TD class="tdn">870


Bin ich richtig auf meinem Weg oder total falsch?



MFG

Hallo,

ich mag es jetzt nicht so deutlich schreiben - richtig und falsch hängt auch immer ein wenig von den eigenen Fähigkeiten ab. Wer nicht mit einem Bagger umgehen kann, der muss das Loch halt mit dem Spaten graben.

Der Quelltext einer HTML-Seite ist nicht einfach Text, sondern hat eine gewisse Syntax. Auf solchen Markup-Text greift man mit einem geeigneten Parser zu. Ich verwende im angehängten Beispiel den MS HTML Parser.

Freundliche Grüße