1.テキストファイルを読込テキストボックスに表示及び保存(33_FIO_01) (旧、SampleNo.028) |
1.テキストファイルを丸ごと読み込みテキストボックスに表示 2.テキストファイルを1行づつ読み込みテキストボックスに表示 3.テキストボックスの表示データをテキスト形式でファイルに上書きで保存 4.テキストボックスの表示データをテキスト形式でファイルに追加書き込みで保存 5. 6. |
下記プログラムコードに関する補足・注意事項 動作確認:Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU:x86 Option :[Compare Text] [Explicit On] [Infer On] [Strict On] Imports :追加なし 参照設定:追加なし その他 : : このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい) |
1.テキストファイルを丸ごと読み込みテキストボックスに表示 |
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click 'テキストファイルを丸ごと読み込みテキストボックスに表示 TextBox1.Clear() Try 'テキストファイルを現在のエンコード(シフトJIS)で開く Using sr As New System.IO.StreamReader("..\..\..\data\test.txt", System.Text.Encoding.Default) 'テキストボックスに読込み表示 TextBox1.Text = sr.ReadToEnd End Using Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub 図1.上記実行結果及び使用コントロール類と配置図 |
2.テキストファイルを1行づつ読み込みテキストボックスに表示 |
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 'テキストファイルを1行づつ読み込みテキストボックスに表示 TextBox1.Clear() Try Using sr As New System.IO.StreamReader("..\..\..\data\test.txt", System.Text.Encoding.Default) '読込むテキストファイルのバッファーを確保(できれば少し多めに Integer の範囲内で) Dim sb As New System.Text.StringBuilder(CInt(New System.IO.FileInfo("..\..\..\data\test.txt").Length)) 'ファイルの最後までループ Do Until sr.Peek = -1 '1行づつ読込む(文字列の連結が高速に処理される) sb.Append(sr.ReadLine & vbCrLf) Loop '読込んだデータをテキストボックスに表示 TextBox1.Text = sb.ToString() End Using Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub 実行結果は、図1と同じです。 |
3.テキストボックスの表示データをテキスト形式でファイルに上書きで保存 |
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 'テキストボックスの表示データをテキスト形式でファイルに上書きで保存 Try Using sw As New System.IO.StreamWriter("test001.txt", False, _ System.Text.Encoding.Default) '書き込み sw.Write(TextBox1.Text) End Using Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub |
4.テキストボックスの表示データをテキスト形式でファイルに追加書き込みで保存 |
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click 'テキストボックスの表示データをテキスト形式でファイルに追加書き込みで保存 Try Using sw1 As New System.IO.StreamWriter("test002.txt", True, _ System.Text.Encoding.Default) '書き込み sw1.Write("123ABCあいうえお 追加分") End Using Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub |
5. |
6. |
検索キーワード及びサンプルコードの別名(機能名) |