|
wang6610
银牌会员
积分 1246
发帖 488
注册 2003-11-11
状态 离线
|
『楼 主』:
[求助]那位兄弟给段原码！！
任务是：
文本a.txt文件共50000字节，把其中第3002字节改为A、3003字节改为F、3004字节改为G、3008字节改为H，字符均半角。其他字符不变。
谢谢各位帮忙！！！
|
|
 2005-8-16 14:25 |
|
|
wang6610
银牌会员
积分 1246
发帖 488
注册 2003-11-11
状态 离线
|
『第
2 楼』:
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
请兄弟们帮忙！！！
|
|
|
2005-8-16 14:32 |
|
|
JonePeng
金牌会员
Ｄ◎＄ Ｆαп
积分 4562
发帖 1883
注册 2004-1-19
来自 广东广州
状态 离线
|
『第
3 楼』:
试试将第一行改为二进制方式：
OPEN "A.TXT" FOR BINARY AS #1
|
－－－－＝＝＝＝≡≡≡≡ 我的至爱，永远是MSDOS！≡≡≡≡＝＝＝＝－－－－
 |
|
|
2005-8-16 22:10 |
|
|
本是
银牌会员
积分 2201
发帖 789
注册 2005-1-27
状态 离线
|
『第
4 楼』:
你定义变量类型或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 ]
|
my major is english----my love is dos----my teacher is the buddha----my friends--how about U |
|
|
2005-10-24 13:17 |
|
|
