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.