1

我有一个名为 games.txt 的文本文件，其中包含许多计算机游戏比赛的详细信息。每条线代表：

Player1Score, Player1Name, Player1Age, Player 2Score, Player2Name, Player2Age

以下是 3 行的示例（总共 150 行）：

1, John, 32, 5, Albert, 54
3 Lisa, 33, 2, Michael, 36
4 Jessica, 24, 1 Robert, 32

我想将它们分配给一个结构数组，其中每个元素都有 6 个使用 StreamReader 的成员变量。这是结构变量：

Structure gameDetails
    Public Player1Score As Integer
    Public Player1Name As String
    Public Player1Age As Integer
    Public Player2Score As Integer
    Public Player2Name As String
    Public Player2Age As Integer
End Structure

我知道使用逗号作为分隔符，我可以将每个变量记录为数组中的不同元素：

Dim game() as String
game() = inFile.ReadLine.Split(","c)

这将导致以这种方式分配每个元素：

game(0) = 1

game(1) = John

game(2) = 32

ETC..

有没有办法可以直接将所有成员变量分配给每个元素？就像每个逗号分隔一个成员变量一样，新行意味着一个新元素？不幸的是，我不熟悉语法/命令，所以我不知道如何解决这个问题。

请注意，我无法对任何内容进行硬编码，因为该应用程序旨在从 .txt 中获取所有数据。

4

2 回答 2

0

您能否尝试创建一个方法作为结构的一部分，如下所示：

public Sub MapLineEntry(targetLine() As String)
    Player1Score = CInt(targetLine(0))
    Player1Name = targetLine(1)
    Player1Age = CInt(targetLine(2))
    Player2Score = CInt(targetLine(3))
    Player2Name = targetLine(4)
    Player2Age = CInt(targetLine(5))
End Sub

您需要确保字符串数组具有正确数量的元素，但这只是一个开始。

于 2015-05-12T00:04:35.313 回答
0

只是想说我想出了一种方法，尽管我不确定它的效率如何。最后我把每一行的每一部分（用逗号分隔）放到一个数组中。然后，我将数组分配给每个成员变量。然后我循环它为每个变量做它：

Dim inFile As System.IO.StreamReader
    inFile = New IO.StreamReader("Games.txt")
    If IO.File.Exists("Games.txt") Then

        Dim upperbound As Integer = Games.GetUpperBound(0)

        For i As Integer = 0 To upperbound
            'auxilary string
            Dim line(6) As String
            line = inFile.ReadLine.Split(","c)

            Games(i).Player1Score = CInt(line(0))
            Games(i).player1Name = line(1)
            Games(i).player1Age = CInt(line(2))
            Games(i).player2Score = CInt(line(3))
            Games(i).player2Name = line(4)
            Games(i).player2Age = CInt(line(5))
        Next i
    End If

感谢您的帮助！

于 2015-05-12T03:05:03.817 回答