谢谢各位帮忙!!!作者: wang6610 时间: 2005-8-16 14:32 OPEN "A.TXT" FOR RANDOM AS #1 LEN = 1
FIELD #1, 1 AS A$
A$ = "A"
PUT 1, 3002
A$ = "F"
PUT 1, 3003
A$ = "G"
PUT 1, 3004
A$ = "H"
PUT 1, 3008
CLOSE #1
请兄弟们帮忙!!!作者: JonePeng 时间: 2005-8-16 22:10 试试将第一行改为二进制方式:
OPEN "A.TXT" FOR BINARY AS #1作者: 本是 时间: 2005-10-24 13:17 你定义变量类型或TYPE后,就可以了。修改如下,运行结果如愿!
DIM myData AS STRING * 1
OPEN "A.TXT" FOR RANDOM AS #1 LEN = 1
myData = "A"
PUT 1, 3002, myData
myData = "F"
PUT 1, 3003, myData
myData = "G"
PUT 1, 3004, myData
myData = "H"
PUT 1, 3008, myData
CLOSE #1
END
如果用JONEPENG的方法,还要作些修改:
OPEN "A.TXT" FOR BINARY AS #1
a$ = "A"
PUT 1, 3002, a$
a$ = "F"
PUT 1, 3003, a$
a$ = "G"
PUT 1, 3004, a$
a$ = "H"
PUT 1, 3008, a$
CLOSE #1
END