これまでの私のコードは次のとおりです。
パブリック クラス Form1
Private Sub btnBaseball_Click(sender As Object, e As EventArgs) Handles btnBaseball.Click
Dim baseball() As String = IO.File.ReadAllLines("baseball.csv")
Dim query = From line In baseball
Let data = line.Split(","c)
Let city = data(0)
Let won = CInt(data(1))
Let lost = CInt(data(2))
Let pct = CDbl(data(3))
Select city, won, lost
dgvBaseball.DataSource = query.ToList
dgvBaseball.CurrentCell = Nothing
dgvBaseball.Columns("city").HeaderText = "CITY"
dgvBaseball.Columns("won").HeaderText = "WON"
dgvBaseball.Columns("lost").HeaderText = "LOST"
End Sub
クラス終了
※ テキストファイルはこちら
Baltimore,93,69
Boston,93,69
New York,95,67
Tampa Bay,90,72
Toronto,73,89
ファイルを読み取るときに、勝ったゲームの割合を計算する必要があり、出力が次のようになるようにコードを修正するにはどうすればよいですか。
チーム勝敗率 ニューヨーク 95 67 0.586 ボストン 93 69 0.574 タンパベイ 90 72 0.556 トロント 73 89 0.451 ボストン 69 93 0.426
よろしくお願いします。