Answer to Question #267978 in Visual Basic for shani

Question

Rewrite the following code to read each line of a text file into an array named strFordModel. Just write the correct code. Do While objReader.Peek = -1 strFordModel(intCount) = objReader.ReadLine intCount += 1 Loop

Answer 1

Module Module1


    Sub Main()
        Dim strFordModel(1000) As String
        Dim intCount As Integer = 0
        Dim objReader As StreamReader
        objReader = New StreamReader("Model.txt")

        Do While objReader.Peek <> -1
            strFordModel(intCount) = objReader.ReadLine()
            intCount += 1
        Loop
        objReader.Close()
        For i As Integer = 0 To intCount - 1
            Console.WriteLine(strFordModel(i))
        Next

        Console.ReadLine()
    End Sub
End Module