次のコードがあります。テキスト ファイルから読み取り、レコード (私の構造) のリストを作成しています。次に、チームの名前がフォームのテキスト ボックスのチームの名前と等しいリストから、すべての 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