CSVの件数 其の２ (ID:79488)

名前

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

本文 ちょっと蛇足かもしれませんが、 当初の目的であったCSVの件数を知り、進行状況を表示する方法に関してですが、 ｎ／212件 みたいな表示をしたいのであれば仕方無いですが もしパーセント表示でよければ次のような方法もあります。 ------------------------------------------------------------- Dim Fno As Long 'ファイル番号 Dim Fsize As Long 'ファイルサイズ Dim FPos As Long '次のレコードの読み込みバイト位置 Dim CsvRec As String '読み込むCSVレコード Dim Per As Long '全体の読み込み率 Fno = FreeFile Open "c:\temp\testcsv.txt" For Input As #Fno Fsize = LOF(Fno) Do Until EOF(Fno) Line Input #Fno, CsvRec If Len(CsvRec) > 0 Then '改行のみのレコードは処理しない。 '書き込み処理を入れる。 End If FPos = Seek(Fno) Per = (FPos - 1) * 100 \ Fsize 'プログレスバーのパーセントの更新処理を入れる。 DoEvents Loop Close #Fno ----------------------------------------------------------- この方法だと、件数ではなくバイト単位での進行状況になってしまいますが、 先に件数を調べてから行うより効率的なのと、元のCSVファイルを作るにあたり、Excel等の仕様やユーザーの操作によって、後ろに大量の空白レコードが入ってしまった場合等でも対処が出来ます。 一応参考までという事で