Fórum Importar dados #179498

Bom, acho que vai depender do que exatamente vem nestas txts que vc quer exportar, se os dados vem num cronograma de caracteres padrão, pra ai vc poder usar um stringlist, abrir esta txt, e gravar os determinados dados nos campos.


Ex de txt com dados à converter:


001210212021021 ROBERTO FERREIRA DOS SANTOS 31/12/2002
015606165105600 VANESSA CAMAGO DIAS 14/11/2002
012105105156165 MARIO ANDRADE 15/03/2002
......

e assim vai..... de um exemplo?

o txt em a seguinte estrutura:

1,Armario Z,263,45,03,P
2,Armario A,285,163,02,O

e assim por diante.

bom ja fiz isto antes, por isso tente fazer assim, deu certo comigo:

crie as variáveis na unit = T,x : integer;
Slist : tStringList;

ai faz o seguinte:

Slist := TStringList.Create;
Slist.LoadFromFile(´Arquivo.txt´);

for T := 1 to Slist.count-1 Do
begin
Table.Append;
Table1Produto.Value := Copy(Slist.Strings[T],1,1);
Table1Descricao.Value := PegaDescricao;
Table1Codigo.Value := PegaCodigo;
etc.....
Table1.Post;
end;

por exemplo na function PegaDescricao :String;
var xV : String;
begin
x := 1;
while not (Pos(xV, ´,´) = 0) do
begin
xV := Copy(Slist.Strings[T],3,x);
x := x +1;
end;
xV := Copy(Slist.Strings[T],3,x-1);
Result := xV;
end;

ai vc cria outras funcões para os outros campos para pegar os valores contando sempre até a vírgula que separa um do outro.

Sei que isto funciona pois jah fiz um programa usando algo parecido, espero que entenda e dai, vc tira o resto de como continuar a importar, não testei estes fontes são só um explicativo... boa sorte cara, se encontrar algo melhor e mais interessante vai ser bom

um abraço...

Agradeço a dica, mas como eu disse, acho que não estou entendendo direito os exemplos.
Não funcionou pra mim tb.