VBレスキュー(花ちゃん)
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ各掲示板

メニューへ戻ります。 ファイル入出力関係のメニュー
1.テキストファイルを読込テキストボックスに表示及び保存
2.FileOpen 関数を使ってのCSVファイルの読み書き
3.StreamReaderを使ってのCSVファイルの読み込み
4.ComboBox でテキストファイルを使っての読み込み書き込み
5.DataGridView でのデータの読込・保存・表示関係
6.テキストファイルを読み込んでリストボックスに表示及びファイルに保存
7.
8.
9.
10.
11.
12.
 .
20.その他、当サイト内に掲載のファイル入出力に関するサンプル 


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


このページのトップへ移動します。 検索キーワード及びサンプルコードの別名(機能名)





このページのトップへ移動します。