- 注册时间
- 2005-10-5
- 最后登录
- 1970-1-1
|
发表于 2006-3-25 20:49:00
|
显示全部楼层
来贴一个吧。(红色为重点!!蓝色为解释不用输入进代码)
10 DIM A(1600):OPEN "XXX.DAT" FOR RANDOM AS #1 LEN=1 "DIM A(1600)非常重要,系统默认为10,要自己定义一下,否则会出错" "XXX.DAT为你的源图片数据,不同情况名字不同"
20 FIELD #1,1 AS E$
30 FOR B=1 TO 1600
40 GET #1,B:A(B)=ASC(E$)
50 NEXT:CLOSE #1 "到这里已经把图片数据读取好了,下面就是要储存到你要的DAT文件里去了"
60 OPEN "DAT.DAT" FOR RANDOM AS #1 LEN=1 "DAT.DAT为你的DAT文件用来储存图片数据,不同情况名字不同"
70 FIELD #1,1 AS F$
80 FOR C=1 TO 1600 STEP 1
90 LSET F$=MKI$(A(C)):PUT #1,C "注意,这里的C为你要储存的数据地址,如果从第一个地址开始就为C,从第100个数据开始就是C+100,但要确保前100位已经有了数据~"
100 NEXT:CLOSE #1
110 LOCATE 1,1RINT "OK!" "好了,现在已经储存好数据了"
|
|