Message base with QBasic

Yes, using a record structure.

TYPE myRecord
name AS STRING * 20
age AS INTEGER
sex AS STRING * 1
END TYPE

DIM r AS myRecord

;Writing
r.name = "Jeff"
r.age = 30
r.sex = "m"

OPEN "file.txt" FOR RANDOM AS #1
PUT #1, <record_number>, r ;not providing a record number increments the file pointer automatically. Although, one should be provided if able.
CLOSE #1

;Reading
OPEN "file.txt" FOR RANDOM AS #1
GET #1, <record_number>, r ;not providing a record number increments the file pointer automatically. Although, one should be provided if able.
CLOSE #1

PRINT "name: ", r.name
PRINT "age: ", r.age
PRINT "sex: ", r.sex

-Geates

Geates,

Would this code delete the oldest message once the messages past #30 in count?

AS far as the writing, at the top set current record cr=1

whenever you put a record (put #1,cr)increment the current record cr=cr+1
if cr=31 then make cr=1

this is a rotating storage, once the queue is filled the oldest scrolls off on next put

Nothing mentioned yet of how you want to read the messages, either bulk or singly.

Ed Fair
Give the wrong symptoms, get the wrong solutions.

To calculate number of records (cr - 1), you divide the Length Of File "file.txt" (LOF(<file_number>) = LOF(1)) by the length of myRecord (20 bytes + 2 bytes + 1 byte = 23 bytes).


-Geates

PS. I haven't programmed in qbasic for at least 5 years so there may be mistakes.

Arg! I wish posts could be edited!

numRecords = LOF(1) / LEN(myRecord)

-Geates

In the ones I did long ago I didn't worry about variable length, I used the default record length. I did a get as the first part of the write program to insure a full overwrite.

May have Q mixed up with GW but recall LSET as the transfer method.

Ed Fair
Give the wrong symptoms, get the wrong solutions.