やたらめったらチェックイン
Imports System.io Imports System.Text.Encoding Public Class Form1 Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click Dim Rog() As String Dim i As Integer = 0 Dim fs As New StreamReader(MaskedTextBox1.Text, GetEncoding("Shift_JIS")) Dim st As String = fs.ReadLine() Do While Not st Is Nothing ReDim Preserve Rog(i) Rog(i) = st i += 1 st = fs.ReadLine() Loop st = nothing End Sub End Class