VB.NET

VB.NET RSS

Reading the first four bytes of a (binary) files?

Please support our VB.NET advertiser: Intel Parallel Studio Home

•

Join Date: Sep 2007

Posts: 3

Reputation: AzraelUK is an unknown quantity at this point

Solved Threads: 0

AzraelUK

Offline

Newbie Poster

Reading the first four bytes of a (binary) files?

Sep 16th, 2007

Hi there, I was wondering if there was an easy way to read the first four bytes of a file. The ones in particular I'm looking for are 49 42 53 50 ("IBSP") and 46 42 53 50 ("FBSP"), but that bit should be easy.

•

Join Date: Aug 2005

Posts: 5,266

Reputation: iamthwee is a splendid one to behold

Solved Threads: 377

iamthwee

Offline

Posting Expert

Re: Reading the first four bytes of a (binary) files?

Sep 16th, 2007

When you say bytes do you really mean the first four bytes or do you mean the first four numbes? I have a suspicion you mean the latter.

Last edited by iamthwee; Sep 16th, 2007 at 4:52 pm.

•

Join Date: Sep 2007

Posts: 3

Reputation: AzraelUK is an unknown quantity at this point

Solved Threads: 0

AzraelUK

Offline

Newbie Poster

Re: Reading the first four bytes of a (binary) files?

Sep 18th, 2007

Uhh... the first four hexadecimal numbers if you open the file in a hex editor. As I evidently didn't imply, when you open it in Notepad, the first four characters are either IBSP or FBSP.

•

Join Date: Dec 2002

Posts: 461

Reputation: waynespangler is on a distinguished road

Solved Threads: 56

waynespangler waynespangler is offline

Offline

Posting Pro in Training

Re: Reading the first four bytes of a (binary) files?

Sep 18th, 2007

Try this:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = String.Empty
        Using fs As New FileStream("c:\test.txt", FileMode.Open)
            fs.Position = 0
            Using br As New BinaryReader(fs)
                For x As Int16 = 0 To 3
                    TextBox1.Text &= Asc(br.ReadChar) & " "
                Next
            End Using
        End Using
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = String.Empty
        Using fs As New FileStream("c:\test.txt", FileMode.Open)
            fs.Position = 0
            Using br As New BinaryReader(fs)
                For x As Int16 = 0 To 3
                    TextBox1.Text &= Asc(br.ReadChar) & " "
                Next
            End Using
        End Using
    End Sub