「VB.NET」文字エンコードを指定して文字列をファイルに追加する

書式
Public Shared Sub AppendAllText (path As String, contents As String, encoding As Encoding)
指定のエンコードを使用して指定の文字列をファイルに追加し、ファイルが存在しない場合は作成します。
パラメーター
path: 指定した文字列の追加先となるファイル
contents:ファイルに追加する文字列
encoding:使用する文字エンコーディング

使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
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
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
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