Qual é a melhor forma de trabalhar e gerar arquivos .txt

Delphi

18/09/2007

Olá Colegas Delphianos.

Trabalho atualmente no desenvolvimento de uma folha de Pagamento.

Há a necessidade de mensalmente ser informado a caixa economica federal um arquivo com informações referentes a movimentação do sistema, e esse arquivo tem ser formatado conforme um layout.
Gostaria de saber qual é a melhor forma de fazer essa geração do arquivo de texto e tb como posso trabalhar com esses campos, fala sobre campos com 0 de x posições, etc...

Se não ficou claro a dúvida poste aí.

Obrigado


Gtts

Gtts

Curtidas 0

Respostas

Adriano Santos

Adriano Santos

18/09/2007

Olá Colegas Delphianos. Trabalho atualmente no desenvolvimento de uma folha de Pagamento. Há a necessidade de mensalmente ser informado a caixa economica federal um arquivo com informações referentes a movimentação do sistema, e esse arquivo tem ser formatado conforme um layout. Gostaria de saber qual é a melhor forma de fazer essa geração do arquivo de texto e tb como posso trabalhar com esses campos, fala sobre campos com 0 de x posições, etc... Se não ficou claro a dúvida poste aí. Obrigado

O que você precisa chama-se EDI (Eletronica Data Interchange). Na edição 84 da revista ClubeDelphi publiquei um artigo falando específicamente sobre o assunto.


GOSTEI 0
Gtts

Gtts

18/09/2007

vlw adriano,

quero somente gerar um .txt apartir do meu sistema, vou criar algumas variáveis e através de loops faço a troca de valores das variáveis.

Sabe como posso gerar esse txt, apartir por exemplo de uma variável com o valor de ´texte´.

Obrigado.


GOSTEI 0
Massuda

Massuda

18/09/2007

Um exemplo básico...
var
  Arquivo: TextFile;
...
  AssignFile(Arquivo, ´Nome do Arquivo.txt´);
  Rewrite(Arquivo);

  Writeln(Arquivo, ´Uma linha de texto´.);

  Writeln(Arquivo, ´´); // uma linha em branco

  Write(Arquivo, ´Um ´);
  Write(Arquivo, ´pedaço ´);
  Writeln(Arquivo, ´de texto.´);

  CloseFile(Arquivo);



GOSTEI 0
Fabiano Góes

Fabiano Góes

18/09/2007

um dica com TStringList tambem:

var
   File: TStrings;
   sLine: string;
begin
   File := TStringlist.Create;
   try

      // cria a linha com o layout desejado e suas variaveis
      // sLine :=  ...

      // Escreve a linha no arquivo
      File.Append(sLine );
      // ...

      // salva o arquivo
      File.SaveToFile(´C:\SeuArquivo.txt´);

   finally
      FreeAndNil(File);
   end;
end;



GOSTEI 0
Mmoreira

Mmoreira

18/09/2007

Eu suaria TStringList como disse o colega ai acima e neste caso como voce vai trabalhar com posicoes seria interessante voce criar uma funcao que preencha com espacos onde a string nao atingir o tamanho desejado para a proxima insercao de informacao.


GOSTEI 0
POSTAR