请问vb如何以二进制形式读取一个字节到一个变量中?

Posted 2023-05-02

如果要循环的读取一个字节直到文件结束该如何写代码？

参考技术A 一次以二进制形式读读512字节，放窗体或RichTextBox以16进制字符显示：
Option Explicit
Dim a As Byte
Dim aa As String
Dim bb As String
Dim i As Integer
Dim nw As Long

Private Sub Command1_Click()
CommonDialog1.ShowOpen
End Sub

Private Sub Command2_Click()
Dim a(255) As Byte
Dim i As Integer
Open "c:\binvary\TESTFILE" For Binary As #1
'Open "TESTFILE" For Binary As #1
For i = 0 To 255
a(i) = i
Put #1, i + 1, a(i)
Next i
Close
End Sub

Private Sub Command4_Click()
Cls
Text2 = ""
bb = ""
Open CommonDialog1.FileName For Binary As #1
For i = 1 + nw To 512 + nw
nw = Seek(1)
Get #1, i, a
Text1 = a
Text1 = a
aa = Right$(Hex(a), 2)
If Len(aa) = 1 Then
aa = "0" & aa
End If
bb = bb & aa & " "

RichTextBox1 = bb
If i Mod 16 = 0 Then
Print aa
Text2 = Text2 & aa
Else
Print aa; " ";
Text2 = Text2 & aa & " "
End If
Text1 = nw
Next
Close #1
End Sub 参考技术B dim tmp as byte
Open "c:\1.dat" For Binary As #1
Get #1, 1, tmp
close #1

把c:\1.dat中的第1个字节读取出来放到Tmp中本回答被提问者采纳 参考技术C 这个和line input差不多吧？多次运行自动读取下一个。

用C++写的二进制文件，用JAVA怎么读取?

有两个变量 ：int a =10; long b = 1000000l;

用C++ 将 a,b的值同时以字节形式依次写入文件，此时a占2个字节，b占4个字节;

请问用JAVA怎么读取该文件才能正确取得a,b的值?主要因为JAVA,C++中a,b占的字节大小不一样，该怎么处理？

用FileInputStream读取文件，然后BufferedInputStream来装流，最后用read方法读出字节数组用<<位移运算组合轻松完成你要的变量读取，short2字节，int4字节，long 8字节，相信你应该知道怎么做了，记得文件中的存储的字节是高低位反向的 参考技术A java 读二进制的dateInputStream,dateOutputStream这2个输入流。其实你多看看api就可以了 参考技术B short在java里是2字节，int是4字节，所以分别读一个short和int就可以了，读取二进制文件用DataInputStream