VB ファイル処理 Shift-JIS

以下に、Shift-JISとUTF-8での基本的なファイルの読み書きの例を示します。

Imports System.IO
Imports System.Text

Module Module1
Sub Main()
‘ ファイルへの書き込み(Shift-JIS)
Using writer As New StreamWriter(“Fname_sjis.txt”, False, Encoding.GetEncoding(“Shift-JIS”))
writer.WriteLine(“こんにちは、世界!”)
End Using

‘ ファイルからの読み込み(Shift-JIS)
Using reader As New StreamReader(“Fname_sjis.txt”,Encoding.GetEncoding(“Shift-JIS”))
Dim content As String = reader.ReadToEnd()
Console.WriteLine(“読み込んだ内容(Shift-JIS): ” & content)
End Using
End Sub

End Module