Criar Arquivo (RESOLVIDO)

[Vivendo&Aprendendo]

Ola Galera

Preciso que minha aplicação gere um arquivo, mas esse arquivo de ser gerado com uma estrutura correta, ou seja, coluna e linha:

Codigo Nome Cpf

todos os codigos Todos Nomes todos Cpf

e assim por diante

alguém pode me ajudar..

Alexandre

[Progr'amador]

Olá Alexandre.

Ae vai

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  ArqTxt : TextFile;
  Linha1 : string;
begin
  AssignFile(ArqTxt, 'C:\Meus documentos\TXTITENS.TXT');
  Rewrite(ArqTxt);
  {$I+}
  if (IOResult <> 0) then
       MessageBox(handle,PChar('Houve um erro na criação do Arquivo: TXTITENS.TXT'),'ATENÇÃO',MB_OK or MB_ICONEXCLAMATION)
  else begin
     Query1.Close;
     Query1.Open;
     while not Query1.Eof do begin
        Linha1 := Query1.FieldByName('LAST_NAME').AsString+' '+
                  Query1.FieldByName('FIRST_NAME').AsString+' '+
                  Query1.FieldByName('SS_NUMBER').AsString;
        Writeln(ArqTxt, Linha1);
        Query1.Next;
     end;
     CloseFile(ArqTxt);
  end;
end;

ou se quizer pega o exemplo ae:

http://geocities.yahoo.com.br/pgdelphi/ArquivoTexto.zip

Qualquer dúvida, já sabe!

Abs.

[Vivendo&Aprendendo]

amigão

Qundo abro o form cria um arquivo dbf e quando clico no button ocorre o seguinte erro "Invalid Filename"

Alexandre

[Progr'amador]

tu tem o BDE ae?

[Vivendo&Aprendendo]

cara

tenho sim, mas agora estou tentando usar o código que passou e não o exemplo e da um erro na linha do código que está selecionada.

procedure TForm1.Button1Click(Sender: TObject);

var

ArqTxt : TextFile;

Linha1 : String;

begin

AssignFile(ArqTxt, 'C:\Meus documentos\TXTITENS.TXT');

Rewrite(ArqTxt); {$I+}

if (IOResult <> 0) then

MessageBox(handle,PChar('Houve um erro na criação do Arquivo: TXTITENS.TXT'),'ATENÇÃO',MB_OK or MB_ICONEXCLAMATION)

else begin

Query1.Close;

Query1.Open;

while not Query1.Eof do begin

Linha1 := Query1.FieldByName('LAST_NAME').AsString+' '+

Query1.FieldByName('FIRST_NAME').AsString+' '+

Query1.FieldByName('SS_NUMBER').AsString;

Writeln(ArqTxt, Linha1);

Query1.Next;

end;

CloseFile(ArqTxt);

end;

end;

[Progr'amador]

É o seguinte esse ta usando uma tabela do DBDEMOS que já vem com o delphi.

Faz o seguinte, troca tudo aquilo por isso:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 ArqTxt : TextFile;
 Linha1 : string;
begin
   AssignFile(ArqTxt, 'C:\Meus documentos\TXTITENS.TXT');
   Rewrite(ArqTxt);
   Query1.Close;
   Query1.Open;
   while not Query1.Eof do begin
      Linha1 := Query1.FieldByName('LAST_NAME').AsString+' '+
                Query1.FieldByName('FIRST_NAME').AsString+' '+
                Query1.FieldByName('SS_NUMBER').AsString;
      Writeln(ArqTxt, Linha1);
      Query1.Next;
   end;
   CloseFile(ArqTxt);
end;

falow!!!

[Vivendo&Aprendendo]

cara

Ocorre o mesmo erro:

Invalid Filename

[Vivendo&Aprendendo]

Ele ta criando o arquivo mas não esta gravando nada

[Progr'amador]

estranho, aki num deu erro não.

faz o seguinte cria esse arquivo em branco: C:\Meus documentos\TXTITENS.TXT

[Vivendo&Aprendendo]

cara deu certo mas vou ter que configurar os espaços entre os campos... ah não ser que você siaba um jeito

Vlw

[Progr'amador]

configurar, como assim?

você quer que fique um em baixo do outro tipo assim:

CODIGO      NOME       CPF
0001        JOAO       11111111111
0002        MARCOS     22222222222
0003        MARIA      33333333333

É isso?

[Vivendo&Aprendendo]

é isso mesmo, pois esse arquivo vai ser convertido para um banco de dados e se tiver bagunçado ele não reconhece, na verdade se eu pegar esse arquivo e converte-lo para xls ele de ficar da mesma forma que esta no txt linha e coluna, código, nome e os campos respectivos cada um em uma coluna.

Vlw

[Progr'amador]

Olá Alexandre.

Então use esse:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  ArqTxt : TextFile;
  Linha1, campo1, campo2, campo3, tam1, tam2 : string;
begin
  AssignFile(ArqTxt, 'C:\Meus documentos\TXTITENS.TXT');
  Rewrite(ArqTxt);

  Query1.Close;
  Query1.Open;
  while not Query1.Eof do begin
    campo1 := Query1.FieldByName('LAST_NAME').AsString;
    campo2 := Query1.FieldByName('FIRST_NAME').AsString;
    campo3 := Query1.FieldByName('SS_NUMBER').AsString;
    tam2 := '               ';//tamanho 15 letras (tam.do campo1)
    tam1 := IntToStr(15-length(campo1));
    tam2 := Copy(Tam2,1,StrToInt(Tam1));
    Insert(campo1,tam2,1);
    campo1 := tam2;
    tam2 := '          ';//tamanho 10 letras (tam.do campo2)
    tam1 := IntToStr(10-length(campo2));
    tam2 := Copy(Tam2,1,StrToInt(Tam1));
    Insert(campo2,tam2,1);
    campo2 := tam2;
    Linha1 := campo1+campo2+campo3;
    Writeln(ArqTxt, Linha1);
    Query1.Next;
  end;
  CloseFile(ArqTxt);
end;

Abs. Progr'amador

[Vivendo&Aprendendo]

Vlw cara

Vou testar e posto o resultado

Alexandre

[Vivendo&Aprendendo]

Amigo

Testei o código e não deu certo ele grava beleza mas não em ordem, ele deixa tudo desorganizado. Será que tem que ir mexendo nas variaveis tamanho até dar certo? Poderia me explicar o código?

Alexandre

[Progr'amador]

Ops!

voce falou em ordem, não sei se entendi, mas você gostaria de ordenar os registros tipo assim:

A

B

C

...

ou por numeros? é isso?

Outra coisa, a lista ta saindo em linha, um em baixo do outro certinho???

porque aki saiu certinho um em baixo do outro, tudo em linha.

Se não tiver em linha certinho, observe que eu usei os tamanhos 15 e 10, talvez os seu registro tenho ultrapassado esse numero de caracteres.

Abs.

[Vivendo&Aprendendo]

vou te mandar uma mail com a maneira que deve sair esse arquivo txt

falou

[Vivendo&Aprendendo]

cara deu certo agora era só configurar os espaços das variaveis tamanho, para cada campo do banco que vou utilizar nesse arquivo tenho que criar uma variável ou não?

Alexandre

[Progr'amador]

Voce pode usar so duas variáveis se quizer:

Nesse exemplo to usando as var. Linha1 e FormaLinha.

procedure TForm1.Button2Click(Sender: TObject);
var
  ArqTxt : TextFile;
  Linha1, FormaLinha, tam1, tam2 : string;
begin
  AssignFile(ArqTxt, 'C:\Meus documentos\TXTITENS.TXT');
  Rewrite(ArqTxt);

  Query1.Close;
  Query1.Open;
  while not Query1.Eof do begin
     FormaLinha := Query1.FieldByName('LAST_NAME').AsString;
     tam2 := '               '; // tamanho 15 letras
     tam1 := IntToStr(15-length(FormaLinha));
     tam2 := Copy(Tam2,1,StrToInt(Tam1));
     Insert(FormaLinha,tam2,1);
     Linha1 := Linha1+tam2;

     FormaLinha := Query1.FieldByName('FIRST_NAME').AsString;
     tam2 := '          '; // tamanho 10 letras
     tam1 := IntToStr(10-length(FormaLinha));
     tam2 := Copy(Tam2,1,StrToInt(Tam1));
     Insert(FormaLinha,tam2,1);
     Linha1 := Linha1+tam2;

     FormaLinha := Query1.FieldByName('SS_NUMBER').AsString;
     Linha1 := Linha1+FormaLinha;
     Writeln(ArqTxt, Linha1);
     Linha1 := '';
     Query1.Next;
  end;
  CloseFile(ArqTxt);
end;

Abs.

[Vivendo&Aprendendo]

Vlw Amigão

cara Obrigado pela ajuda.......

Como adiciona MP?

Alexandre

[Progr'amador]

Ok!

precisando, posta ae falow!

Tá resolvido? podemos fechar então?

[Vivendo&Aprendendo]

Vlw cara podemos fechar...

Como que eu fecho um post???

Alexandre

[Progr'amador]

Vlw cara podemos fechar...

Como que eu fecho um post???

Alexandre

HeHeHe!

Pode deixa que eu fecho. (só mod. pode fechar)

Fechando...