QBasic - WRITE briše jedan drugi

Ovako...

Radim 1 program i imam jedan veliki problem

Ovako izgleda program: (kod)

CLS

INPUT "Vase Ime i Prezime: ", a$

INPUT "Datum: ", b$

INPUT "Vasa adresa: ", c$

INPUT "Broj telefona: ", d$

INPUT "0pis problema: ", e$

OPEN "problem.txt" FOR OUTPUT AS #1

WRITE #1, a$

WRITE #1, b$

WRITE #1, c$

WRITE #1, d$

WRITE #1, e$

PRINT "Vas problem je zapisan u bazu podataka! Hvala na strpljenju!"

CLOSE #1

END

I sad to je sve super, program se izvrsi(slika 1 kako izgleda kad se izvrsi), i u ''problem.txt'' (koji se nalazi u C:/qbasic) se ispiše slijedece:

"Marko Markic"

"16.12.2011"

"Mozebitna Ulica 12"

"018979797"

"Problem je taj i taj..."

Da...tako radi...

Mozes li mi pojasniti molim Te... zasto APPEND sada?

---

I jos 1 ''problem''

Programski kod:

CLS

INPUT "Vase Ime i Prezime: ", a$

INPUT "Datum: ", b$

INPUT "Vasa adresa: ", c$

INPUT "Broj telefona: ", d$

INPUT "0pis problema: ", e$

OPEN "problem.txt" FOR APPEND AS #1

WRITE #1, a$

WRITE #1, b$

WRITE #1, c$

WRITE #1, d$

WRITE #1, e$

WRITE #1, "---"

PRINT "Vas problem je zapisan u bazu podataka! Hvala na strpljenju!"

CLOSE #1

END

Ovaj ''---'' je razdvojnik izmedju 2 korisnika, podatka, kako god, inace izgledaju spojeni

Kad upisem 2 korisnika (ili vise), to izgleda ovako:

"Marko Markic"

"16.12.2011"

"Mozebitna 12"

"01315315"

"Problem taj i taj..."

"---"

"Narko Narkic"

"17.12.2011"

"Ulica 15"

"01515141"

"Problem ovaj i ovaj..."

"---"

Moze li se kako napraviti da ne stavlja ove navodnike na ''---''

Ako ne moze, nema veze, samo pitam iz znatizelje.

nije mi qb pri ruci, pa evo jedan link s dovoljno primjera.

U primjerima je uvjek samo taj konkretan kod, u radu je open-save samo jedan mali dio nekog porgrama, izdvojen kao rutina.

Kreni od tog, definiraju sub za pisanje i čitanje podataka. Funkciji treba prosljediti varijable, uobičajeno call nešto (a,b,c, ..). Uobičajeno u nekoj petlji, za čitanje svih podataka može do-loop until EOF. (BOF/EOF = Begining/End of file)

-uvjek treba koristiti komplementaran način, tj moraš znati kakav tip podatka zapisuješ, kako ga tumačiti ili konvertirati (npt string u broj), kao i strukturu baze. Korištenjem Random pristupa, možeš čitati ili pisati-prepisati odreženi slog, ili npr tražiti sve prijave od neke osobe, ili po datumu itd. (to je početak relacijskih baza). Recimo, tad za neko usobu, koja je prijavila kvar određenog datuma, napraviš prtetraživanje ime =neko ime, datum =datum, imaš taj unos (slog), u polje koje može biti definirano kao status prijave, napisati u radu, rješeno ili nešto treće. Daleko korisnije nego samo sekvencionalni podatci, samo treba predvidjeti potrebna polja.

Pošto si podatke snimao naredbom write, automatski im je dodan navodnik, ako koristiš npr put-get, tad treba imati i odgovarajuće varijable (ili sve tretirati kao string, pa konverziju raditi kod dodjeljivanja varijablama). U ovom primaljeru su svi podatci kao string (datum se lako konvertira ako zatreba), ali u radu su često i ostali tipovi (brojčane vrijednosti, kao cijena, količina..) pošto s tim vrijednostima obično moraš vršiti neke operacije one moraju biti i deklarirane kao broj, npr double.

Za podatke je praktično korištenje type-a, definiraj strukturu podatka. Dimenzioniraš i koristiš za unos, snimanje i sve operacije u programu.

Razlog zašto nije pročitao (ili samo ispisao?) posljenje podatke? - nepoznat, zato koristi debuger, step, pause... i testiraj varijable u debugeru da vidiš što se dešava.

- uvjek kod vanjskih operacija moraš imati errorhandler, za početak je dovoljno on error goto labela gdje obaviš testiranje greške i vratiš ili prekineš program, resume 0, resume.. itd..