Forum Sveta kompjutera  

Nazad   Forum Sveta kompjutera > Test Run > Programiranje

Programiranje Programski jezici, tehnike, alatke...

Odgovor
 
Alatke vezane za temu Vrste prikaza
Stara 14.7.2012, 15:26   #1
gutaiii
Novi član
 
Član od: 9.3.2011.
Lokacija: Novi Sad
Poruke: 4
Zahvalnice: 2
Zahvaljeno 0 puta na 0 poruka
Question primena ParseRecord procedure na 5 CSV faljova - da li je moguće

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;
gutaiii je offline   Odgovor sa citatom ove poruke
Odgovor

Bookmarks sajtovi

Tagovi
array, csv, delphi, matrica, parsiranje

Alatke vezane za temu
Vrste prikaza

Vaš status
Ne možete postavljati teme
Ne možete odgovarati na poruke
Ne možete slati priloge uz poruke
Ne možete prepravljati svoje poruke

BB kod: uključeno
Smajliji: uključeno
[IMG] kod: uključeno
HTML kod: isključeno


Slične teme
tema temu započeo forum Odgovora Poslednja poruka
[Monitor] BenQ G2420HD Aibo Opisi, recenzije i testovi 31 6.4.2011 15:04
Instalacija Retail Snow Leoparda na Asus P5Q-E i slične ploče Mickie Operativni sistemi 60 12.8.2010 10:15
Vista (instalacija) GeForce Operativni sistemi 29 9.5.2010 9:25
Halo 2 na PC-u i Win Vista Meho Krljic O igrama uopšte 4 18.4.2006 20:00


Sva vremena su po Griniču +2 h. Sada je 16:17.


Powered by vBulletin® verzija 3.8.7
Copyright ©2000–2019, vBulletin Solutions, Inc.
Hosted by Beograd.com