Zahlen aus text suchen!

[scp]

Das sieht für mich nach einer Art Aufgabe aus. Wenn mans genau nimmt müsste man eigentlich nur nach den Zahlen suchen, die nach dem Wort "zahlte" erscheinen. Wenn man noch die Nichtzahler irgendwie auflisten muss, kann man ja die Namen vor "konnte nicht Zahlen" suchen. Dabei sind die Absätze dann völlig egal. Idee zur programmiertechnischen Umsetzung folgt.

EDIT:
So könnte man die Absätze (bzw. Zeilenende) richtig setzen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  s : string;
  n, z : string;
  i : integer;
  wert, code, gesamt : integer;
begin
  s := Memo1.Lines.Text;
  s := StringReplace(s, #$0D#$0A, ' ', [rfReplaceAll, rfIgnoreCase]);
  s := StringReplace(s, 'Credits ', 'Credits'#$0D#$0A, [rfReplaceAll, rfIgnoreCase]);
  s := StringReplace(s, 'konnte nicht Zahlen ', 'konnte nicht Zahlen'#$0D#$0A, [rfReplaceAll, rfIgnoreCase]);
  Memo1.Lines.Text := s;

Jetzt hat man eine ordentliche Tabelle und kann das ganze parsen:

Delphi-Quellcode:

  gesamt := 0;
  for i := 0 to Memo1.Lines.Count-1 do
  begin
    If (Pos('konnte nicht Zahlen', Memo1.Lines[i]) > 0) then
    begin
      n := Copy(Memo1.Lines[i], 1, Pos('konnte nicht Zahlen', Memo1.Lines[i])-1);
      z := '0';
    end
    else
    If (Pos('zahlte' , LowerCase(Memo1.Lines[i])) > 0) and
       (Pos('Credits', Memo1.Lines[i]           ) > 0) then
    begin
      n := Copy(Memo1.Lines[i], 1, Pos('zahlte', LowerCase(Memo1.Lines[i]))-1);
      z := Copy(Memo1.Lines[i], Pos('zahlte', LowerCase(Memo1.Lines[i]))+length('zahlte'), Pos('Credits', Memo1.Lines[i])-(Pos('zahlte', LowerCase(Memo1.Lines[i]))+length('zahlte')));
    end
    else
    begin
      n := '';
      z := '0';
    end;

    n := Trim(n);
    z := Trim(z);
    Val (z,wert,code);
    If (code = 0) then
      Inc(gesamt, wert);

    // Hier könnte man das jetzt in ein ListView mit zwei Spalten
    // und ViewStyle vsReport übertragen
    {
    with ListView1.Items.Add do
    begin
      Caption := n;
      Subitems.Add(z);
    end;
    }
  end;

  Label1.Caption := IntToStr(gesamt);
end;

Das ganze ist natürlich nur für den Fall gedacht, dass die Schlüsselewörter "zahlte", "Credits" und "konnte nicht Zahlen" immer vorkommen.