Gerando Arquivos Csv Em Delphi

[Nosdaj]

e ai galera, preciso enviar só o meu EXE(PARA VARIOS LUGARES) sem uma base de dados, onde os usuários ao inserir as informações atraves dos formularios disponibilizados pela aplicação, armazenasseM estas informações em arquivos txt, pois este arquivos txt por sua vez seriam exportados, e seriam armazenados em uma base de dados unica, grato pela atenção.

e-mail:jadsonleao@pop.com.br

messenger: nosdaj@hotmail.com

[Progr'amador]

Olá Nosdaj,

ai vai um exemplo de gerar arquivo txt, nesse exemplo to usando uma tabela (CLIENTES) do banco de dados DBDEMOS que acompanha o delphi.

procedure TForm1.BitBtn1Click(Sender: TObject);
var
   ArqTxt : TextFile;
   Linha1, campo1, campo2, campo3 : string;
begin
   AssignFile(ArqTxt, 'C:\Meus documentos\ARQUIVO_TEXTO.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;
      Linha1 := campo1+campo2+campo3;
      Writeln(ArqTxt, Linha1);
      Query1.Next;
   end;
   CloseFile(ArqTxt);
end;

ou

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

   Query1.Close;
   Query1.Open;
   while not Query1.Eof do begin
      FormaLinha := Query1.FieldByName('LAST_NAME').AsString;
      Linha1 := Linha1+FormaLinha;

      FormaLinha := Query1.FieldByName('FIRST_NAME').AsString;
      Linha1 := Linha1+FormaLinha;

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

O resultado é o mesmo, a unica diferença é que na primeira é usada uma variável pra cada campo da tabela, e a segunda apenas uma.

Abs. Progr'amador.

[Nosdaj]

Programdor obrigado pela dica, me diz uma coisa neste exemplo de gerar os arquivos txt, no meu caso não se utiliza banco de dados, só se tem edit's, onde os dados dos edit's quero armazenar em um txt e posteriormente pegar estes arquivos txt e armazena-los em banco de dados interbase.

[Progr'amador]

Hum, foi mal, agora que eu li direito, você num ta usando tabela.

Deixa eu ver se entendi:

você quer gravar o que esta nos edits do form em arquivo de texto, mas sempre adicionando linhas no arquivo, tipo assim: cada vez que você clicar num botão(por exemplo), adiciona as informações dos edits numa nova linha do arquivo, sem apagar as linhas já existentes.

é isso???

Abs. Progr'amador.

[Nosdaj]

Amigo programador, tenho forms de cadastro de cooperativas, diretores, funcionários, associados e etc, para cada form deste quero gerar uma tabela em txt referente a cada form com os dados armazenados(nos EDIT'S), pois quando estes arquivos forem exportados quero que sejam inseridos nas tabelas em uma base de dados interbase. Onde cada tabela em txt seja referente a uma tabela no interbase..

[Progr'amador]

Olá Nosdaj,

Eu sou meio cabeça dura pra entender as coisas mesmo .

Ai vai um codigo que grava valores de três Edits em um arquivo texto, lembrando que ele grava como se fosse uma tabela mesmo, vamos supor que você tenho inserido tres registros, quando você for inserir outros registro, será inserido abaixo das linhas já existentes.

procedure TForm1.Button1Click(Sender: TObject);
var
 ArquivoLinha : array[1..100] of String;
 ArqTxt : TextFile;
 Linha, FormaLinha : string;
 i, iX, nX : Integer;
begin
  AssignFile(ArqTxt,'C:\Meus documentos\arquivo_texto.txt');
  Reset(ArqTxt);
  i := 0;
  while not eof(ArqTxt) do begin
     i := i + 1;
     Readln(ArqTxt, Linha);
     ArquivoLinha[i] := Linha;
  end;
  Linha := '';
  Closefile(ArqTxt);
  iX := i;

  AssignFile(ArqTxt, 'C:\Meus documentos\arquivo_texto.txt');
  Rewrite(ArqTxt);

  nX := 0;
  for i := 0 to iX do begin
     nX := nX + 1;
     FormaLinha := ArquivoLinha[nX];
     if FormaLinha <> '' Then
        Writeln(ArqTxt, FormaLinha);
  end;

  FormaLinha := Edit1.text;
  Linha := Linha + FormaLinha;

  FormaLinha := Edit2.text;
  Linha := Linha + FormaLinha;

  FormaLinha := Edit3.text;
  Linha := Linha + FormaLinha;

  Writeln(ArqTxt, Linha);

  CloseFile(ArqTxt);
end;

Detalhe: Para esse caso o arquivo terá que ser criado antes de executar esse código.

Qualquer dúvida posta ae, falou!!!

Abs. Progr'amador.

[Nosdaj]

Programador, grato pela suas dicas, mas me diz uma coisa você já mecheu com csv(CAMPO SEM VIRGULA), pois o antigo sistema que será mudado pelo que estou fazendo utiliza o csv, onde segue a mesma lógica do txt. Este sistema gera arquivos csv criptografados que são exportados para uma base(SISTEMA ESTADUAL) onde eles são importados para dentro do sistema, armazenando no banco. Desculpe por esta duvida em usar o txt ou o csv, é porque sou novo em desenvolvimento em delphi e dando uma olhada vi que no antigo sistema utilizaram o CSV, não sei qual dos dois seria mais viável de implementar, espero sua dica, obrigado.

[Progr'amador]

Olá Nosdaj,

NA verdade eu nunca usei esse tipo da arquivo (CSV), no entanto, o pouco que já ouvi, posso te dizer que é mais fácil e viável trabalhar com arquivo texto (TXT), se houver possibidade, te aconselho a usar TXT.

Outra coisa:

Qual é a diferença entre elhes? o que esse CSV faz?

na verdade eu nunca vi um arquivo desse, só ouvi falar.

Abs. Progr'amador.

[Nosdaj]

Programador me diz uma coisa, tudo aquilo que eu te disse que queria fazer utilizando o CSV é possível com o TXT.

[Progr'amador]

Programador me diz uma coisa, tudo aquilo que eu te disse que queria fazer utilizando o CSV é possível com o TXT.

Olá Nosdaj,

como eu havia falado, eu nunca usei esse tipo de arquivo, na verdade eu nem sei a sua finalidade.

Abs. Progr'amador.