This is what I use in VB5. How can I do the same thing in VB.net (2015)?
With all the variables dimensioned the following VB5 code reads the first four bytes in a binary file opened as #2 to fill the li(4) array.
For i = 1 To 4
mychar = InputB(1, #2) 'Get one character.
li(i) = AscB(mychar)
Next
Then I call my liconvert(a,b,c,d) function to get the long integer number represented by the first four bytes in the file and return that number as “t”
t = Val(liconvert(li(1), li(2), li(3), li(4)))
What I would do from here takes a lot more code. I just need to get this far.
2 Answers
With the start I got from you I did more looking and found this code which seems to do exactly what I need.
Public Sub ReadBinaryII()
' Get the file name.
Dim file_name As String = "xxx.xxx"
' Open the file.
Dim fs As New FileStream(file_name, FileMode.Open)
' Create a BinaryReader for the FileStream.
Dim binary_reader As New BinaryReader(fs)
fs.Position = 0
' Read the data as a byte array.
Dim bytes() As Byte = binary_reader.ReadBytes(20)
' Print the byte data to a text box
myForm.Txt1.Text = bytes(0) & "/" & bytes(1) & "/" & bytes(2) & "/" & bytes(3)
binary_reader.Close()
fs.Dispose()
End Sub
Any cautions or additions? Thanks so much!
In addition to jmcilhinney's comment, you can use the BinaryReader to read values from a file. See this example:
Public Sub ReadBinary()
Using strm As New FileStream("c:\test\filename.bin", FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
Using rdr As New BinaryReader(strm)
'Read integer and byte vaules from the file
Dim i As Integer = rdr.ReadInt32()
Dim l As Long = rdr.ReadInt64()
Dim b As Byte = rdr.ReadByte()
'Read 100 bytes from the file
Dim bytes(99) As Byte
Dim bytesRead As Integer = rdr.Read(bytes, 0, 100)
End Using
End Using
End Sub
BinaryReader has other methods besides the ones shown here.
