VB.NETでファイルの行数を取得する

記載されている内容は、自身の責任において行ってください。この記事により不具合が生じても一切責任は負いません。

ソース

  ''' <summary>
  ''' ファイルの行数を取得する。
  ''' </summary>
  ''' <param name="filePath">読み込むファイルパス</param>
  ''' <returns>行数</returns>
  ''' <remarks></remarks>
  Public Function cntLineFromFile(ByVal filePath As String) As Long
    Dim StReader As New System.IO.StreamReader(filePath)
    Dim cnt As Long
    While (StReader.Peek() >= 0)
      StReader.ReadLine()
      cnt += 1
    End While
    Return cnt
  End Function

特記事項

特になし。

スポンサーリンク

シェアする

  • このエントリーをはてなブックマークに追加

フォローする