Preencher Banco de dados a partir de Txt

Delphi

02/04/2004

Amigos, estou precisando de uma função ou códigos que me ajudem o o seguinte problema

o meu cliente recebe um arquivo em formato .txt, onde constam todos os dados de seus revendedores entre outros dados.

gostaria que meu aplicativo abrisse este arquivo txt, capturasse todos esses campos gerando assim uma tabela de revendedores. e também capturasse os outros dados tipo:

Codigo Nome/Endereço
00001 Fulano de Tal
Av tal tal tal

há como fazer isto?


Mrwin

Mrwin

Curtidas 0

Respostas

Paullus

Paullus

02/04/2004

Claro que há... só que a gente precisa saber o formato do arquivo texto. Geralmente eles possuem posição fixa. Vou usar um exemplo:

O cliente te enviou com os seguintes dados:

00001 Dino da Silva Sauro         00000018327


E a seguinte declaração a respeito do arquivo:

Informação Tipo Tamanho Inicio
Codigo 9 5 0
Nome X 28 7
Comissao 9.99 11 35

Você pega os valores da seguinte maneira:

  // Linha é variável que contém toda a linha acima
  Codigo := StrToInt(Copy(Linha,1,5));
  Nome   := Trim(Copy(Linha, 7, 28));
  Comissao := StrToInt(Copy(Linha, 35, 11))/100;


Aí você poderia por exemplo associar os valores direto no seu banco de dados.

Num sei se deu pra explicar direito... :|


GOSTEI 0
Mrwin

Mrwin

02/04/2004

Vou verificar velhinho, depois posto o resultado, valeu mesmo.
Um abraço


GOSTEI 0
POSTAR