MyCity » Pascal -> Delphi » primena ParseRecord procedure na 5 CSV faljova - da li je moguće

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

Napisano na dan: 14.7.2012

primena ParseRecord procedure na 5 CSV faljova - da li je moguće
Sledeća strana Pagination

Idi na vrh

Poslao: 14 Jul 2012 15:42
Idi na vrh
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.

MyCity » Pascal -> Delphi » primena ParseRecord procedure na 5 CSV faljova - da li je moguće

Ko je trenutno na forumu
 

Ukupno su 1174 korisnika na forumu :: 147 registrovanih, 4 sakrivenih i 1023 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: Adaminho1985, amstel, ArmFPGA, Asparagus, ast13, bambulic, Betty25, BlackTower, bobo85, Bojan5150, bojan_t, bokicacar, boro975, boromir, Boroš, bounty hunters, BOXRR, bpvl, Bradonja89, BraneS, cekic, ceman, cifra, CikaKURE, Colt D, comi991, cuvarkuca, ddjxxi, DeerHunter, dekiz, Dioniss, djukapfc, Dorcolac, Dovla 1980, DovlaODR, draganl, draganst, dragoljub11987, drimer, duro1990duro, Dusko_Dugousko, Dzigy, Dzumanga, Fliper, gaga23, gasazem, Georgius, GH69, goran.vvv, Goran_, GORDI, Gorilo_1991, GveX, HogarStrashni, HrcAk47, Insan, Iskander, istina, istokzapad, Ivica1102, jalos, Jan, Jester, JK, Joint Chief, JOntra, K2, Kajzer_Soze, kaput21, Kontrausluga, Koridor, kuntakinte, KUZMAR, Le Banner, Leonov, littlebunny, lukac, M74AB3, Magistar78, Makarid, maksi007, Manjane, Marija88, MarijaC84, marsi, mat, max power, mercedesamg, MGBRBG, Mig 29, mikrimaus, Mile14, miljannis, mir juzni, Mirsen, moldway, monomah, MrG, nazgul75, nebidrag, Pale2025, Papadubi, Pekman, Pero Petković, Perudin_92, Pilence, pirke96, posmatrac300, Prašinar, predragc, Profesor_018, proka1ng, radza1, rakivan, rovac, ruma, Sale0501, sap, Savantije, sekula80, septembar, Sharpshooter, Sinduk, sova72, stegonosa, T55, The trojkaaa, TheBeastOfMG, theNedjeljko, travisrise, ujke, V-98, vargas, vaso1, vidra1, volimpivuvolimrakiju, VPV, vuksa72, wexy, Zastava, zauzet, zax22r, zemljanin, ZetaMan, zil10, Zmajac, 223223