Witam!
Mam plik.log. Chcialbym odczytac z niego pewne cyfry. Kazda z nich sie zaczyna tak:
Done 23 costam. Zalezy mi na tym, aby program wyciagal te wwszyskie cyfry z plik.log i jes sumowal... Niby proste, a nie mam pojecia jak to zrobic. Moglby mi ktos pomoc? Naprowadzic?
Z gory dzieki.
0
0
Podaj kilka linijek z tego pliku, lub wyslij mi taki przykladowy plik.
//DOPISANE:
Podam funkcje, moze sie komus przyda.
function Daj_liczbe(Napis: String; Poz: DWORD) : DWORD;
begin
Result := 0;
while (Napis[Poz] in ['0'..'9']) do
begin
Result := Result * 10 + (Ord(Napis[Poz]) - Ord('0'));
Poz := Poz + 1;
end;
end;
function Daj_Sume(Nazwa_Pliku: String) : DWORD;
var
Plik: text;
Linia: String;
begin
Result := 0;
AssignFile(Plik, Nazwa_Pliku);
Reset(Plik);
while ( not EOF(Plik) ) do
begin
ReadLn(Plik, Linia);
if AnsiSameStr(Copy(Linia, 27, 4), 'Done') then
Result := Result + Daj_Liczbe(Linia, 32);
end;
Close(Plik);
end;
0
Podaj kilka linijek z tego pliku, lub wyslij mi taki przykladowy plik.
poszlo na maila.