Computer Science Canada :: View topic - Saving and Loading files.

Computer Science Canada

Saving and Loading files.

Author:

TheLastFall [ Tue Oct 17, 2006 8:34 am ]

Post subject:

Saving and Loading files.

Ok, I want to have a Score list but I don't know how to import a file and save the scores. I'd also like to know how to save initials of the person to the scores list also but I pretty sure I can do that if I can just figure out how to save the scores. Can anyone please help me? It would be much appreciated. Is it anything like:

code:

import: 'scores'

I actually have no clue how it would look, that is kind of a guess.[/code]

Author:	Dan [ Tue Oct 17, 2006 11:08 am ]
Post subject:
We have serval tutorals on using files in turing. Here are a few: File I/O: http://www.compsci.ca/v2/viewtopic.php?t=12972 High Score List: http://www.compsci.ca/v2/viewtopic.php?t=5340 Learn how to use File IO - easy!: http://www.compsci.ca/v2/viewtopic.php?t=6818 I sugest using the sreach fuction of the site if you need help on a topic that could have a tutoral for it. Also the import fuction is for importing code not noraml files.

Author:

TheLastFall [ Wed Oct 18, 2006 7:33 am ]

Post subject:

Yea, about that. I am what a lot of people call, even myself an idiot. I do not understand what I'm doing with the 'Hi Scores' link, or the other two. All I want to do is just save a score with the persons name, like so:

code:

Score: Name:

1000 Ass

That is all. It doesn't seem hard at all but I just don't understand how to save to the file and load it at the end of the program. So everyone could see the past scores that were made. A pretty simple procedure for those who have done importing and exporting in the past. It's just I kind of need things described to me specifically. I'm a moron so please can you make it clear.[/code]

Author:	TheLastFall [ Wed Oct 18, 2006 7:36 am ]
Post subject:
I also forgot to mention, there are tons of spelling mistakes in the 'Hi Score' link. I don't know about other people but I found that really distracting.

Author:	Tony [ Wed Oct 18, 2006 8:03 am ]
Post subject:
alright, lets take it one step at a time. Are you able to follow the File I/O tutorial and read/write _any_ text from/to a file? Doesn't have to be highscore, just a name. If not, what part are you having problems understanding?

Author:	TheLastFall [ Wed Oct 18, 2006 11:23 am ]
Post subject:
I can't say I do, it's really confusing.

Author:	TheLastFall [ Wed Oct 18, 2006 11:25 am ]
Post subject:
Well I understand the loading the text file part but then the rest just kind of doesn't make any sense.

Author:

Tony [ Wed Oct 18, 2006 11:58 am ]

Post subject:

ok, so you've loaded a file as stream

now it's the same as console based put/get

code:

put : stream, "write to file"
get : stream, readVariable

does that make sense so far?

Author:	TheLastFall [ Wed Oct 18, 2006 5:07 pm ]
Post subject:
Yes, that makes a lot of sense. Also my score interger is tm is it any problem because it's an interger?

Author:

TheLastFall [ Thu Oct 19, 2006 11:46 am ]

Post subject:

Ok, I have to score being saved to txt. Just theres a little problem, ever time I enter my intials and new score it replaces the last one. Is there anything I can do? Also, I want it to say Enter Your Initials: and have it visible at a certain point and a certain size. This is what I have

code:

drawfillbox (0, 0, maxx, maxy, 255)
Font.Draw ("Game Over", maxx div 2 - 400, maxy div 2 - 25, font, 119)
Font.Draw ("Enter Your Initials ", maxx div 2 - 200, maxy div 2 - 75, font1, 122)
colorback (255)
color (122)
get name
put : stream, name, " ", tm

I would like to know how to make it so they can't type past three characters. I can get the name with no problem, but I can't see what I typed because its black and the size of what I typed is about the 12 sized font on MSoft Word. I there any way to have it so that the entering intials will be the same size as the Enter Your Initials font and have it produced right after the text? I know there is a simple way but I'm just blinded right now.
Basically my txt file looks like this:

Ass 283

But I want it more like:

Initials: Score:
Ass 283
Rox 592

and so on.
I want the intial part to look like:

Game Over
Enter Your Initials {Ass}

I can easily figure out how to load up the screen of the scores.

Author:

neufelni [ Thu Oct 19, 2006 4:15 pm ]

Post subject:

TheLastFall wrote:

Ok, I have to score being saved to txt. Just theres a little problem, ever time I enter my intials and new score it replaces the last one. Is there anything I can do?

You need to use seek in order to add the new scores to the end of the file. Just add the word seek to your open file statement. Like this:

code:

open : stream, "highscores.txt", get, put, seek

And then when you want to put your highscores to the end of the file, add this line before you you use the put statement to put the scores in the file:

code:

seek : stream, *

The seek command makes it so that the next output will begin at the specified position in the file. The * makes it so that position is at the end of the file.

TheLastFall wrote:

Also, I want it to say Enter Your Initials: and have it visible at a certain point and a certain size. This is what I have

code:

I explained how to get input from the user with Font.Draw in another thread. Here it is:

Nick wrote:

If you want to get input using Font.Draw, it is a bit more complicated. You have to get one letter at a time using a loop.

code:

View.Set ("noecho, nocursor") % this makes it so that you can't see the user's input in the normal font.

var letter : string (1)
var fullword : string := ""
var font : int := Font.New ("Arial:12")

loop
getch (letter)
cls
exit when letter = (KEY_ENTER)
if letter = (KEY_BACKSPACE) and length (fullword) > 0 then
fullword := fullword (1 .. length (fullword) - 1)
else
fullword := fullword + letter
end if
Font.Draw (fullword, 10, 10, font, 7)
end loop

And to get it so that the user can only enter three characters, just add an if statement to my program above so that length(initials) has to be <= 3.

Author:	TheLastFall [ Thu Oct 19, 2006 4:35 pm ]
Post subject:
That will help a lot, thank you.

Author:

TheLastFall [ Fri Oct 20, 2006 8:26 am ]

Post subject:

Ok, it doesn't really work all that good. First of all, the

code:

open : stream, "score.txt", get, put, seek
seek : stream, *
put : stream, fullword, " ------ ", tm

is not working, it just ends up replacing the text that was set before.

The Font.Draw isn't working properly.

code:

var letter : string (1)
var fullword : string := ""
for i : 1 .. 3
getch (letter)
exit when letter = (KEY_ENTER)
if letter = (KEY_BACKSPACE) and length (fullword) > 0 then
fullword := fullword (1 .. length (fullword) - 1)
else
fullword := fullword + letter
end if
Font.Draw (fullword, maxx div 2 + 75, maxy div 2 - 125, font4, 117)
end for

That is what I have. I want the name/initials to be visable while being inputed while the Enter your initials is also on the screen. It just won't appear. I'd have to enter my intials and then the Enter your initials would appear.

Author:

neufelni [ Fri Oct 20, 2006 10:07 am ]

Post subject:

Sorry about that. I figured out what's wrong. All you have to do is add the word mod to the end of your open stream statement, along with put, get, and seek.

And for the Font.Draw, you don't want to make the loop a for loop from 1 - 3. If you do this them the user won't be able to backspace and change it if he makes a mistake. All that you want to do is add another if statement in the else branch of the already existing if statement. Here is the code, and this time I believe everything is working fine:

code:

View.Set ("noecho, nocursor") % this makes it so that you can't see the user's input in the normal font.

var stream : int
var letter : string (1)
var fullword : string := ""
var font : int := Font.New ("Arial:12")
var tm : int := 3

open : stream, "score.txt", get, put, seek, mod

Font.Draw ("Enter your Initials: ", 10, 10, font, 7)

loop
getch (letter)
cls
exit when letter = (KEY_ENTER)
if letter = (KEY_BACKSPACE) and length (fullword) > 0 then
fullword := fullword (1 .. length (fullword) - 1)
else
if length (fullword) < 3 then
fullword := fullword + letter
end if
end if
Font.Draw ("Enter your Initials: ", 10, 10, font, 7)
Font.Draw (fullword, 140, 10, font, 7)
end loop

seek : stream, *
put : stream, fullword, " ------ ", tm

Freakman just posted a function for getting input from the user with Font.Draw. You should check it out, as it is better than mine.
http://www.compsci.ca/v2/viewtopic.php?t=13777

Author:	Clayton [ Fri Oct 20, 2006 12:53 pm ]
Post subject:
Did you really read all of those tutorials thouroghly? All of the questions you have asked so far have been in there (except for the mod question). Read more carefully next time Another thing you can do to get and display in font is use the function i published to do that (its a better idea to compartmentalize your code) and is done almost exactly the same way as your method above.

Author:

TheLastFall [ Fri Oct 20, 2006 1:44 pm ]

Post subject:

Yea I read them just nothing processes. I do have a problem still with the Draw.Font the text

code:

Font.Draw ("Enter your initials: ", 10, 10, font, 7)

Will not display until after the intials have been typed and it will not show the initials while the player is typing it. Saving the scores isn't hard at all, thats done and out of the way. Just it will be waiting for input once the game ends and you have to type in the initials then while nothing is visable on the screen. The Enter your initials: will not be displayed while you type in your initials. I looked at the link I tested out the code, it did the exact same thing.

Author:

neufelni [ Fri Oct 20, 2006 1:59 pm ]

Post subject:

Did you read my last post on the previous page. The code I posted displays Enter your initials: before and while the user inputs their initials. If you want to use Freakman's function then you just have to add this line:

code:

Font.Draw("Enter your name: ", 0, 0, font, 7)

into the function before the loop and right before the Font.Draw statement in the loop.

Author:

TheLastFall [ Fri Oct 20, 2006 2:07 pm ]

Post subject:

Ok, it does work I just didn't read it correctly but there is one thing about Freakmans code, there is no backspace.

code:

function gets (xpos, ypos, font, clr : int) : string
var a : string (1)
var word : string := ""
loop
getch (a)
exit when a = '\n'
if word ~= "" and ord (a) < 3 then
word := word (1 .. * -1)
Font.Draw (a + "" + a, xpos, ypos, font, clr)
else
if a = (KEY_BACKSPACE) and length (word) > 0 then
word := word (1 .. length (word) - 1)
a := a (1 .. length (a) - 1)
end if
if a ~= "\b" then
word += a
end if
end if
Font.Draw (word, xpos, ypos, font, clr)
end loop
result word
end gets

var name : string := ""
put "Please enter your name"
name := gets (maxx div 2, maxy div 2, Font.New ("serif:30"), red)

That works perfectly it shows up and everything, just one slight problem, I can't erase if I mess up while typing the program. I tried to take the formula that had been posted before but it doesn't work. All it does is just goes back to the position that it was before but it doesn't delete the previously typed letter. I'm quiet sure if I add a cls into the code it will also get rid of the previous letters typed. Would I have to have it a drawfillbox to erase it? Thats the only way I actually see it able to work.

Author:

TheLastFall [ Fri Oct 20, 2006 2:08 pm ]

Post subject:

Sorry I messed up entering some of the code on the last post, here it is:

code:

var chars : array char of boolean

Input.KeyDown (chars)
function gets (xpos, ypos, font, clr : int) : string
var a : string (1)
var word : string := ""
loop
getch (a)
exit when a = '\n'
if word ~= "" and ord (a) < 3 then
word := word (1 .. * -1)
Font.Draw (a + "" + a, xpos, ypos, font, clr)
else
if a = (KEY_BACKSPACE) and length (word) > 0 then
word := word (1 .. length (word) - 1)
a := a (1 .. length (a) - 1)
end if
if a ~= "\b" then
word += a
end if
if chars (KEY_BACKSPACE) then
word += a
end if
end if
Font.Draw (word, xpos, ypos, font, clr)
end loop
result word
end gets

Author:

neufelni [ Fri Oct 20, 2006 2:17 pm ]

Post subject:

Yes, Freakman's function does have backspace. This part of Freakman's function:

code:

if word ~= "" and ord (a) < 3 then
word := word (1 .. * -1)

does the same thing as this from my code:

code:

if letter = (KEY_BACKSPACE) and length (fullword) > 0 then
fullword := fullword (1 .. length (fullword) - 1)

So you don't need to add my if statement for backspace into his function.

Author:

TheLastFall [ Fri Oct 20, 2006 2:30 pm ]

Post subject:

This probably will be the last question. I tried the code to only have three letters but it didn't work. Where would I have to add it into this code?

code:

setscreen ("graphics:max;max,Title:Font Test")

View.Set ("noecho, nocursor")
var chars : array char of boolean
var font1 : int := Font.New ("serif:30")
Input.KeyDown (chars)
drawfillbox (0, 0, maxx, maxy, 255)
function gets (xpos, ypos, font, clr : int) : string
var a : string (1)
var word : string := ""
loop
View.Update
getch (a)
exit when a = '\n'
if a = (KEY_BACKSPACE) and length (word) > 0 then
word := word (1 .. length (word) - 1)
a := a (1 .. length (a) - 1)
cls
drawfillbox (0, 0, maxx, maxy, 255)
Font.Draw ("Enter your initials: ", maxx div 2 - 200, maxy div 2 - 75, font1, 117)
Font.Draw (a + "" + a, xpos, ypos, font, clr)
else
if a ~= "\b" then
word += a
end if
if length (word) < 3 then
word := word
end if
end if
Font.Draw (word, xpos, ypos, font, clr)
setscreen ("offscreenonly")
end loop
result word
end gets
var name : string := ""
Font.Draw ("Enter your initials: ", maxx div 2 - 200, maxy div 2 - 75, font1, 117)
name := gets (maxx div 2 + 125, maxy div 2 - 75, font1, 117)

Author:

neufelni [ Fri Oct 20, 2006 3:31 pm ]

Post subject:

Rather than putting it in an if statement all by itself, just add it to the if a ~= "\b" statement using and. Here is the fixed code. I also changed some other things. You don't need to draw a black fill box to make the background black. Rather you can use the colorback command. Also you can put all of your setscreen and View.Set stuff into 1 View.Set statement. Here is your code with all those changes.

code:

View.Set ("graphics:max;max,Title:Font Test, noecho, nocursor, offscreenonly")
colorback(black)
cls

var chars : array char of boolean
var font1 : int := Font.New ("serif:30")
Input.KeyDown (chars)
function gets (xpos, ypos, font, clr : int) : string
var a : string (1)
var word : string := ""
loop
View.Update
getch (a)
exit when a = '\n'
if a = (KEY_BACKSPACE) and length (word) > 0 then
word := word (1 .. length (word) - 1)
a := a (1 .. length (a) - 1)
cls
Font.Draw ("Enter your initials: ", maxx div 2 - 200, maxy div 2 - 75, font1, 117)
Font.Draw (a + "" + a, xpos, ypos, font, clr)
else
if a ~= "\b" and length(word) < 3 then
word += a
end if
end if
Font.Draw (word, xpos, ypos, font, clr)
end loop
result word
end gets
var name : string := ""
Font.Draw ("Enter your initials: ", maxx div 2 - 200, maxy div 2 - 75, font1, 117)
name := gets (maxx div 2 + 125, maxy div 2 - 75, font1, 117)

Author:	TheLastFall [ Fri Oct 20, 2006 4:47 pm ]
Post subject:
Ok, this will be the last question, I've got everything down. Is there anyway to save the text to a certain file, no matter where the file is located? I'm planning to put it in a folder at school so everyone can access the game, but I'd like all the scores to be situated in one folder, the folder is linked to everyones file. Is there a way they can play the game from their computers and the scores be all saved to one location?

Author:	TheLastFall [ Fri Oct 20, 2006 4:58 pm ]
Post subject:
Ok, I'm pretty sure I figured out how to do it. I just had the dashes going the wrong way. Ironically I can't wait till monday. Thank you guys a lot for all the help. The only things I'm going to do now is just make the game a bit harder, maybe have a retry option. Well thanks again for all your help, if you want to see what the game looks like (It's really corny) just message me or something. Well thanks for your help.

Author:	neufelni [ Fri Oct 20, 2006 5:33 pm ]
Post subject:
Why not post it inTuring Source Code so that everyone can see.

Author:	TheLastFall [ Fri Oct 20, 2006 5:47 pm ]
Post subject:
I'll do that... later.

Author:	Clayton [ Fri Oct 20, 2006 5:55 pm ]
Post subject:
how about instead of modifying my function, you actually modify the code outside of it. when you modify a function like that, you narrow its scope dramatically. just have some sort of segment of code in your main line (or wherever you happen to "get" the three letter string from) instead of modifying the function. That way, you can use gets for all sorts of things instead of just getting a three letter string. the whole point i am trying to make is that you want to make a program as dynamic as possible, and by limiting what can be entered can sometimes lessen that ability for dynamic functionality

Author:

TheLastFall [ Fri Oct 20, 2006 6:31 pm ]

Post subject:

Ok well, quick question I'm making another program so I can access the scores file, its all good just something about it annoys me.
The code is:

code:

setscreen ("graphics:max,max;Title: Scores")
drawfillbox (0, 0, maxx, maxy, 255)
colourback (255)
color (119)
var stream : int
var total : string := ""
open : stream, "score.txt", read
read : stream, total
put total

Just I'm getting a box at the end of each line or string.
the out come looks like this:

Name: Score:[]
ABC --------- 123[]
ABC --------- 435[]

Is there any way of getting rid of the boxes?
I'm also going to want the scores reapeat once it gets the the bottom of the screen. I mean well after a whole bunch of people put in their scores the top ones won't be visable. I'd really like to have scroll bars but it seems way to complex or I'd have it go to the bottom of the screen and just appear at the top a few spaces over.

Author:	TheLastFall [ Mon Oct 23, 2006 7:43 am ]
Post subject:
Is there any possible way that I can make the file so that they can only write the score to it and not be able to change the scores? I know about hidden files and everything but that function is disabled on the school computers. Is there any programming way to hide the file?

Author:	Clayton [ Mon Oct 23, 2006 12:18 pm ]
Post subject:
your best bet is to encrypt your file and keep your encryption method to yourself... google encryption to see what you come up with, and search the forums, there have been many questions about encryption and you should be able to glean enough information to get you started if you research it enough.

You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy