「VB.NET」Using 文でファイルの文字を読み込む

書式
Using 変数名 As New StreamReader(ファイル名,Encoding.GetEncoding(“UTF-8") )
処理コード
End Using
関数
Public Overrides Function ReadToEnd () As String
ストリームの現在位置から末尾までのすべての文字を読み込みます。
使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Imports System.IO
Imports System.Text
Module Module1
Sub Main()
'String型変数の宣言
Dim fileName As String = "C:\study\testlog.txt"
Dim rte As String
' Using文でファイルオープン
Using streamreader As New StreamReader(fileName, Encoding.GetEncoding("UTF-8"))
Console.WriteLine("ファイル" + fileName + "をオープンしました")
'ストリームの現在位置から末尾までの全ての文字を読み込む
rte = streamreader.ReadToEnd()
End Using
Console.WriteLine(rte)
Console.ReadKey()
End Sub
End Module
Imports System.IO Imports System.Text Module Module1 Sub Main() 'String型変数の宣言 Dim fileName As String = "C:\study\testlog.txt" Dim rte As String ' Using文でファイルオープン Using streamreader As New StreamReader(fileName, Encoding.GetEncoding("UTF-8")) Console.WriteLine("ファイル" + fileName + "をオープンしました") 'ストリームの現在位置から末尾までの全ての文字を読み込む rte = streamreader.ReadToEnd() End Using Console.WriteLine(rte) Console.ReadKey() End Sub End Module
Imports System.IO
Imports System.Text

Module Module1

    Sub Main()

        'String型変数の宣言
        Dim fileName As String = "C:\study\testlog.txt"
        Dim rte As String

        ' Using文でファイルオープン
        Using streamreader As New StreamReader(fileName, Encoding.GetEncoding("UTF-8"))
            Console.WriteLine("ファイル" + fileName + "をオープンしました")

            'ストリームの現在位置から末尾までの全ての文字を読み込む
            rte = streamreader.ReadToEnd()
        End Using

        Console.WriteLine(rte)

        Console.ReadKey()
    End Sub

End Module

実行結果
ファイルC:\study\testlog.txtをオープンしました
1行目:東京
2行目:大阪
3行目:名古屋

VB.net

Posted by arkgame