Question

I need help writing the code for the fileget into the array

Use FileGet to read vehicle information from a structured file named boytoys.dat into an array of the structure defined below (Copy and paste this code into your project.) Public Structure Boatlnfo <VBFixed String(15 Public make As String <VBFixedstring(15) Public model As String Public year As Integer <VBFixed String(4 Public pul chased As String <VBFixed String(18) Public location As String Public price As Long <VBFixedString (5) Public MSRP As String Why is the MSRP a string and not numerical? Public Used As Boolean prefer to use New, but New is a reserved word <VBFixedstring(12)> Public style As String Public length As Integer Public beam As Decimal Public engine As Decimal Public horsepower As Integer <VBFixedString(10)> Public color As String <VBFixed String(35) Public caption As String <VBFixedstring(18) Public pictureFileName As String End Structure Public Const noOfBoats 4 Public myToys (noOfBoats 1) As BoatInfo my Toys Sportcraft Sprint 1900 1990 2002 Cheektowaga, NY 4500 SSS True Bow Rider 19 813.0 3 Tahoe Q7i SF 2014 2014 Grand Island, NY 38475 38475 False Cuddy Cabin 20 8 5.0 sportcraft1990 jpg tahoe 2014.jpg

Answer 1

Answer: See the reference code below:

---------------------------------------

'name of file containing data
    Public dataFileName = "./myToys.txt"

    'read data from file
    Sub ReadDataFromFile(ByRef dataFileName As String)
        Using fileReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(dataFileName)
            fileReader.TextFieldType = FileIO.FieldType.Delimited
            fileReader.SetDelimiters(" ")
            Dim currentRow As String()
            Dim counter = 0
            While Not fileReader.EndOfData
                Try
                    currentRow = fileReader.ReadFields()
                    Dim boat = New BoatInfo
                    boat.make = currentRow(0)
                    boat.model = currentRow(1)
                    boat.year = currentRow(2)
                    boat.purchased = currentRow(3)
                    boat.location = currentRow(4)
                    boat.price = currentRow(5)
                    boat.MSRP = currentRow(6)
                    boat.Used = currentRow(7)
                    boat.style = currentRow(8)
                    boat.length = currentRow(9)
                    boat.beam = currentRow(10)
                    boat.engine = currentRow(11)
                    boat.horsepower = currentRow(12)
                    boat.color = currentRow(13)
                    boat.caption = currentRow(14)
                    boat.pictureFileName = currentRow(15)

                    'store boat info into array
                    myToys(counter) = boat
                    counter = counter + 1
                Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
                    Console.WriteLine(ex.Message)
                End Try
            End While
        End Using
    End Sub

----------------------------------------