Trying to input data (double) from text file to array

[monkeyinquisition]

Hi All, I'm trying to read data from a text file into an array. The text file (a test) looks like this:

1
2
3
4
5
6
7
8
9

And the code I've got so far looks like this:

Dim readerVar As StreamReader
Dim dr As DialogResult
Dim i As Integer
Dim WorkString As String = "a"

dr = dlgOpen.ShowDialog()
If dr = DialogResult.OK Then

readerVar = New StreamReader(dlgOpen.FileName)
i = 0
While readerVar.Peek <> -1 ' Loop to read number of lines in file
WorkString = readerVar.ReadLine() ' Get line
i = i + 1 ' Count number of lines in file
End While

ReDim readArray(i)
readerVar = New StreamReader(dlgOpen.FileName)
i = 0
While readerVar.Peek <> -1
WorkString = readerVar.ReadLine() ' Get line
readArray(i) = Double.TryParse(WorkString, readArray(i))

i = i + 1
End While
txtBox.Text = readArray(0)
readerVar.Close()
Else

End If

(I know, terrible isn't it!)

The array now reads something like this:

-1
-1
-1
-1
-1
-1
-1
0
0

Can anyone help me?

Andy

PS does anyone have any code to draw a simple graph from a 1D array?

[willakawill]

Hi All, I'm trying to read data from a text file into an array. The text file (a test) looks like this:

1
2
3
4
5
6
7
8
9

And the code I've got so far looks like this:

Dim readerVar As StreamReader
Dim dr As DialogResult
Dim i As Integer
Dim WorkString As String = "a"

dr = dlgOpen.ShowDialog()
If dr = DialogResult.OK Then

readerVar = New StreamReader(dlgOpen.FileName)
i = 0
While readerVar.Peek <> -1 ' Loop to read number of lines in file
WorkString = readerVar.ReadLine() ' Get line
i = i + 1 ' Count number of lines in file
End While

ReDim readArray(i)
readerVar = New StreamReader(dlgOpen.FileName)
i = 0
While readerVar.Peek <> -1
WorkString = readerVar.ReadLine() ' Get line
readArray(i) = Double.TryParse(WorkString, readArray(i))

i = i + 1
End While
txtBox.Text = readArray(0)
readerVar.Close()
Else

End If

(I know, terrible isn't it!)

The array now reads something like this:

-1
-1
-1
-1
-1
-1
-1
0
0

Can anyone help me?

Andy

PS does anyone have any code to draw a simple graph from a 1D array?

Hi Andy,
This looks like .NET code. Not too easy for crusty old vb6 monkeys to help :)

[Killer42]

Hi Andy,
This looks like .NET code. Not too easy for crusty old vb6 monkeys to help :)

Afraid I'm VB6 too, but could it be related to not closing the reader after the first time through the file? I'm not familiar with the Double.TryParse business, guess I would have used Val() or Cdbl() functions.

Also, on closer inspection, even without really being familiar with .NET, this construction

readArray(i) = Double.TryParse(WorkString, readArray(i))

just doesn't look correct. readArray(i) is both one of the two parameters, and the output. Perhaps the value returned by the TryParse method (-1 or 0 in this case) is simply a success/failure indicator. Maybe try putting that in a dummy variable. Or, if it is valid syntax, just do this

Double.TryParse(WorkString, readArray(i))