Exportar datos ListView a .txt

[andres_89]

Empezado por ecfisa

Hola de nuevo.

No se si es requisito que uses STL, pero con VCL tal vez te resulte mas simple:

Código PHP:

void __fastcall TForm1::btnSaveClick(TObject *Sender)
{
  AnsiString nombrearchivo = "C:\\tmp\\Reporte.txt";
  TListView* lv = static_cast<TListView*>(ListView1);

  TStrings* sl = new TStringList;
    for(int i = 0; i < lv->Items->Count; i++)
    sl->Add(lv->Items->Item[i]->Caption + "," +
            lv->Items->Item[i]->SubItems->Text);
  sl->SaveToFile(nombrearchivo);
  delete sl;
  // mostrar el contenido del archivo
  Memo1->Lines->LoadFromFile(nombrearchivo);
} 


Saludos

Hola ecfisa, habrá algún parámetro que me permita guardar esos datos pero sin borrar el archivo ya creado anteriormente?, por ejemplo el dia lunes creo el reporte "ejemplo.txt" y el siguiente lunes actualizo a ese mismo reporte los nuevos datos, mostrandome los antiguos y nuevos datos, ya que con el código que se tiene ahora, cada vez que guardo los datos me borra los anteriores y me sobrepone los nuevos en el mismo archivo.

Saludos.

[ecfisa]

Hola andres_89.

Tal vez te resulte mejor unificar ambas acciones en una función:

Código PHP:

void appendData(TListView *lv, const AnsiString &fileName,
  const bool &append=true) {

  TStrings* sl = new TStringList;

  if (append && FileExists(fileName))
    sl->LoadFromFile(fileName);

  for(int i = 0; i < lv->Items->Count; i++)
    sl->Add(lv->Items->Item[i]->Caption + "," +
            lv->Items->Item[i]->SubItems->Text);

  sl->SaveToFile(fileName);
  delete sl;
} 


El parámetro append dictamina si se agregan o sobreescriben los datos, por defecto(omisión) se agregan.

Ejemplo de uso:

Código PHP:

void __fastcall TForm1::btnAppendClick(TObject *Sender)  {
  appendData(ListView1, "C:\\tmp\\Reporte.txt", CheckBox1->Checked);
} 


Para el ejemplo uso como argumento el estado de la propiedad Checked de un TCheckBox. Marcado agrega, si no sobreescribe.

Saludos

[andres_89]

Gracias ecfisa,

es un excelente código y queda para el foro para otros, ya que no encontre ni uno sobre este tema en los foros de builder, ya pude terminar con esta parte, te lo mil agradesco.

Saludos.