VB 読み込んで表示する

テキストファイルを読み込んで表示する

以下の例ではC:\Test\Sample.txtの内容をTextBox1に表示する。TextBox1はMultiLineプロパティをTrueにセットしておくことが望ましい。

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

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

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

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

TextBox1.Text = Reader.ReadToEnd

Reader.Close()

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