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

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

使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
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
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
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」ファイルに以下の内容が表示されます
山田太郎
東京
大学

VB.net

Posted by arkgame