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.
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.

gibt es vielleicht eine alternative zu Pos oder weiß jemand wo mein fehler liegt?

[Wormid]

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

  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]

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.