Procurar palavras em um TXT e passar par um DB. Tem Como???

Delphi

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

Rafax

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

19/03/2004

Colega,

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


GOSTEI 0
Rafax

Rafax

19/03/2004

POde me ajudar a montar essa rotina???


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

19/03/2004

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;



GOSTEI 0
POSTAR