Me ajudem por favor com esse arquivo Texto.
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á.
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
Curtidas 0
Respostas
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;
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