Memo Komponente Wörter rausfiltern

[DeddyH]

Zeig doch mal den bisherigen Code.

[jkstar]

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var ipos,suchpos:integer;suchstring:string;
begin
iPos := Pos(Memo1.Text,'view.php?ad=');
SuchString := '';
SuchPos := iPos + Length('view.php?ad=');
while (SuchPos < Length(Memo1.Text)) and (Memo1.Text[SuchPos] <> #32) do
  begin
    SuchString := SuchString + Memo1.Text[SuchPos];
    inc(SuchPos);
    memo2.Lines.add(suchstring);
  end;




end;

[DeddyH]

Wenn Du die Zeile innerhalb der Schleife dem Memo hinzufügst, ist das ja auch kein Wunder ;) Außerdem scheint es sich ja nicht um den gewünschten Inhalt zu handeln. Da könntest Du mal einen Blick in die Hilfe zu PosEx werfen.

[jkstar]

Sorry aber Ich kenne mich noch nicht so gut aus damit , ich wollte nur die nummern iregendwie rausfiltern, ist das so schwer?
Was muss ich machen damit ich die in memo2 reinbekomme?

[DeddyH]

Also nochmal anders (ich habe hier gerade kein Delphi und kann daher nicht testen):

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
const gesucht = 'view.php?ad=';
var ipos,suchpos:integer;
    suchstring:string;
begin
iPos := Pos(Memo1.Text,gesucht);
SuchString := '';
SuchPos := iPos + Length(gesucht);
while (SuchPos < Length(Memo1.Text)) and (Memo1.Text[SuchPos] <> #32) do
  begin
    SuchString := SuchString + Memo1.Text[SuchPos];
    inc(SuchPos);    
  end;
memo2.Lines.add(suchstring);
end;

[jkstar]

Ich habs grade getestet
Ich bekomm tMargin=0 in Memo2 aber nicht die Nummer :(

[DeddyH]

Dann muss der gesuchte String bereits vorher auftauchen.

[jkstar]

Wie schon gesagt view.php?ad= kommt ja öfters vor , Ich möchte das der den Sourecode durchforstet und die nummer hinter dem = in das Memofeld steckt.
Hab sowas mal vor Jahren gemacht mit

Delphi-Quellcode:

I:=0 to memo1.lines.count-1 do begin j:=0 to length(memo1.lines[i]) do begin
memo1.lines[i][j]

oder sowas .

[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]

[jkstar]

Ja nur die Zahlen dahinter.