コードスニペット便利
Public Class Form1 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 st = fs.ReadLine() Do While Not st Is Nothing ReDim Preserve Rog(i) Rog(i) = st i += 1 st = fs.ReadLine() Loop st = "" End Sub End Class
どういうコーディングがエレガントなんだね