「VB.NET」文字エンコードを指定して文字列をファイルに追加する
書式
Public Shared Sub AppendAllText (path As String, contents As String, encoding As Encoding)
指定のエンコードを使用して指定の文字列をファイルに追加し、ファイルが存在しない場合は作成します。
パラメーター
path: 指定した文字列の追加先となるファイル
contents:ファイルに追加する文字列
encoding:使用する文字エンコーディング
使用例
Imports System.IO Imports System.Text Module Module1 Public Sub Main() 'ファイルパス変数の定義 Dim filePath As String = "c:\study\vb\test.csv" ' ファイルが存在しないバイ If File.Exists(filePath) = False Then 'ファイルを作成 Dim createText As String = "山田 太郎,23,東京" + Environment.NewLine '指定のエンコードUTF8を使用 File.WriteAllText(filePath, createText, Encoding.UTF8) End If ' ファイルの末尾に文字列を追加して、ファイルを閉じます Dim apTxt As String = "上村 次郎,32,大阪" + Environment.NewLine '使用する文字エンコーディングUTF8を指定 File.AppendAllText(filePath, apTxt, Encoding.UTF8) ' ファイルを開いて、コンテンツを読み込む Dim readText As String = File.ReadAllText(filePath) Console.WriteLine(readText) Console.ReadKey() End Sub End Module
実行結果
C:\study\vb\test.csv
山田 太郎,23,東京
上村 次郎,32,大阪