Text Parsen / Durchsuchen

[DeddyH]

Und so?

Delphi-Quellcode:

function FilterText(const Source, TagStart, TagEnd: string): string;
var StartPos, EndPos: integer;
    Buffer: TStringList;
begin
  Buffer := TStringList.Create;
  try
    StartPos := PosEx(TagStart,Source);
    while StartPos > 0 do
      begin
        inc(StartPos,Length(TagStart));
        EndPos := PosEx(TagEnd,Source,StartPos);
        Buffer.Add(Copy(Source,StartPos,EndPos - StartPos));
        StartPos := PosEx(TagStart,Source,EndPos + Length(TagEnd));
      end;
    Result := Buffer.Text;
  finally
    Buffer.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text := FilterText(Memo1.Text,'<span class="dodo">','</span>');
end;

Aber wie Bernhard schon meinte, Kommentare und dergleichen werden dabei nicht berücksichtigt.