掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
テキストファイルの読み込みができない (ID：146365)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
何とかクリックするたびに一行ずつ読み込むことが できるようになりました。 コードこれでいいのでしょうか？ できればアドバイスお願いします。 Dim n 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) n += 1 For i As Integer = 0 To n If i < lines - 1 Then str(i) = sr.ReadLine() TextBox1.Text += str(i) + vbCrLf Else MessageBox.Show("終了") End If Next sr.Close() End Sub
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.