Dim MyChar As Byte
File1.Open strfile, fsModeBinary, fsAccessReadFor i = 1 To 24
mychar= File1.input(1)
Next i读一般数据没问题
当读到 C7 98 时,二进制文件中存放的是"菢"
他一次将全部汉字都读出来,应该是读半个,结果有误,请指教。 

解决方案 »

  1.   


    一个汉字本该作为两个字节,QB就是这么办的。可VB非得当作一个字节。恨死Microsoft了。
      

  2.   

    可VB非得当作一个字节
    =======================

    是一个字符从VB4开始,VB的String是基于UNICode字符集,一个字符两字节
      

  3.   

    Dim FileLen As Long
      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
      

  4.   

    楼上的是不是有问题呀?EVB里面能用open吗?