Pessoal tenho recebido alguns pedidos para demostrar como importar de forma prática um arquivo delimitado.
Então resolvi publicar aqui uma forma de se trabalhar na importação desse tipo de arquivo de forma simples e rápida.
Obviamente essa não é a única forma e talvez nem seja a melhor, mas é aquela que me atende nos meus projetos,
portanto quem tiver algum outro meio que julgue prático fique a vontade para deixar o comentário. Primeiro quero explicar o que será feito, depois codificamos. Imagine um arquivo delimitado por “;” (ponto-e-virgula)
0001;CRISTIANO MARTINS ALVES;28;MASCULINO
0002;ALESSANDRA AMARAL;37;FEMININO
Vemos nesse exemplo que podemos obter Linhas e Colunas, então a ideia é: Primeiro extraimos e linha e depois, extraimos as colunas dessa linha.
Podemos então utilizar 2 TStringLists para nos ajudar nessa tarefa, um chamado de linhas e outro de colunas. Depois percorremos o StringList de linhas e
extraimos as colunas, “jogando” no outro StringList. Ou Seja o que esta em linha assim:
0001;CRISTIANO MARTINS ALVES;28;MASCULINO
vai parar em coluna assim:
CRISTIANO MARTINS ALVES
28
MASCULINO
Dessa forma fica fácil manipular essa dados no LtringList, veja o código
var Linhas, Colunas:TStringList; i,j:integer; begin Linhas := TStringList.Create; Colunas := TStringList.Create; try Linhas.LoadFromFile('C:\MeuArquivo.txt'); //Carregando arquivo for i := 0 to Pred(Linhas.Count) do begin {Transformando os dados das colunas em Linhas} Colunas.text := StringReplace(Linhas.Strings[i],';',#13,[rfReplaceAll]); for j := 0 to Pred(Colunas.Count) do begin { Aqui você faz alguma coisa como colocar num Edit No Meu caso aqui para exemplificar vou apenas mostrar num ShowMessage} ShowMessage('Valor "'+Colunas.Strings[j] + '" da Linha '+IntTostr(i+1) + ' Coluna '+IntToStr(j+1)); end; end; finally Linhas.Free; Colunas.Free; end;
É isso ai pessoal!. A única observação importante, é que se o arquivo for muito grande, coisa de mais de 150.000 linhas, vale apenas ler direto do disco (com TextFile) ao invez de colocar num StringList. Mas nesse código mudaria apenas o primeiro StringList.
31 dezembro, 2008 at 3:33 pm
Gostei muito da dica de como importar arquivo delimitado.
No meu caso tenho um arquivo que pode caracterizar vários
tipo de registro, por exemplo:
100;0001;CRISTIANO MARTINS ALVES;28;MASCULINO
200;0001;10014;23.0
100;0002;ALESSANDRA AMARAL;37;FEMININO
200;0002;10014;36
Onde:
100 representa o cabeçalho do registro
200 representa os itens do registro 100, podendo ter mais de um.
Gostaria, se possível, de uma dica sua de como resolver este problema.
Agradeço desde já.
Almir