您所在位置：主题：[讨论]写的一个省空间的代码,大家给看看
jyf1987
[专家分：930] 发布于 2005-10-04 13:16:00
SUB jfile (a(), name$, b)
OPEN name$ FOR BINARY AS #20
IF b = 1 THEN
FOR i = UBOUND(a) TO LBOUND(a)
PUT #20, , a(i)
SEEK #1, SEEK(20) - 1
NEXT i
ELSEIF b = 2 THEN
FOR i = 1 TO INT((LBOUND(a) - UBOUND(a)) / 2)
GET #20, , t
a(i * 2 - 1) = t \ 256: a(i * 2) = t - a(i * 2 - 1)
NEXT i
ELSE
PRINT "file open error! type error!"
END IF
END SUB
b为打开方式,为1为写入,为2时为读取
这个模块适合保存小于小于256的整数,空间超省,比2进制还省1倍
_________________
OPEN name$ FOR BINARY AS #20
IF b = 1 THEN
FOR i = UBOUND(a) TO LBOUND(a)
PUT #20, , a(i)
SEEK #1, SEEK(20) - 1
NEXT i
ELSEIF b = 2 THEN
FOR i = 1 TO INT((LBOUND(a) - UBOUND(a)) / 2)
GET #20, , t
a(i * 2 - 1) = t \ 256: a(i * 2) = t - a(i * 2 - 1)
NEXT i
ELSE
PRINT "file open error! type error!"
END IF
END SUB
b为打开方式,为1为写入,为2时为读取
这个模块适合保存小于小于256的整数,空间超省,比2进制还省1倍
_________________
