Prity easy, but cant figure it out!

[styxx]

Alright I have been trying to make this work but it does'nt seem to want to... its a simply phone book with a file called direct.t (with a bunch of names & numbers) that it opens and reads. Then once you type in the name of the person it should output the name & number but it doesnt work.

code:

const maxEntries := 50 var name : array 1 .. maxEntries of string (20) var phoneNumber : array 1 .. maxEntries of string (8) var count : int := 0 var directory : int open : directory, "direct.t", get loop     get : directory, skip     exit when eof (directory)     count := count + 1     assert count <= maxEntries     get : directory, name (count) : 20,         phoneNumber (count) : 8 end loop close : directory put "There are ", count, " entries in the directory" var friend : string loop     put "Enter friend's name:" ..     exit when eof     get friend : *     if length (friend) < 20 then         friend := friend + repeat (" ", 20 - length (friend))     end if     var place : int := 0     for i : 1 .. count         if name (i) = friend then             place := i             exit         end if     end for     if place not= 0 then         put "Phone number is ", phoneNumber (place)     else         put "Not in the list"     end if end loop

thanks in advance!

[Token]

its because the file with the names and numbers isnt there, so put this in front of your code but after your variables

code:

if not File.Exists ("direct.t") then %%%checks to see if the file is there     open : directory, "direct.t", put%%opens/creates the file     close : directory end if

you have to check and not just create it incase you already had a list it would overwrite it.

[styxx]

Changed it and still does'nt work ... any other ideas?

[Token]

well i didnt realise that was the problem, what you have to do it make a record, that would look like this

code:

type phonerecord :     record         name : string         phoneNumber : string     end record

then make that record into an array.

code:

var entry : array 1 .. maxEntries of phonerecord

okay so now you read from the file and assign the name and number accordingly

code:

entry (i).name:=     entry(i). phoneNumber:=

then what you do is get the name you want to search for and cyce through the array searching to see

code:

for i:1.. (number of entries)     if entry (i).name = friend then         put     entry (i).name :20,    entry(i). phoneNumber :7     end if end for

and there you have it!
hope it helps


i was thinking about making a tutorial for databases and searching through databases...

BTW. styx kicks ass (the band that is)