Assigning CSV values to structure?

Question

I'm creating what should be a simple program but I'm having some difficulty assigning values from a file into a structure and it's variables. Visual Basic. Structure: Public Structure Teams Dim teamName As String End Structure Function: Function getAvailableTeams() As Teams() Dim rec As Teams Dim index As Integer Dim recCount As Integer = 0 'Count how many teams exist FileOpen(1, "teamConfig.csv", OpenMode.Input) Do Until EOF(1) LineInput(1) 'Read document line by line recCount += 1 'Increment team count by 1 Loop 'store team names in array Dim teamNames(recCount - 1) As Teams index = 0 Do Until EOF (1) Input(1, rec.teamName) teamNames(index).teamName = rec.teamName index +=1 Loop FileClose(1) Return teamNames End Function Simple subroutine to test values are available and being picked up. Dim availableTeams() As Teams availableTeams = getAvailableTeams() lbltest.text = availableTeams(1).toString The file is stored as a CSV file and there are 11 available team names. team1 \\r\\n team2 \\r\\n etc... I appreciate this is probably something simple but I can't work out where I'm going wrong with this.

Answer 1

In order to allocate the array you have to know how many records there are in advance.

otherwise, on each iteration through your loop you will have to do

REDIM PRESERVE

which keeps the data in array while at the same time allows you to dynamically

allocate it for the next one...

You can put the number of team names as the first item in the file.

Then based on that number, allocate the array, then process it.

Secondly, if the only field is the team name, why not just use an array of strings?

It is just too cumbersome to declare a data structure for just the team name...

Are you sure there not any other fields besides the team name

EX. captain?, # of players, # of wins, # of loses, colors, city, state, zip code, etc.

if it is really a CSV input string, then you read the entire string of team names into

a big input buffer and use the SPLIT function to create the array like this:

Dim inbuff as string

On error goto ERrHandler

FileOpen(1, "filename")

inbuff = LineInput(1)

Dim tokens() as String

tokens = inbuff.split(",")

....

fileclose(1)

============================================

Here is a snippet of code (inside of a button click event) that does what you are asking.

The input file contains:

5

Nickle Valley

Miller Way

Dodge City

Trace Line Park

Clineview

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim inbuff As String

Dim numRecs As Integer

FileOpen(1, "C:\Users\pdiru\Desktop\cities.dat", OpenMode.Input)

inbuff = LineInput(1)

numRecs = Val(inbuff)

Dim teamNames(numRecs) As String

For iLoop = 1 To numRecs

teamNames(iLoop - 1) = LineInput(1)

MsgBox(teamNames(iLoop - 1))

Next

FileClose(1)

End Sub

===================================================