【VB.NET】テキストファイルのデータを１行ずつ読み込むには？

訪問して頂きありがとうございます。まさふくろーです。

この記事では、テキストファイルのデータを１行ずつ読み込む方法をご紹介します。

テキストファイルのデータを１行ずつ読み込む
- サンプルプログラム
  - 名前空間のインポート
  - テキストファイルのデータを１行ずつ読み込む処理
関連記事

テキストファイルのデータを１行ずつ読み込む

テキストファイルのデータを1行ずつ読み込むには、StreamReaderクラスのReadLineメソッドを使います。
ReadLineメソッドの戻り値は、改行までの文字列です。（返される文字列には、行末の改行文字は含まれません。）
データの最後に達した場合は、Nothingが返されます。
書式は、以下になります。

StreamReader.ReadLine()

サンプルプログラム

名前空間のインポート

Imports System.IO
Imports System.Text

1 2	Imports System.IO Imports System.Text

1	StreamReaderクラスを使うため、System.IO名前空間をインポート。
2	Encodingクラスを使うため、System.Text名前空間をインポート。

テキストファイルのデータを１行ずつ読み込む処理

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim FilePath As String = TextBox1.Text
        Dim ExtensionName As String
        Dim RLine As String
        Dim str As String = String.Empty

        Try

            ExtensionName = Path.GetExtension(FilePath)

            If ExtensionName = ".txt" Then

                Using sr As New StreamReader(FilePath, Encoding.GetEncoding("Shift_JIS"))

                    RLine = sr.ReadLine()

                    Do While RLine IsNot Nothing

                        str &= RLine & ControlChars.NewLine

                        RLine = sr.ReadLine()

                    Loop

                End Using

                Label1.Text = str

            End If

        Catch ex As IO.FileNotFoundException

            Label1.Text = "ファイルが見つかりません。"

        Catch ex As Exception

            Label1.Text = Err.Description

        End Try

    End Sub
End Class

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim FilePath As String = TextBox1.Text

Dim ExtensionName As String

Dim RLine As String

Dim str As String = String.Empty

Try

ExtensionName = Path.GetExtension(FilePath)

If ExtensionName = ".txt" Then

Using sr As New StreamReader(FilePath, Encoding.GetEncoding("Shift_JIS"))

RLine = sr.ReadLine()

Do While RLine IsNot Nothing

str &= RLine & ControlChars.NewLine

RLine = sr.ReadLine()

Loop

End Using

Label1.Text = str

End If

Catch ex As IO.FileNotFoundException

Label1.Text = "ファイルが見つかりません。"

Catch ex As Exception

Label1.Text = Err.Description

End Try

End Sub

End Class

2	「データを1行ずつ読み込む」ボタンクリック時に以下処理を行う。
4	ファイルパスを、文字列型の変数「FilePath」に代入。
11	ファイルパスからファイルの拡張子を取得し、文字列型の変数「ExtensionName」に代入。
13	ファイルの拡張子が「.txt」の場合、
15	ファイルを読み込み用に開く処理を実行する。（シフトJISのエンコードで開く）（Usingステートメントでファイルを閉じる処理を自動化）
17	正常に処理が実行された場合、データを1行ずつ読み込む処理を実行する。
19	最後のデータに達するまで、以下処理を繰り返す。
21	読み込んだデータを、文字列型の変数「Str」に改行付きで追加していく。
23	次のデータを1行読み込む。
29	変数「Str」の値をラベルに表示する。
33	指定したファイルが見つからない場合、
35	「ファイルが見つかりません。」のメッセージをラベルに表示する。
37	処理の実行中にエラーが発生した場合、
39	エラー内容を取得し、ラベルに表示する。