Dim MyChar As Byte
File1.Open strfile, fsModeBinary, fsAccessReadFor i = 1 To 24
mychar= File1.input(1)
Next i读一般数据没问题
当读到 C7 98 时,二进制文件中存放的是"菢"
他一次将全部汉字都读出来,应该是读半个,结果有误,请指教。
File1.Open strfile, fsModeBinary, fsAccessReadFor i = 1 To 24
mychar= File1.input(1)
Next i读一般数据没问题
当读到 C7 98 时,二进制文件中存放的是"菢"
他一次将全部汉字都读出来,应该是读半个,结果有误,请指教。
一个汉字本该作为两个字节,QB就是这么办的。可VB非得当作一个字节。恨死Microsoft了。
=======================
错
是一个字符从VB4开始,VB的String是基于UNICode字符集,一个字符两字节
Dim arrFile() As Byte
Open FileName For Binary As #1
FileLen = LOF(1) '获取文件长度字节数
ReDim arrFile(1 To FileLen) As Byte
Get 1, , arrFile '将文件一次性读入数组
Close #1