Fórum Arquivo Texto #265996
19/01/2005
0
Tenho um arquivo texto neste formato:
1 62387 0 250
2 63548 0 341
.. ....... . ...
e assim por diante.
Como faço para ler cada valor de uma certa linha separadamente. Por exemplo : quero ler o nº 1 e jogar em um campo ou variável, ler o nº 62387 e jogar em outro, ler o 0 e jogar em outro e assim por diante. Podem me ajudar? Obrigado!!!
1 62387 0 250
2 63548 0 341
.. ....... . ...
e assim por diante.
Como faço para ler cada valor de uma certa linha separadamente. Por exemplo : quero ler o nº 1 e jogar em um campo ou variável, ler o nº 62387 e jogar em outro, ler o 0 e jogar em outro e assim por diante. Podem me ajudar? Obrigado!!!
Foxcyber
Curtir tópico
+ 0
Responder
Posts
19/01/2005
Marcio.theis
Eu criei para mim a seguinte function que me retorna os pedaços, nela eu passo um string e a posição inicial e final que quero que ela me traga.
function TfrmRetornoBancario.Pedaco(str: string; posIni, posfim: integer):string;
var
s: string;
x: integer;
begin
s:=´´;
for x:=posIni to posFim do
begin
if length(str) >= x then
s:=s + str[x];
end;
Pedaco:=Trim(s);
end;
Responder
Gostei + 0
20/01/2005
Pistesil
Se eu não me engano vc pode usar a funcao read para fazer isso, vou dar uma olhada depois posto aqui.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)