0

次のコードがあります。テキスト ファイルから読み取り、レコード (私の構造) のリストを作成しています。次に、チームの名前がフォームのテキスト ボックスのチームの名前と等しいリストから、すべての Records オブジェクトを取得する必要があります。

Public Class Form1

    Structure Record

        Sub New(ByVal arr As String())
            Me.team = arr(0)
            Me.player = arr(1)
            Me.bats = CInt(arr(2))
            Me.hits = CInt(arr(3))
        End Sub
        Dim team As String
        Dim player As String
        Dim bats As Integer
        Dim hits As Integer
    End Structure

    Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click
        Dim team As String = txtTeam.Text
        Dim records As New List(Of Record)

        records.AddRange(
            From line In IO.File.ReadAllLines("Baseball.txt")
            Select New Record(line.Split(","c))
            )

        records = records.FindAll(Function(record) record.team.Equals(team))

        Dim a As Integer = 1
        a += 1

    End Sub
End Class

問題は、後に 0 レコードを受信したことです。

records = records.FindAll(Function(record) record.team.Equals(team))

助言がありますか?

PS: これはブレークポイント用です

Dim a As Integer = 1
a += 1
4

1 に答える 1