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.