2005重すぎて死ねる
ギガヘルツマシンがほしい
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim fs As New System.IO.StreamReader(Me.MaskedTextBox1.Text, System.Text.Encoding.GetEncoding("Shift_JIS")) Dim st As String Dim Rog() As String Dim i As Integer = 0 Do st = fs.ReadLine() If st Is Nothing Then Exit Do End If ReDim Preserve Rog(i) Rog(i) = st i += 1 Loop st = "" End Sub