Trabalhando com arquivos TXT

Delphi

17/07/2003

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...


Cinh0

Cinh0

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

17/07/2003

coloque um memo no form e faça isso:

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;



GOSTEI 0
POSTAR