VB.NETでテキストファイルを作成するサンプル

2021年11月22日

書式
Public Shared Function GetEncoding (name As String) As Encoding
指定したコード ページ名に関連付けられたエンコーディングを返します。
名前：shift_jis
コードページ:932
表示名:日本語(Shift-JIS)

使用例

Public Sub Main()

    'Encodingオブジェクトを作成
    Dim cft As System.Text.Encoding = System.Text.Encoding.GetEncoding("shift_jis")

    'シフトJISでテキストファイルを作成する
    Dim sisw As New System.IO.StreamWriter("C:\data2\test.txt", False, cft)

    Console.WriteLine("テキストファイルを作成 Start")
    sisw.WriteLine("山田太郎")
    sisw.WriteLine("東京")
    sisw.WriteLine("大学")
    sisw.Close()
    Console.WriteLine("テキストファイルを作成 End")

    Console.ReadKey()
End Sub

実行結果
コンソール画面に以下のメッセージが表示されます
テキストファイルを作成 Start
テキストファイルを作成 End

「test.txt」ファイルに以下の内容が表示されます
山田太郎
東京
大学