Exportar dados de uma consulta SQL para arquivo txt

Question

Ol� Pessoal,Meu problema � o seguinte: Ao relizar uma consulta SQL eu devo exportar o resultado da mesma para um arquivo txt. Mas este arquivo deve seguir alguns parametros, ele deve ter um numero X d...

Reginaldo174 · Answer

Informe qual Bd est� usando e quais componentes.D� um exemplo de como ficaria o arquivo txt...

Morticia · Answer

Estou usando o firebird 1.5 fa�o a consulta atraves de um query. Ai preciso gerar um arquiv txt.
O arquivo seria assim:
coluna_nome (espa�o 5 posi��es) coluna_endere�o(espa�o10 posi��es) e assim por diante.

Informe qual Bd est� usando e quais componentes. D� um exemplo de como ficaria o arquivo txt

Marcio.theis · Answer

writeln(txt,Espacos(�NOME_CLIENTE�,20,�L�,� �);

passo como par�metro para a fun��o o texto que eu quero, n� de caracteres a preencher, �L� -> Esquerdo �R� -> Direito, Tipo de caracter a ser preenchido;

Sendo que desta forma eu tenho como retorno uma string formatada, e com a quantidade de espa�os desejada alinhado do lado desejado.

function Espacos(str: string; total: integer; LR, prench: char):String;
var
   s: string;
   x, tam: integer;
begin
tam:=length(str);
s:=��;
if tam > total then
    begin
    s := copy(str, 1, total);
    end
else
    begin
    for x:=tam to (total - 1)  do
        begin
        s:=s + prench;
        end;
    if LR = �L� then
        s:=str + s
    else
        s:=s + str;
    end;
Espacos:=s;
end;

espero que lhe sirva.

Marcio.theis · Answer

writeln(txt,Espacos(�NOME_CLIENTE�,20,�L�,� �);

passo como par�metro para a fun��o o texto que eu quero, n� de caracteres a preencher, �L� -> Esquerdo �R� -> Direito, Tipo de caracter a ser preenchido;

Sendo que desta forma eu tenho como retorno uma string formatada, e com a quantidade de espa�os desejada alinhado do lado desejado.

function Espacos(str: string; total: integer; LR, prench: char):String;
var
   s: string;
   x, tam: integer;
begin
tam:=length(str);
s:=��;
if tam > total then
    begin
    s := copy(str, 1, total);
    end
else
    begin
    for x:=tam to (total - 1)  do
        begin
        s:=s + prench;
        end;
    if LR = �L� then
        s:=str + s
    else
        s:=s + str;
    end;
Espacos:=s;
end;

espero que lhe sirva.

F�rum Exportar dados de uma consulta SQL para arquivo txt #266388