F�rum Procurar palavras em um TXT e passar par um DB. Tem Como??? #221126

19/03/2004

Amigo...

Preciso saber c tem como transferir automaticamente dados d um arquivo TXT q recebo diariamente para um DB em Paradox.

Exemplo:

Recebo diariamente um arquivo com os dados q tenho q cadastrar no DB:

Usina Itaiquara de Acucar e Alcool S.A. - [EDI - Eletronic Data Interchange]
Fax:(0xx19) 3657-9068 / Fone:(0xx19) 3657-9000

Pedido a Entregar - Enviado pela 1 vez, emitido em 19/03/2004 10:30:39

Para: Nota Fiscal Atendimento:_________

Pedido No. 000081425211259
Comprador: Companhia Brasileira de Distribuicao - Ean(7895000000001)

Entrega..: CIA BRASILEIRA DE DISTRIBUICAO - Ean(7895000012596)
Endereco.: R.FIORAVANTE DALLA STELLA 66 (Bairro: CRISTO REI) (Cidade: CURITIBA)
Emissao..: 19/03/2004 Entrega Inicial: 22/03/2004 Entrega Final: 22/03/2004

Cobranca.: Companhia Brasileira de Distribuicao - Ean(7895000088232)
Prazo....: 40 dias Vencimento: Desconto(�):3.00

Produto...: FONDANT 1 Kg - Ean(0000010355138)
Quantidade: 2 Kg Preco: 6.22 Bonificacao(�):0.00
Total Produtos: 12.44 Bonificacao: 0.00 Valor Pedido: 12.44

Transmitir via email a nota fiscal ref. ao pedido antes da entrega da mercadoria.

Usina Itaiquara de Acucar e Alcool S.A. - [EDI - Eletronic Data Interchange]
Fax:(0xx19) 3657-9068 / Fone:(0xx19) 3657-9000

Pedido a Entregar - Enviado pela 1 vez, emitido em 19/03/2004 10:30:39

Para: Nota Fiscal Atendimento:_________

Pedido No. 000081425301259
Comprador: Companhia Brasileira de Distribuicao - Ean(7895000000001)

Entrega..: CIA BRASILEIRA DE DISTRIBUICAO - Ean(7895000012596)
Endereco.: R.FIORAVANTE DALLA STELLA 66 (Bairro: CRISTO REI) (Cidade: CURITIBA)
Emissao..: 19/03/2004 Entrega Inicial: 22/03/2004 Entrega Final: 22/03/2004

Cobranca.: Companhia Brasileira de Distribuicao - Ean(7895000088232)
Prazo....: 40 dias Vencimento: Desconto(�):3.00

Produto...: FERMENTO FRESCO 500g - Ean(7896545500012)
Quantidade: 50 PCT Preco: 2.19 Bonificacao(�):0.00
Total Produtos: 109.50 Bonificacao: 0.00 Valor Pedido: 109.50

Transmitir via email a nota fiscal ref. ao pedido antes da entrega da mercadoria.

Desses dados tenho que cadastrar o numero do pedido, a quantidade de
produtos e a data entrega final.

Teria como fazer com que o DB reconhece-se os valores o cadastrar os dados automaticamente???

Valeu...

Rafax

Curtir t�pico

+ 0

Responder

Posts

19/03/2004

Aroldo Zanela

Colega,

Neste caso, voc� dever� criar uma rotina para ler o arquivo e efetuar a grava��o de acordo com a sua especifica��o.

Responder

Gostei + 0

19/03/2004

Rafax

POde me ajudar a montar essa rotina???

Responder

Gostei + 0

19/03/2004

Aroldo Zanela

Colega,

Veja o exemplo:

procedure TForm1.ImportarPedidos;
var Arquivo: TextFile;
Linha: String;
    nPos: Integer;
    Lista: TStringList;
begin

try

  Lista:= TStringList.Create;

    Screen.Cursor := crHourGlass;
    AssignFile(Arquivo, �C:\TEMP\PEDIDOS.TXT�); // Linha inserida
    Reset(Arquivo);
    While not Eof(Arquivo) do
    begin
      ReadLn(Arquivo, Linha);
      nPos := Pos(�Pedido No.�, Linha);
      if nPos>0 then
      begin
      Lista.Add(Copy(Linha,12,Length(Linha)));
      end;
    end;
  finally
  ShowMessage(Lista.Text);
    CloseFile(Arquivo);
    Lista.Free;
    Screen.Cursor := crDefault;
  end;
end;

Responder

Gostei + 0