「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,大阪

VB.net

Posted by arkgame