text zwischen zwei einträgen auslesen

[Delphi_Coder]

Diese Funktion sucht im TMemo nach den beiden Strings vS und nS und gibt des Text dazwischen aus.
:dance: Ich will damit HTML Dateien durchsuchen und den Text zwischen zwei Tags auslesen. Nur funktioniert das bei größeren Dateien nicht.

Vielleicht kann mit jemand von euch helfen.

Delphi-Quellcode:

function zText(vS: String; nS: String; M:TMemo):String;
var
  vI,nI:  Integer;
  I:    Integer;
  S:    String;
begin
  Result:='';
  S:=M.Lines.Text;

  vI:=Pos(vS,S);
  nI:=Pos(nS,S);

  if (vI<>0) or (nI<>0) then
  begin
    for I:=vI+Length(vS) to nI-1 do
      begin
        Result:=Result+S[I];
    end;
  end;
end;

danke schon im vorraus

[Wormid]

Sind denn vS und nS jeweils eindeutig und ist nI größer als sI?

Gruß

Wormid

[Delphi_Coder]

ja das schon, ich hab es ja getestet.
nur das problem ist dass es wunderbar funktioniert. aber sobald ich als nS oder vS mehr als ein Zeichen eingebe gibt dir Pos - Funktion nur mehr 0 zurück. und ich weiß nicht warum.
:coder:
gibt es vielleicht eine alternative zu Pos oder weiß jemand wo mein fehler liegt?

[Wormid]

Also, bei mir funktioniert die Routine eigentlich einwandfrei...

Delphi-Quellcode:

  ShowMessage(zText('<title>', '</title>', Memo1));

Ich habe das mal so getestet und da kam der korrekte Titel der Seite bei raus, deren Quelltext ich in das Memo1 eingefügt hatte.

Gruß

Wormid

[Delphi_Coder]

:freak: ja ansich funktioniert der code ja auch.
nur halt nicht immer. wenn ich z.B. große dateien habe dann gibt Pos immer 0 zurück und ich weiß nicht wieso.