Listview speichern in mehrere Dateien

[capo]

Delphi-Quellcode:

procedure TMain.Button13Click(Sender: TObject); 
var LCount1, LCount2: Integer; 
    LListe: TStringlist; 
    LStr: String; 
begin 
if SaveDialog1.Execute then 
  begin 
    LListe := TStringlist.Create; 
    for LCount1 := 0 to ListView1.Items.Count - 1 do 
    begin 
     LStr := ' '; 
      for LCount2 := 0 to ListView1.Items.Item[LCount1].SubItems.Count - 1 do begin
      if LCount2 = 0 then 
  LStr := LStr + '<ansicht>' + Listview1.Items.Item[LCount1].SubItems.Strings[LCount2]+'</ansicht>
' 
     else 
  LStr := LStr + Listview1.Items.Item[LCount1].SubItems.Strings[LCount2]+'
'
      LListe.Add(LStr); 
    end; 
    LListe.SaveToFile(SaveDialog1.FileName); 
    LListe.Free; 
  end; 
end;
end;
end;

Hallo,
angenommen in der Listview sind 300 Zeilen.
Wie kann ich alle 10 Zeilen in einer neuen Datei speichern?
Also die ersten 10 = 1. Datei
die nächsten 10 = 2. Datei
usw.

gruss vom capo

[marabu]

Hallo Vito,

ich bin mir nicht sicher, ob du mit deinem Ansatz so glücklich wirst, aber dein technisches Problem kannst du etwa so lösen:

Delphi-Quellcode:

const
  MAX_PER_FILE = 10;

function BuildFileName(const fn: TFileName; n: Integer): TFileName;
var
  base, ext: string;
begin
  base := ChangeFileExt(fn, '');
  ext := ExtractFileExt(fn);
  Result := Format('%s.%d%s', [base, n, ext]);
end;

procedure TMain.Button13Click(Sender: TObject);
var
  LCount1, LCount2, n: Integer;
  LListe: TStringlist;
  LStr: String;
  fn: TFileName;
begin
  if SaveDialog1.Execute then
  begin
    n := 0;
    LListe := TStringlist.Create;
    for LCount1 := 0 to ListView1.Items.Count - 1 do
    begin
      LStr := ' ';
      for LCount2 := 0 to ListView1.Items.Item[LCount1].SubItems.Count - 1 do
      begin
        if LCount2 = 0
          then LStr := LStr + '<ansicht>' 
                            + Listview1.Items.Item[LCount1].SubItems.Strings[LCount2] 
                            + '</ansicht>
'
          else LStr := LStr + Listview1.Items.Item[LCount1].SubItems.Strings[LCount2]
                            + '
';
        LListe.Add(LStr);
      end;
      if (LListe.Count = MAX_PER_FILE) or (LCount1 = Pred(ListView1.Items.Count)) then
      begin
        LListe.SaveToFile(BuildFileName(SaveDialog1.FileName, n));
        Inc(n);
        LListe.Clear; // EDIT
      end;
    end;
    LListe.Free;
  end;
end;

Getippt und nicht getestet.

Grüße vom marabu

[SirThornberry]

oder mit modulo:

Delphi-Quellcode:

for i := 0 to x do
begin
  if (i mod 3 = 0) then
    //Neue Datei erstellen
end;

[capo]

:hi:
Danke für die Hilfe.