[VB.NET]Using文の使い方

2014年2月8日2021年10月4日

書式

Using { resourcelist | resourceexpression }
    [ statements ]
End Using

resourcelist:この Using ブロックで制御する、コンマで区切られた 1 つまたは複数のシステム リソースの一覧。
resourceexpression:resourcelist を指定しない場合は必須です。 この Using ブロックによって制御されるシステムリソースを参照する、参照変数または式。

操作例

Using 変数名 As System.IO.TextWriter = System.IO.File.CreateText(ファイル名)
     変数名.WriteLine(xxx)
End Using

関数
1.Public Function CreateText () As StreamWriter
新しいテキスト ファイルに書き込みを実行する StreamWriter を作成します。
2.Public Function OpenText () As StreamReader
既存のテキスト ファイルからの読み取りを行う、UTF8 エンコーディングの StreamReader を作成します。

使用例

Imports System.IO
Imports System.Text

Module Module1

    Sub Main()
   
        Dim fileName As String = "C:\study\testlog.txt"
        Console.WriteLine("ファイルを書き込む結果")
        'ファイルを書き込む
        WriteFile(fileName)

        Console.WriteLine("ファイルからの読み取りを行う結果")
        'ファイルを読み取り
        ReadFile(fileName)

        Console.ReadKey()
    End Sub
    'ファイルに3行のテキストを書き込む
    Private Sub WriteFile(ByVal filename)
        '新しいテキストファイルに書き込みを実行
        Using wtr As System.IO.TextWriter = System.IO.File.CreateText(filename)
            wtr.WriteLine("1行目:東京")
            wtr.WriteLine("2行目:大阪")
            wtr.WriteLine("3行目:名古屋")
        End Using
    End Sub
    'ファイルを読み取って、テキスト行を表示
    Private Sub ReadFile(ByVal filename)
        '既存のテキストファイルからの読み取りを行う
        Using rdr As System.IO.TextReader = System.IO.File.OpenText(filename)
            Dim line As String
            line = rdr.ReadLine()
            'Do untilループ
            Do Until line Is Nothing
                Console.WriteLine(line)
                line = rdr.ReadLine()
            Loop
        End Using
    End Sub


End Module

コンソールの実行結果
ファイルを書き込む結果
ファイルからの読み取りを行う結果
1行目:東京
2行目:大阪
3行目:名古屋

testlog.txtの内容

1行目:東京
2行目:大阪
3行目:名古屋