hallöchen....
im normalen Quelltext ist es ja </td> durch das uppercase wird ja gesagt groß und kleinschreibung ist egal?
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?