Club Builder

[Alejjandro]

Buenas a todos !!!!!!!!!

Espero que todo bien.

Tengo un problema al guardar la info en un archivo txt.

en el txt guardo la salida de un query (o sea reg. x reg.).
Ej.

-------------
ale@hotmail.com
alejandro@yahoo.com.
...
walter@terra.com.ar
--------------------------

el tema es que si no cierro y ejecuto la instruccion de guardar un par de veces no me carga los datos en el txt.

En pocas palabras para guardar la info tengo que realizar este procedimiento varias veces y cerrar la aplicacion varias veces

A quien pueda darme una mano con esto muchisimas gracias.
_________________
Salu2
Ale

[ikis]

que instrucción usas para guardar el .txt? En principio no deberías tener problemas

[Alejjandro]

Este es el codigo que utilizo.

void __fastcall Tmain::SBCrearTXToutputClick(TObject *Sender)
{
if (SaveDialog1->Execute())
{
AnsiString file_output = SaveDialog1->FileName;
AnsiString email;
FILE *output;

if ((output = fopen(file_output.c_str(), "wt"))== NULL)
fprintf(stderr, "No se puede abrir el archivo de salida.\n");
MD->IBQuery1->First();
while (!MD->IBQuery1->Eof)
{
email = MD->IBQuery1->FieldValues["EMAIL"];
email = email + "\n";
fputs(email.c_str(), output);
MD->IBQuery1->Next();
}
MD->IBTransaction->CommitRetaining();
fclose(output);
SeSkinMessage->ShowMessage("Terminado");
}
}
//---------------------------------------------------------------------------

[Cesar C. Salazar Gonzalez]