Capturar dados em TXTs

Delphi

16/11/2003

ola pessoal,
tenho um TXT com os seguintes dados:

0,0896891,[color=red:67b3bd9de1]030506[/color:67b3bd9de1],18.05,01,0
0,0990029,[color=red:67b3bd9de1]030507[/color:67b3bd9de1],18.08,01,0
0,0786893,[color=red:67b3bd9de1]030508[/color:67b3bd9de1],18.05,01,0
0,0490009,[color=red:67b3bd9de1]030509[/color:67b3bd9de1],18.08,01,0
0,0896891,[color=red:67b3bd9de1]030509[/color:67b3bd9de1],18.05,01,0
0,0790027,[color=red:67b3bd9de1]030510[/color:67b3bd9de1],18.08,01,0

Os dados em vermelho são datas que precisam ser validadas. Por isso gostaria de saber como faço para capturar apenas a data de cada linha.

Desde ja agradeço a colaboração de todos.


Vanduy

Vanduy

Curtidas 0

Respostas

Beppe

Beppe

16/11/2003

var
  Lines: TStringList;
  I: Integer;
  Date: String;
begin
  Lines := TStringList.Create;
  try
    Lines.LoadFromFile(´dados.txt´);
    for I := 0 to Lines.Count - 1 do
    begin
      Date := Copy(Lines[I], 11, 6);
      // a data está na string Date
      ...
    end;
  finally
    Lines.Free;
  end;
end;



GOSTEI 0
POSTAR