Visual Basic 中学校　サンプル

TextBoxの内容をテキストファイルに書き込む

１．上書きする例

以下の例ではTextBox1の内容をC:\Test\Sample.txtに書き込む。対象のテキストファイルがない場合はテキストファイルは新規作成される。対象のテキストファイルが存在している場合は上書きする。

IO.File.WriteAllText("C:\Test\Sample.txt", TextBox1.Text, System.Text.Encoding.GetEncoding("Shift-JIS"))
　

メモ：対象のテキストファイルのエンコードによって第３引数は変わります。たいていの場合はこの例のようにShift-JISを指定するか第２引数を省略することで正しく処理できます。

　

以下の例は上の例と同じだが、古いバージョンでも動作する。

Dim Writer As New IO.StreamWriter("C:\Test\Sample.txt", False, System.Text.Encoding.GetEncoding("Shift-JIS"))

Writer.Write(TextBox1.Text)

Writer.Close()

メモ：対象のテキストファイルのエンコードによってStreamWriterのコンストラクタの第３引数は変わります。たいていの場合はこの例のようにShift-JISを指定するか第３引数を省略することで正しく処理できます。

メモ：改行したい場合はWriteLineメソッドを使用するか、vbNewLineを使ってWriter.Write(vbNewLine)とします。

２．追加書きする例

以下の例ではTextBox1の内容をC:\Test\Sample.txtに書き込む。対象のテキストファイルがない場合はテキストファイルは新規作成される。対象のテキストファイルが存在している場合は末尾に文字列を追加する。

Dim Writer As New IO.StreamWriter("C:\Test\Sample.txt", True, System.Text.Encoding.GetEncoding("Shift-JIS"))

Writer.Write(TextBox1.Text)

Writer.Close()

メモ：対象のテキストファイルのエンコードによってStreamWriterのコンストラクタの第３引数は変わります。たいていの場合はこの例のようにShift-JISを指定するか第３引数を省略することで正しく処理できます。

メモ：改行したい場合はWriteLineメソッドを使用するか、vbNewLineを使ってWriter.Write(vbNewLine)とします。