テキストファイルの読み込みができない (ID:146362)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 1test.txtの文を1行ずつテキストファイルに読み込みたいのですが 一行目以降が読み込めません。 結合演算子をつけると一行目の文がつながっていきます。 理由がわかりません、ご指導賜りたく思います。 Dim i As Integer = -1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = "" Const qfile As String = "c:\1test.txt" Dim str( ) As String Dim lines As Integer lines = File.ReadAllLines(qfile).Length ReDim str(lines - 1) Dim sr As StreamReader = New StreamReader(qfile, Encoding.Default) i += 1 str(i) = sr.ReadLine( ) TextBox1.Text += str(i) + vbCrLf sr.Close() End Sub