VB.NET

VB.NET RSS

Value of type 'String' cannot be converted to '1-dimensional array of String'?

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

Thread Solved

•

Join Date: Mar 2008

Posts: 20

Reputation: R3B3L is an unknown quantity at this point

Solved Threads: 0

R3B3L

Offline

Newbie Poster

Value of type 'String' cannot be converted to '1-dimensional array of String'?

Sep 19th, 2008

TEXT file csvSTOCKS.TXT contains the following:
Stock 1,200,300,200,200
Stock 2,200,300,200,200
Stock 3,200,300,200,200
Stock 4,200,300,200,200
Stock 5,200,300,200,200

I'm attempting to read each line in the text file and put it in the array of strings lines()

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
        Dim sr As StreamReader = New StreamReader("csvSTOCKS.TXT")
 
        Dim lines() As String
 
        Do While (sr.Peek <> -1)
            lines = sr.ReadLine
        Loop
 
        lstOutput.Items.Add(lines(0))
        Dim sr As StreamReader = New StreamReader("csvSTOCKS.TXT")

        Dim lines() As String

        Do While (sr.Peek <> -1)
            lines = sr.ReadLine
        Loop

        lstOutput.Items.Add(lines(0))

BUT, I get the following error when I try to assign lines = sr.ReadLine
ERROR:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Error	1	Value of type 'String' cannot be converted to '1-dimensional array of String'.
Error	1	Value of type 'String' cannot be converted to '1-dimensional array of String'.

If this cannot be done, is there a way to do that ?
tx

•

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: Value of type 'String' cannot be converted to '1-dimensional array of String'?

Sep 19th, 2008

You have to redimension your lines array:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
        Dim sr As StreamReader = New StreamReader("csvSTOCKS.TXT")
        Dim lines() As String
        Dim index As Integer = 0
 
        Do While (sr.Peek <> -1)
            ReDim Preserve lines(index)
            lines(index) = sr.ReadLine
            index += 1
        Loop
        Dim sr As StreamReader = New StreamReader("csvSTOCKS.TXT")
        Dim lines() As String
        Dim index As Integer = 0

        Do While (sr.Peek <> -1)
            ReDim Preserve lines(index)
            lines(index) = sr.ReadLine
            index += 1
        Loop

or use an array list:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
        Dim sr As StreamReader = New StreamReader("csvSTOCKS.TXT")
        Dim lines As ArrayList = Nothing
 
        Do While (sr.Peek <> -1)
            lines.Add(sr.ReadLine)
        Loop
        Dim sr As StreamReader = New StreamReader("csvSTOCKS.TXT")
        Dim lines As ArrayList = Nothing

        Do While (sr.Peek <> -1)
            lines.Add(sr.ReadLine)
        Loop