Me ajudem por favor com esse arquivo Texto.

Delphi

07/02/2003

Olá galera , possuo um arquivo nesse formato :
B 21.0 105.00 -91.00 0.00 0.00 00
B 21.0 105.00 -91.00 0.00 0.00 00

Quero jogar apenas os valores em uma StringGrid, ou seja, 21 (coluna 1)
105 (coluna 2), etc.
O meu problema é o seguinte :
Como fazer para ler estes valoes sendo que na linha tenho espaços em branco e outros caracteres que não me interessa.
Se alguem puder me ajudar , obrigado desde já.


Anonymous

Anonymous

Curtidas 0

Respostas

Anonymous

Anonymous

07/02/2003

procedure percorreArquivoTexto ( nomeDoArquivo: String );
var arq: TextFile;
I,J : integer;
linha: String;
begin
AssignFile ( arq, nomeDoArquivo );
Reset ( arq );
ReadLn ( arq, linha );
I := 1;
J := 1;
while not Eof ( arq ) do
begin
{ Processe a linha lida aqui. }
{ Para particionar a linha lida em pedaços, use a função Copy. }
// o comando de mover um campo da linha lida para uma coluna do
// stringgrid seria (um exemplo):

StringGrid1.Cells[I,J] := copy(linha, 5, 6) // o 5 se refere a posição
// inicial do campo a ser movido e o 6 ao
// número de posições que ser quer mover

// a cada campo movido somar um ao I
// a cada linha movida somar 1 ao J

ReadLn ( arq, linha );
end;
CloseFile ( arq );
end;


GOSTEI 0
POSTAR