Angel Master


Registrado: 15 Abr 2003Mensajes: 2311Ubicación: Toledo (España)
|
Publicado: Jue 21 Mar, 2013 1:09 pm Asunto: Exportar en formato CSV |
|
|
Gracias a otro foro he resuelto el problema que tenía para exportar usando TQRCommaSeparatedFilter. Así ha quedado el código.
| Código: | TStringList * slString = new TStringList();
TQRCommaSeparatedFilter *filtro = new TQRCommaSeparatedFilter("C:\\Informe.csv");
TQRCSVFilter *csv = new TQRCSVFilter(NULL);
__try
{
csv->Separator = ';';
Informe->ExportToFilter(filtro);
}
__finally
{
delete filtro;
delete csv;
}
slString->Clear();
slString->LoadFromFile("C:\\Informe.csv");
slString->Text = StringReplace(slString->Text, CHAR(34), "", TReplaceFlags() << rfReplaceAll);
slString->SaveToFile("C:\\Informe.csv"); |
El TStringList hace falta porque al exportar en cada línea separa las columnas con la cadena ";". _________________ Un saludo
Necesitamos tu ayuda: Envía AI al 27595 (Coste 1,20 euros + IVA) |
|