primena ParseRecord procedure na 5 CSV faljova - da li je moguće

primena ParseRecord procedure na 5 CSV faljova - da li je moguće

offline
  • Pridružio: 14 Jul 2012
  • Poruke: 1

Imam jedan neobičan zahtev / problem:
- otvoriti 5 csv fajlova,
- izračunati srednju vrednost za svaku ćeliju,
- sačuvati 1 csv fajl sa novim vrednostima, koji ima istu strukturu kao 5 selektovanih.
Da li je moguće računati srednju vrednost matrice, tj. svake ćelije zasebno u Borland Delphi 7 ?

procedure TForm1.ParseRecord(sRecord: string; Row: integer);
var
sField, subRecord :string;
Col, PosComma, PosQ : integer;
begin
Col := 0;

repeat
if Pos('"', sRecord)=1 then
begin
subRecord:=Copy(sRecord,2,Length(sRecord)-1);
PosQ := Pos('"', subRecord);
sField:= Copy (sRecord, 2, PosQ-1);
// PosQ is position of double quotes in subRecord, which is one character
//shorter than sRecord
// Plus two is added due to the fact that there is a comma behind double quotes
Delete (sRecord,1,PosQ+2);
end
else
begin
PosComma := Pos(',', sRecord);
if PosComma >0 then
begin
sField := Copy(sRecord, 1, PosComma-1);
Delete(sRecord,1,PosComma);
end
else
sField := sRecord;
end;
StringGrid1.Cells[Col,Row] := sField;
Col := Col + 1;
until PosComma = 0;

// Set column number
StringGrid1.ColCount := Col;
end;



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Ko je trenutno na forumu
 

Ukupno su 1382 korisnika na forumu :: 25 registrovanih, 5 sakrivenih i 1352 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: aramis s, Areal84, Bane san, bestguarder, cifra, Djokislav, FileFinder, Georgius, indja, jackreacher011011, krkalon, ladro, laki_bb, maCvele, Mi lao shu, Milometer, Oscar2, Parker, SlaKoj, stegonosa, vathra, vlad the impaler, Volkhov-M, W123, zzapNDjuric99