テキストファイルの読み込み、特定の行を表示するには？ (ID:85316)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 はじめましてよろしくお願いします。VB6.0使用。 ファイルシステムオブジェクトを使用してファイルを読み込み、その最後から ２行目の文字列取得したいのですが、一番最後の文字列が表示されてしまいます。 Dim objFileSystem As Object Dim objFile As Object Dim strFileName As String Dim strRecBuff As String Dim lngLineCounter As Integer ' 読み込むファイル名 strFileName = "data.dat" ' ファイルシステムオブジェクトへの参照 Set objFileSystem = CreateObject("Scripting.FileSystemObject") ' ファイルを開く Set objFile = objFileSystem.OpenTextFile(strFileName) ' ファイルの最後に達するまでループ Do Until objFile.AtEndOfStream ' 読み込んだデータを変数に保存 strRecBuff = objFile.ReadLine ' ループ回数をカウントし、読み込んだ行数とする lngLineCounter = lngLineCounter + 1 Loop Debug.Print "読み込んだ行数 ="; lngLineCounter Debug.Print strRecBuff MsgBox "最後から２行目は何行目" & lngLineCounter - 1 ' ファイルを閉じる objFile.Close ' オブジェクトを解放 Set objFileSystem = Nothing Set objFile = Nothing 本を読みながら勉強しているのですがよくわかりません。 よろしくお願いします。