Public Class Form1 Private Structure Words Public jan As String Public eng As String End Structure Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Const sPath As String = "ファイルのパス" Dim reader As New System.IO.StreamReader(sPath, System.Text.Encoding.Default) Dim ary As ArrayList = New ArrayList() Do Dim wd As Words Dim buf1 As String = reader.ReadLine() wd.jan = buf1 Dim buf2 As String = reader.ReadLine() '二回readlineを使っているのは二行で一組と見なすため。 wd.eng = buf2 ary.Add(wd) Loop Until reader.EndOfStream reader.Close() End Sub End Class