Memo Komponente Wörter rausfiltern

[DeddyH]

Sind das immer Zahlen, die Du suchst?

[edit] Falls da so ist, versuch es mal so (hab jetzt auch wieder Delphi zur Verfügung):

Delphi-Quellcode:

uses StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
const davor = 'view.php?ad=';
var iPos: integer;
    SuchStr: string;
begin
  iPos := PosEx(AnsiLowerCase(davor),AnsiLowerCase(Memo1.Text));
  while iPos > 0 do
    begin
      SuchStr := '';
      inc(iPos,Length(davor));
      while Memo1.Text[iPos] in ['0'..'9'] do
        begin
          SuchStr := SuchStr + Memo1.Text[iPos];
          inc(iPos);
        end;
      Memo2.Lines.Add(SuchStr);
      iPos := PosEx(AnsiLowerCase(davor),AnsiLowerCase(Memo1.Text),iPos);
    end;
end;

[/edit]