tquery a archivo

[ecfisa]

Hola ralmic.

La función que hice no agrega comillas, pero con un simple cambio podes indicarle el formato que deseas:

void QueryToTxt(TQuery *qy, const String aFileName, const String Quote)
{
  String tmp;

  TStrings *sl = new TStringList;
  __try {
    qy->Close();
    qy->Open();
    while (!qy->Eof) {
      tmp = "";
      for(int i=0; i<qy->Fields->Count; i++)
        tmp += Format("%s%s%s,", ARRAYOFCONST(((String)Quote,
          (String)qy->Fields->Fields[i]->AsString, (String)Quote)));
      tmp.SetLength(tmp.Length()-1);
      sl->Add(tmp);
      qy->Next();
    }
    qy->Close();
    sl->SaveToFile(aFileName);
  } __finally {
    delete sl;
  }
}

Ejemplo:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 ...
 // Sin comillas
 QueryToTxt(Query1, "C:\\Pruebas\\NoQuote.txt","");

 // Con comillas simples
 QueryToTxt(Query1, "C:\\Pruebas\\SingleQuote.txt",'\'');

 // Con comillas dobles
 QueryToTxt(Query1, "C:\\Pruebas\\DoubleQuote.txt",'"');
}

Saludos

[ralmic]

gracias es excelente tu código, realmente quise modificarlo para mis necesidades soy un poco novato en builder y parece que no hay mucha ayuda. con este método le pone comilla a todo no importa que sea carácter o no lo que me faltaría es como pornerle comillas a los valores que no sean numéricos. para poder a agregarlos a un a tabla. será posible?? . saludos.

[ecfisa]

Hola ralmic.

Empezado por ralmic

...
lo que me faltaría es como pornerle comillas a los valores que no sean numéricos. para poder a agregarlos a un a tabla. será posible?? ...

Si claro,

void QueryToTxt(TQuery *qy, const String aFileName, const String Quote)
{
  String tmp;
  TStrings *sl = new TStringList;

  __try {
    qy->Close();
    qy->Open();
    while (!qy->Eof) {
      tmp = "";
      for(int i=0; i<qy->Fields->Count; i++)
        tmp += qy->Fields->Fields[i]->InheritsFrom(__classid(TNumericField)) ?
               qy->Fields->Fields[i]->AsString + "," :
               Quote+qy->Fields->Fields[i]->AsString+Quote + ",";
      tmp.SetLength(tmp.Length()-1);
      sl->Add(tmp);
      qy->Next();
    }
    qy->Close();
    sl->SaveToFile(aFileName);
  } __finally {
    delete sl;
  }
}

Uso:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  QueryToTxt(Query1, "C:\\Pruebas\\DoubleQuote.txt",'"');
}

Saludos