１．テキストファイルを読込テキストボックスに表示及び保存(33_FIO_01) (旧、SampleNo.028)

１．テキストファイルを丸ごと読み込みテキストボックスに表示 ２．テキストファイルを１行づつ読み込みテキストボックスに表示 ３．テキストボックスの表示データをテキスト形式でファイルに上書きで保存 ４．テキストボックスの表示データをテキスト形式でファイルに追加書き込みで保存 ５． ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU：x86 Option　：[Compare Text] [Explicit On] [Infer On] [Strict On] Imports ：追加なし 参照設定：追加なし その他　： 　　　　： このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．テキストファイルを丸ごと読み込みテキストボックスに表示

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 　図１．上記実行結果及び使用コントロール類と配置図

２．テキストファイルを１行づつ読み込みテキストボックスに表示

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 'テキストファイルを１行づつ読み込みテキストボックスに表示     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                 '１行づつ読込む(文字列の連結が高速に処理される)                 sb.Append(sr.ReadLine & vbCrLf)             Loop             '読込んだデータをテキストボックスに表示             TextBox1.Text = sb.ToString()         End Using     Catch ex As Exception         MessageBox.Show(ex.Message)     End Try End Sub 実行結果は、図１と同じです。

３．テキストボックスの表示データをテキスト形式でファイルに上書きで保存

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

４．テキストボックスの表示データをテキスト形式でファイルに追加書き込みで保存

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

５．

６．

検索キーワード及びサンプルコードの別名(機能名)