2 wlkstc wlkstc 于 2014.11.19 01:41 提问

VB如何用二进制打开一个jpg 文件存到一个数组,每次存256循环存完。

硬盘已经有文件,
Dim fileName As String ’定义了文件路径
Dim plainText() As Byte’用来存放照片二进制数据文件的数组

Open fileName For Binary As 1#’我已经写了用二进制打开文件

'现在循环就不知道怎么写了,想每次存256个字节到plainText()数组一直循环到整个照片全部存入数组。
For i=1 To FileLen(fileName)’但是这个是每次多一个,我要的是每次256的 求助啊
for i*256 =1 to ileLen(fileName)' 这样提示语句错误

拜托了

2个回答

caozhy
caozhy   Ds   Rxr 2014.11.19 04:21
已采纳

For i=1 To FileLen(fileName) Step 256
For j = i To i + 256
这样就可以了。

wlkstc
wlkstc 老大 我错了 不是只读256次,是一次只读256个字节啊
接近 3 年之前 回复
Topc008
Topc008   Rxr 2014.11.19 08:43

一次性读到plainText()数组里不好吗?为什么每次只读256个而且还是存到相同的数组里?

一次读256个字节:
Dim plainText(255) As Byte’
For i=1 To FileLen(fileName) step 256
get #1,i,plaintext''每次只读256个字节
''再从plaintext()转储到其它数组里?
next

wlkstc
wlkstc 是我要完成老师作业做一个加密的程序,把数据256位做一个块 加密算 最后组合输出用
接近 3 年之前 回复
Csdn user default icon
上传中...
上传图片
插入图片