Question

我正在创建应该是一个简单的程序，但是我很难将文件中的值分配到结构中并且它是变量。 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 等...

我很欣赏这可能是一件简单的事情，但是我无法解决这个问题。

Answer 1

其中一条评论是在正确的轨道上。您需要关闭并重新打开文件以便输入再次从头开始。由于您已经处于文件结尾，因此第二次尝试会立即失败，除非您从头开始重新开始。

将CSV值分配给结构

1 个答案: