- 注册时间
- 2005-3-18
- 最后登录
- 1970-1-1
|
发表于 2005-4-8 11:09:00
|
显示全部楼层
open "x" for random as #1 len=20 //20=5+11+4.我的文曲星为NC2600C,好象LEN要不大于128
field #1,5 as a$,11 as b$,4 as c$
lset a$="abcde":lset b$="fghi":lset c$="jhjgfhh" //b$的少于11,余下的自动取空格,C$的多于4个字节,只取4个
put #1,1 //后一个1是指记录号,应按顺序来.不能没有1号记录就直接写入2 号中.若以前有1号,则覆盖.文件总共的记录号为EOF(1)/(LEN)(LEN应取具体的数值,与第1行的LEN 有关)
END
open "x" for random as #1 len=20
field #1,5 as a$,11 as b$,4 as c$
GET #1,1
PRINT A$:C=ASC(INKEY$)
PRINT B$:C=ASC(INKEY$)
PRINT C$:C=ASC(INKEY$)
END
谷虫:偶寄居一下....写的不错哦.....
|
|