テキストファイルのLine Inputでの読込 (ID:113771)

名前

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

本文 FileNo = FreeFile Do While Not EOF(3) If strProjectName = ProjectName Then Exit Do End If If Left(flvReadLine3, 13) = "Project Name:" Then strProjectName = Trim(Mid(flvReadLine3, 14)) End If Line Input #FileNo, flvReadLine3 Loop If EOF(3) Then Close #FileNo Exit Sub End If Do Until flvReadLine3 <> "" If EOF(3) Then Close #FileNo Exit Sub End If Line Input #FileNo, flvReadLine3 Loop 説明不足でした。上のようなソースで最後のDo Untilの部分の 処理で必要のない行を読み飛ばしてデータを取得するのですが、 その際のLine Inputの部分でテキストファイルの先頭の行を 読み込んでしまうのです。