textualna u binarnu datoteku

ne znam gde greshim, ali mislim da bi ovo trebal da prebaci textualnu u binarnu datoteku

Program datoteke(ultekst, izbin);
var izbin: file of integer;
ultekst: text;
broj: integer;
begin
assign(ultekst, 'dz5.txt');
assign(izbin, 'dz51.dat');
reset(ultekst); rewrite(izbin);
while not eof(ultekst) do
begin
while not eoln(ultekst) do
begin
read(ultekst, broj);
write(izbin, broj);
end;
readln(ultekst)
end;
close(ultekst);
close(izbin);
end.

> ne znam gde greshim, ali mislim da bi ovo trebal da prebaci textualnu u binarnu datoteku

Tekstualni fajl je istovremeno i binarni, samo zavisi od načina pristupa, razjasni šta tačno želiš da postigneš.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

da bih jednostavnije stvorio ulazne binarne datoteke za glavni program, ovaj mora da cita podatke sa standardnog ulaza i upisuje ih u binarnu datoteku, sa kojom ce glavni program kasnije raditi.

kako onda da pristupim text fajlu kao binarnom?
znam da je text fajl istovremeni i binarni, a jel mogu nekako da taj text fajl sacuvam kao .dat?

> da bih jednostavnije stvorio ulazne binarne datoteke za glavni program, ovaj mora da cita podatke sa standardnog ulaza i
> upisuje ih u binarnu datoteku, sa kojom ce glavni program kasnije raditi.

Nisam i dalje siguran šta tačno želiš, da pročitaš neke parametre koje korisnik unosi i smestiš ih u neki fajl koji će se kasnije nekako obraditi iz drugog dela programa? Da li te unete paramtre moraš konvertovati pre upisa (npr ako je unet 404 kao string da to pretvoriš u broj 404 i tako snimiš), ako da onda moraš imati neki format u koji ćeš to upisivati, ako ne onda prosto ono što je korisnik uneo upiši u neki fajl.

> kako onda da pristupim text fajlu kao binarnom?
> znam da je text fajl istovremeni i binarni, a jel mogu nekako da taj text fajl sacuvam kao .dat?

Ekstenzija fajla nema veze sa sadržajem, razjasni u kom formatu je fajl, najbolje daj neki primer i šta treba tačno da radiš sa tim fajlom.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

evo sta je potrebno:

a) poziva potprogram koji ucitava sve potrebne podatke iz ulazne binarne datoteke u jednostruko ulancanu listu, tako da redosled podataka u listi bude isti kao u datoteci;
b) poziva odgovarajuci potprogram koji izvrši traženu obradu nad datom listom;
c) poziva potprogram koji ispisuje sve rezultate dobijene u toku obrade;
d) poziva potprogram koji listu briše iz memorije;
e) ponavlja prethodne korake dok korisnik za ime ulazne datoteke ne unese prazan string.

bira najpovoljniju kupovinu auta iz inostranstva; zapis binarne datoteke se sastoji od imena države, stope PDV-a (P, u %), carinske stope (C, u %) i cene auta (A); konacna cena se racuna kao A*(1+P/100)*(1-C/100); iz liste izbaciti zapise sa konacnom cenom vecom od broja unetog putem glavnog ulaza, a zatim urediti preostale zapise po neopadajucoj vrednosti konacne cene; u izlaznu tekst datoteku ispisati uredene zapise u obliku zemlja cena, kao i prosecnu cenu;

Elementi liste su zapisi koji imaju dva polja. Prvo polje je tipa zapisa, cija polja sadrže sve bitne podatke, prema tekstu zadatka. Drugo polje je pokazivac na sledeci element liste. Format izlazne tekst datoteke usvojiti prema tekstu zadatka, tako da sadrži relevantne, ali ne i nepotrebne informacije. Vrednosti kumulativnih rezultata (prosecna ocena, ukupni pazar itd.) odrediti na osnovu elemenata koji ostanu u listi nakon izbacivanja onih koji ne zadovoljavaju kriterijum odreden postavkom zadatka i upisati ih na kraju izlazne tekst datoteke, posle podataka o uredenim zapisima. Ako nešto u postavci zadatka nije dovoljno precizno definisano ili ako su neki od zahteva medusobno suprotstavljeni, usvojiti razumnu pretpostavku i rešiti zadatak korišcenjem te pretpostavke. Osmisliti i napisati na papiru nekoliko primera ulaznih podataka sa kojima ce se program testirati, kao i ocekivani izlaz za odabrane primere. Makar jedan od test primera mora imati više od 5 zapisa. Potprogrami ne smeju pristupati promenljivama glavnog programa direktno, vec samo putem svojih argumenata.

Važno: da bi bilo moguce jednostavno stvoriti ulazne binarne datoteke, napraviti i pomocni program koji cita podatke sa standardnog ulaza i upisuje ih u binarnu datoteku, sa kojom ce glavni program kasnije raditi.

> zapis binarne datoteke se sastoji od imena države, stope PDV-a (P, u %), carinske stope (C, u %) i cene auta (A);



Dakle binarni fajl o kome se govori sadrži recorde tipa TAuto, fajl promenljiva sa kojom ćeš raditi daklariši kao "file of TAuto", dalje koristi standardne funkcije za otvaranje fajla i čitanje. Ujedno prilom čitanja sadržaja tog fajla praviš i jednostruko povezanu listu, to ide otprilike ovako (pseudokod):



> Važno: da bi bilo moguce jednostavno stvoriti ulazne binarne datoteke, napraviti i pomocni program koji cita podatke sa standardnog
> ulaza i upisuje ih u binarnu datoteku, sa kojom ce glavni program kasnije raditi.

Deklarišeš istu fajl promenljivu kao i za čitanje fajla i potom učitavaš podatak po podatak (drzava, pdv...) i upisuješ ih u fajl.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Ovo što ću napisati nije vezano za ostale poruke, samo bi konstatovao da ovaj program iz prve poruke radi:



Da bi se broj direktno čitao ili pisao u tekstualnom fajlu mora iza njega da bude blanko (razmak) karakter. Iz takvog tekst fajla, recimo:

11 22 33 456 1234
234 567

će program čitati brojeve bez problema. Pisaće ih u "file of integer" isto bez problema. Kada se čita tekst (zadate dužine) iz tekstualnog fajla iza broja mora da se pročita taj blanko karakter pa tek onda tekst. Kada se čita broj iza broja, čita se i taj blanko ispred sledećeg broja pa ne mora posebno da se čita.

sta je problem ovde?

program citanje;

Type automobil = record
drzava: string[30];
PDV: double;
cs: double;
cena: double;
end;

listpok = ^listzapis;
listzapis = record
zap: automobil;
next: listpok;
end;
var
car: file of automobil;
glava, pok: listpok;





procedure FListu(var glava: listpok);
var podat: listzapis;
car: file of automobil;
novi, posl:listpok;
begin
assign(car, 'dz5.dat');
reset(car);
posl:=nil;
glava:=nil;
while not eof(car) do
begin
read (car, podat);
new(novi);
novi^.next = nil;
novi^.auto = podat.auto;
if glava = nil then
glava:= novi
else
posl^.next := novi;
posl :=novi
end;
close(car);
end;

begin
FListu(glava);
end.

> Deklarišeš istu fajl promenljivu kao i za čitanje fajla i potom učitavaš podatak po podatak (drzava, pdv...) i upisuješ ih u fajl.

mozesh da mi pojasnis ovo.... ?

recimo da imam fajl npr. automobili.txt:

Nemacka 10% 15% 20000
Italija 11% 17% 20100
Rumunija 12% 12% 19990

kako da je prebacim u .dat?
znam da prebacim npr.:

5 3
2 2 3 4
3 4

ali ovo gore nece :(

> sta je problem ovde?
> read (car, podat);

Fajl je skup recorda tipa TAuto ne TLista, dakle promeni deklaraciju promenljive podat.

> recimo da imam fajl npr. automobili.txt:
> Nemacka 10% 15% 20000
> Italija 11% 17% 20100
> Rumunija 12% 12% 19990

Ti nemaš takav fajl već raw sadržaj tipa TAuto, podaci u tom falju su (osim države) nečitljivi.

> kako da je prebacim u .dat?

Koliko sam video ne treži se konverzija txt u raw format već kreiranje raw fajla.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Ne ulazim u to šta se traži zadatkom (jer to verujem ne zavisi direktno od znanja) nego samo u tehničke detalje.



Može da bude ovako formatiran tekstualni fajl:

Nemacka 10 15 20000
Italija 11 17 20100
Rumunija 12 12 19990

ili konkretno:

array[0..n] of char
razmak
broj prvi
razmak
broj drugi
razmak
broj treći
crlf iliti kraj linije

To su podaci zapisani u određenom formatu i redosledu pa se podrazumeva šta je postotak a šta ne. Zbog toga nema potrebe da brojevi budu upisivani kao tekst, a sa karakterom % postaju tekst. Onda može da se čita i piše:

br1, br2, br3: integer;
ImeDrzave: array[0..20] of char;
blanko: char;// blano := ' ';
...
readln(tekstFajl, ImeDrzave, br1, br2, br3);
writeln(tekstFajl, ImeDrzave:20, blanko, br1, blanko, br2, blanko, br3);

hvala, uspeo sam :)

samo sam morao drzavu da prebacujem slovo po slovo. pozz

Program datoteke;
uses crt;
var br1,br2,br3: integer;
c,p: char;
ultekst,izbin:text;
begin
clrscr;
assign(ultekst, 'dz5.txt');
assign(izbin, 'dz5.dat');
reset(ultekst); rewrite(izbin);
c:=' ';
while not eof(ultekst) do
begin
read(ultekst, p);
while not (p=' ') do
begin
write(izbin,p);
read(ultekst,p);
end;
readln(ultekst,br1, br2, br3);
writeln(izbin,c, br1, c, br2,c, br3);
end;
close(ultekst);
close(izbin);
end.