GigasMegas

photo by ErinLangNorris/YellowCa noe

CSVファイルから、インポート処理する際などに、事前にレコードの総数を提示しておきたかったり、プログレスバーを使用して、処理の進行を表示したいときなどに、CSVファイルのレコード総数（総行数）が必要になります。

ですが、StreamReaderなどで読み込んでもCountなどは使えないため、一発取得の方法がありませんので、読み込んだファイルの行数を１から数える必要があります。

次のようにすると、CSVファイルのレコード総数（総行数）が取得できます。

    Public Function GetLinesOfTextFile(ByVal FileName As String) As Integer
        Dim StReader As New System.IO.StreamReader(FileName )
        Dim LineCount As Integer

        While (StReader.Peek() >= 0)
            StReader.ReadLine()
            LineCount += 1
        End While

        Return LineCount 
    End Function

これで、総行数が取得できます。

関連するエントリー

None Found

VB.NET, コンピュータ .NET, 2008, basic, csv, tips, vb, visual