易码技术论坛

 找回密码
 加入易码
搜索
查看: 173089|回复: 3

[求助]关于random

[复制链接]
发表于 2005-3-19 19:34:00 | 显示全部楼层
对不起,在下实在是失职~
GVB储存和读取随机文件在帮助中有介绍,就是那个OPEN函数,而且有例子,您先看看(毕竟自己悟出来的要久记),如果实在不懂,在跟贴问~~
还有就是多翻以前的帖子会很有收获的,这是咱们菜鸟的必经之路(说严重了,呵呵)
发表于 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


谷虫:偶寄居一下....写的不错哦.....


发表于 2005-4-8 11:14:00 | 显示全部楼层
2个END之上的文字是在2个文件中运行的。别放在1个文件中了!
[em04]
 楼主| 发表于 2005-3-19 17:39:40 | 显示全部楼层 |阅读模式
在gvbasic中,怎么储存和读取随机文件?


求救高手
您需要登录后才可以回帖 登录 | 加入易码

本版积分规则

Archiver|手机版|小黑屋|EMAX Studio

GMT+8, 2024-5-6 08:51 , Processed in 0.009619 second(s), 19 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表