掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
テキストファイルの読み込みができない (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
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.