Excel、Access VBAでのファイル末尾取得する方法です
この前、InputBでのファイル読み込みが高速なことに気がついたので、
ついでにテキストファイル末尾をそこそこ高速に取得するコードを考えました。
なお、CSVファイルなんかはファイル末尾の行が改行コードのみ。
なんてことも多々ありますので、取得したファイル末尾がデータ無し、または改行コードのみなら
データのある行のデータを自動で取得する機能もつけました。
Optional引数で指定できます。
条件
・約3MBの可変長CSVファイルのファイル末尾取得。
・処理時刻の計算は
VBA 超高精度タイマークラスを使っています
・時刻の単位は秒です。
ソースコード
Option Explicit
Public Function TailTextFile(ByVal File_Target As String, Optional UntilExisting As Boolean = True) As String
'===========================================================================
'ファイルの最終行を取得します
'UntilExistingがTrueなら最終行が空の場合、データが存在する行までさかのぼり、そのデータを取得します
'===========================================================================
Dim intFF As Long 'ファイル番号
Dim cnt_StrFirst As Long, cnt_StrLast As Long
Dim str_Result As String, str_Sjis As String, str_Uni As String
Dim cls_Timer As New Cl_QueryPerformance '高精度タイマークラス
Call cls_Timer.GetQueryPerformanceTime 'タイマー初期化
intFF = FreeFile
Open File_Target For Input As #intFF
str_Sjis = InputB(FileLen(File_Target), #intFF) ' SJISのテキスト読み込み
Close #intFF
Debug.Print cls_Timer.GetQueryPerformanceTime '前回タイマー初期化時からの時間
str_Uni = StrConv(str_Sjis, vbUnicode) ' SJISからUNICODEへ
cnt_StrFirst = InStrRev(str_Uni, vbCrLf) 'テキストの最後から最初の改行コードまで
cnt_StrLast = Len(str_Uni) 'テキストすべての文字数
Debug.Print cls_Timer.GetQueryPerformanceTime '前回タイマー初期化時からの時間
If UntilExisting = False Then '最終行が空でもおかまいなし
str_Result = Mid(str_Uni, cnt_StrFirst, cnt_StrLast - cnt_StrFirst) '最終行取得
Else
Do Until cnt_StrLast < 1
str_Result = Mid(str_Uni, cnt_StrFirst, cnt_StrLast - cnt_StrFirst) '指定文字数区間取得
If str_Result <> "" And str_Result <> Chr(13) Then Exit Do '文字無し、改行コードのみでなかったらループ終了
cnt_StrFirst = InStrRev(str_Uni, vbCrLf, cnt_StrFirst) '次の行の開始文字数を取得
cnt_StrLast = InStr(cnt_StrFirst + 1, str_Uni, vbCrLf) '次の行の終了文字数を取得
Loop
End If
Debug.Print cls_Timer.GetQueryPerformanceTime '前回タイマー初期化時からの時間
Debug.Print str_Result
TailTextFile= str_Result
End Function
結果はこんな感じ。
0.0483 ← ファイル読み込みにかかった時間
0.0384 ← Unicodeへのコンバートにかかった時間
0.0007 ← 最終行取得抽出にかかった時間
"1999.10.26","13:18","1.05740","1.05790","1.05720","1.05770","10" ←取得したデータ
合計 87.4ミリ秒
ファイル読み込み、Unicodeコンバートに時間がかかっています。
Loop文でファイル末尾抽出をやってるのはただ高速だからです。
改行コードでSplitするほうが簡単ですが、メモリも食いますし、遅いです。
今回3MBのファイルでしたが、これが数百MBになるとこの関数は使えません。
一度メモリに全部のテキストを読み込んでることになるのでメモリが足りなくなります。
せいぜい10MBくらいのファイルに使用してやってください。
