You VB .NET developers out there,
I have posted 3 threads requesting help on reading floating point values from a binary file but did not get any reply at all. Is it because I am asking a stupid question or noone really have a clue about the question I asked? I am pretty sure that many of you know the answer. For the love of GOD, please give me some pointers on this. Following code just throws an exception at the first FOR NEXT loop where reading starts (Pls see the code below). I did manage reading integers from a binary file but just can't get it work to read floating point values.
Let me try to explain what I am trying to do. My program should read floating point values (values range between -1.00 and +1.00) from a binary file. After reading those floating point values, it will do some basic math with the values and then will write them into file.
Here is the code:
Dim s1 As FileStream 'Load file 1
Dim s3 As FileStream 'Save output
If System.IO.File.Exists(TextBox19.Text) Then
System.IO.File.Delete(TextBox19.Text)
End If
s1 = New FileStream(TextBox1.Text, FileMode.Open, FileAccess.Read)
s3 = New FileStream(TextBox19.Text, FileMode.CreateNew, FileAccess.Write)
Dim br1 As BinaryReader
Dim bw As BinaryWriter
br1 = New BinaryReader(s1)
bw = New BinaryWriter(s3)
Dim fLen1 As Integer
Dim f1 As New System.IO.FileInfo(TextBox1.Text)
fLen1 = f1.Length
Dim snglRead1(fLen1) As Single
Dim snglOutput(fLen1) As Single 'wıll hold results from division
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim m As Integer
For i = 0 To fLen1 - 1
snglRead1(i) = br1.ReadSingle() 'EXCEPTION thrown right here
Next
For j = 0 To fLen1 - 1
snglOutput(j) = snglRead1(j)
bw.Write(snglOutput(j))
Next
s1.Close()
s3.Close()
MessageBox.Show("file created succesfully!", "Done")
Me.Close()
End If
