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?

Oct 31 '06 #1

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 :)

Oct 31 '06 #2

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 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

Oct 31 '06 #3