VB.NET Tips CSVファイルの総行数を取得する
CSVファイルから、インポート処理する際などに、事前にレコードの総数を提示しておきたかったり、プログレスバーを使用して、処理の進行を表示したいときなどに、CSVファイルのレコード総数（総行数）が必要になります。
ですが、StreamReaderなどで読み込んでもCountなどは使えないため、一発取得の方法がありませんので、読み込んだファイルの行数を１から数える必要があります。
次のようにすると、CSVファイルのレコード総数（総行数）が取得できます。
[code=”VB”]
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
[/code]
これで、総行数が取得できます。
