Fórum Trabalhando com arquivos TXT #169935
17/07/2003
0
Pessoal, tenho um arquivo txt e tenho que importar seus dados para minha tabela, só que tem um problema, esse arquivo tem cabeçalho e tal, entao preciso fazer o seguinte:
Esse é o arquivo que tenho que importar:
--------- Empresa tal e tal -----------
---------h dsahjdh d jkdajkd ------------
9898 83838 38383
9389 37377 38838
3838 38738 38389
--------- Empresa tal e tal -----------
---------h dsahjdh d jkdajkd ------------
09898 83838 38383
09389 37377 38838
03838 38738 38389
--------- Empresa tal e tal -----------
---------h dsahjdh d jkdajkd ------------
09898 83838 38383
09389 37377 38838
03838 38738 38389
só que para min só interessa as linhas que tem esses ´numeros´, entao tava pensando em fazer o seguinte: abrir o arquivo, ir na primeira linha e vê se a mesma começa com ´0´ (zero), que é padrao, se sim eu importo, se não, eu pulo, mais esse é meu problema, nunca fiz isso, alguem pode me da uma luz?
Agradeco atencipadamente...
Esse é o arquivo que tenho que importar:
--------- Empresa tal e tal -----------
---------h dsahjdh d jkdajkd ------------
9898 83838 38383
9389 37377 38838
3838 38738 38389
--------- Empresa tal e tal -----------
---------h dsahjdh d jkdajkd ------------
09898 83838 38383
09389 37377 38838
03838 38738 38389
--------- Empresa tal e tal -----------
---------h dsahjdh d jkdajkd ------------
09898 83838 38383
09389 37377 38838
03838 38738 38389
só que para min só interessa as linhas que tem esses ´numeros´, entao tava pensando em fazer o seguinte: abrir o arquivo, ir na primeira linha e vê se a mesma começa com ´0´ (zero), que é padrao, se sim eu importo, se não, eu pulo, mais esse é meu problema, nunca fiz isso, alguem pode me da uma luz?
Agradeco atencipadamente...
Cinh0
Curtir tópico
+ 0
Responder
Posts
17/07/2003
Marcelo Saviski
coloque um memo no form e faça isso:
coloque um button, no evento on click:
memo.lines.loadfromfile(´o arquivo.txt´);
coloque um button, no evento on click:
var
i : integer;
begin
for i := 0 to memo1.lines.count - 1 do
begin
if memo1.lines[i][1] = ´0´ then {se começar com ´0´}
begin
{faz os esquema na tabela;}
campo p/ salvar esse nº := memo1.lines[i];
{grava ou o que for;}
end;
end;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)