中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-10-31 18:51 		共 47,815 主题排行 / 349,930 发帖 / 今日 0 篇 / 48,290 会员排行
DOS开发编程 & 发展交流 （开发室） » [求助]那位兄弟给段原码！！
可打印版本 　1,168 / 3
第1楼　wang6610 发表于 2005-08-16 14:25
银牌会员　发帖 488　积分 1,246
[求助]那位兄弟给段原码！！
任务是：
文本a.txt文件共50000字节，把其中第3002字节改为A、3003字节改为F、3004字节改为G、3008字节改为H，字符均半角。其他字符不变。

谢谢各位帮忙！！！
第2楼　wang6610 发表于 2005-08-16 14:32
银牌会员　发帖 488　积分 1,246
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


以上这段原码只能把301、302、303、304字节替换为ASCII码为00的空（null），而不是想要的A、F、G、H

请兄弟们帮忙！！！
第3楼　JonePeng 发表于 2005-08-16 22:10
金牌会员　发帖 1,883　积分 4,562　来自 广东广州
试试将第一行改为二进制方式：
OPEN "A.TXT" FOR BINARY AS #1
第4楼　本是 发表于 2005-10-24 13:17
银牌会员　发帖 790　积分 2,227
你定义变量类型或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

[ Last edited by 本是 on 2005-10-24 at 13:24 ]
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023