テキストファイルの行数をカウントする方法

◆概要

このページは、Visual Basic 6.0でテキストファイルの行数をカウントする方法について記載しています。


行数をカウントするための変数を用意し、１行読み込むたびにその変数に１加算することで、ファイルの行数をカウントできます。

◆Sample code

次の例は、ファイルシステムオブジェクトを利用した例です。


次の例を実行する前に、Visual Basic 6.0のメニュー[表示]-[イミディエイトウィンドウ]（ショートカットCtrl+G）でイミディエイトウィンドウを表示させておいてください。 

Private Sub Command1_Click()
    Dim objFileSystem  As Object
    Dim objFile        As Object
    Dim strFileName    As String
    Dim strRecBuff     As String
    Dim lngLineCounter As Integer

    '読み込むファイル名
    strFileName = "C:\readme.txt"
    
    'ファイルシステムオブジェクトへの参照
    Set objFileSystem = CreateObject("Scripting.fileSystemObject")
    
    'ファイルを開く
    Set objFile = objFileSystem.OpenTextFile(strFileName)
    
    'ファイルの最後に達するまでループ
    Do Until objFile.atEndOfStream
        '読み込んだデータを変数に保存
        strRecBuff = objFile.ReadLine
        'ループ回数をカウントし、読み込んだ行数とする
        lngLineCounter = lngLineCounter + 1
    Loop
    
    'イミディエイトウィンドウに表示
    Debug.Print "読み込んだ行数 ="; lngLineCounter
    
    'ファイルを閉じる
    objFile.Close
    
    'オブジェクトを開放
    Set objFileSystem = Nothing
    Set objFile = Nothing

End Sub
　　

◆実行結果

実行結果▼ページトップへ