VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

テキストボックスのテキストをテキストファイルに保存(VB.NET) ( No.23 ) 　[親スレッドへ]

日時： 2013/02/19 16:52
名前： VBレスキュー(花ちゃん): ***********************************************************************************
* カテゴリー：[テキストボックス][ファイル入出力][]                                *
* キーワード：TextBox,上書きで保存,追加書き込み,保存,書き込み　　　　　　　　　　 *
***********************************************************************************
'----------------------------------------------------------------------------------
SampleNo：028
投稿日：2013/02/19
投稿者：VBレスキュー(花ちゃん)
動作確認：Windows Vista / Windows 7 / VB2010 Pro SP1Rel / Framework 4.0 SP1Rel で
[Option Compare Text][Option Explicit On][Option Infer On][Option Strict On]で確認
'========1=========2=========3=========4=========5=========6=========7=========8===

１．テキストボックスのテキストをテキストファイルに上書きで保存する。
２．テキストボックスのテキストをテキストファイルの末尾に追加で保存する。

　　テキストファイルは、各自ご用意ください。

'----------------------------------------------------------------------------------

Private Sub Button3_Click(ByVal sender As System.Object, _
                          ByVal e As System.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(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button4.Click
'テキストファイルを追加書き込みで保存する
   Try
      Using sw1 As New System.IO.StreamWriter("test001.txt", True, _
                                                  System.Text.Encoding.Default)
         '書き込み
         sw1.Write(vbCrLf & "123ABCあいうえお追加分")
      End Using
   Catch ex As Exception
      MessageBox.Show(ex.Message)
   End Try
End Sub