Fórum Capturar dados em TXTs #195271
16/11/2003
0
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.
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
Curtir tópico
+ 0
Responder
Posts
16/11/2003
Beppe
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)