Присвоение значений CSV структуре - PullRequest
0 голосов
/ 05 июня 2018

Я создаю простую программу, но у меня возникают трудности с присвоением значений из файла структуре и ее переменным.Visual Basic.

Структура:

Public Structure Teams
Dim teamName As String    
End Structure

Функция:

    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

Простая подпрограмма для проверки значений доступна и подбирается.

   Dim availableTeams() As Teams
    availableTeams = getAvailableTeams()
   lbltest.text = availableTeams(1).toString

Файл сохраняется в виде файла CSV, и в нем доступно 11 имен команд.team1 \ r \ n team2 \ r \ n и т. д. *

Я ценю, что это, вероятно, что-то простое, но я не могу понять, где я ошибаюсь с этим.

1 Ответ

0 голосов
/ 05 июня 2018

Один из комментариев был на правильном пути.Вам нужно закрыть и снова открыть файл для ввода, чтобы начать сначала.Поскольку вы уже находились в конце файла, вторая попытка сразу завершится неудачей, если вы не начнете заново с начала.

...