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

メニューへ戻ります。 TextBox コントロール関係のメニュー
1.TextBox コントロールに関するワンポイントテクニック集
2.TextBox コントロールへのフォーカス移動時の操作色々
3.TextBox でコピー・貼り付け・切り取り・元に戻す他 
4.Enter キー及び↑↓キーによるフォーカス移動 
5.TextBox で数値しか入力できないように制限する
6.TextBox における総行数・現在行・現在桁の取得
7.TextBox で行毎テキストの操作色々
8.テキスト中に異種文字が混在していないかを調べる
9.テキストファイルを読み込み TextBox に表示及び保存
10.TextBox のテキストを複数ページにわたっての印刷
11.
12.
 . 
20.その他、当サイト内に掲載の TextBox コントロールに関するサンプル 


9.テキストファイルを読み込み TextBox に表示及び保存色々(23_Txt_09) (旧、SampleNo.028)
1.テキストファイルを丸ごと読み込み TextBox に表示
2.テキストファイルを1行づつ読み込み TextBox に表示
3.TextBox に表示されたテキストをテキストファイルに上書きで保存する
4.TextBox に表示されたテキストをテキストファイルに追加書き込みで保存する
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.テキストファイルを丸ごと読み込み TextBox に表示

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'1.テキストファイルを丸ごと読み込み TextBox に表示
    TextBox1.Clear()
    Try
        'テキストファイルを現在のエンコード(シフトJIS)で開く
        Using sr As New System.IO.StreamReader(DataPath & "test.txt", System.Text.Encoding.Default)
            'TextBox に読込み表示
            TextBox1.Text = sr.ReadToEnd
        End Using
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
End Sub

このページのトップへ移動します。 2.テキストファイルを1行づつ読み込み TextBox に表示

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'2.テキストファイルを1行づつ読み込み TextBox に表示
    TextBox1.Clear()
    Try
        Using sr As New System.IO.StreamReader(DataPath & "test.txt", System.Text.Encoding.Default)
            '読込むテキストファイルのバッファーを確保(できれば少し多めに Integer の範囲内で)
            Dim sb As New System.Text.StringBuilder(CInt(New System.IO.FileInfo(DataPath & "test.txt").Length))

            'ファイルの最後までループ
            Do Until sr.Peek = -1
            '1行づつ読込む(文字列の連結が高速に処理される)
            sb.Append(sr.ReadLine & vbCrLf)
            Loop
            '読込んだデータを TextBox に表示
            TextBox1.Text = sb.ToString()
        End Using
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
End Sub

このページのトップへ移動します。 3.TextBox に表示されたテキストをテキストファイルに上書きで保存する

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
'3.TextBox に表示されたテキストをテキストファイルに上書きで保存する
    Try
        Using sw As New System.IO.StreamWriter("savetest.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.TextBox に表示されたテキストをテキストファイルに追加書き込みで保存する

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
'4.TextBox に表示されたテキストをテキストファイルに追加書き込みで保存する
    Try
        Using sw1 As New System.IO.StreamWriter("savetest.txt", True, System.Text.Encoding.Default)
            '書き込み
            sw1.Write(TextBox1.Text)
        End Using
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
End Sub

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



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


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




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