Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


43525 / 76732 ←次へ | 前へ→

【38254】Re:テキストファイルの高速読込み
回答  neptune  - 06/5/30(火) 17:21 -

引用なし
パスワード
   固定長ファイルなので読み込み自体はランダムアクセスの方が早いはずです。
以下手持ちのサンプル・・・多分動いたと思います。
小さいサイズなら、簡易DBとしてこのようなやり方で十分使えます。

Type TYPREC   '自分の環境に合うように変更必用
 fld1 As String * 8
 fld2 As String * 8
 FLD3 As String * 8
 FLD4 As String * 10
End Type

Sub ReadTest()
Dim strPath As String
Dim FNum As Long
Dim LastRec As Long, recNo As Long
Dim mRec As TYPREC

  FNum = FreeFile
  strPath = "C:\hoge\hoge.txt" 'ここは書き換えて
  Open strPath For Random As #FNum Len = Len(mRec)
  LastRec = LOF(FNum) \ Len(mRec)
  
  For recNo = 1 To LastRec
    Get #FNum, recNo, mRec
    With mRec
      Cells(recNo, 6).Value = .fld1
      Cells(recNo, 7).Value = .fld2
      Cells(recNo, 8).Value = .FLD3
      Cells(recNo, 9).Value = .FLD4
    End With
  Next recNo
  Close #FNum
End Sub

これより早く読み込みたいなら、バイナリアクセスで一気に全て読み込み
全て変数に格納、その後判断などの処理をしていく方法もあります。

5 hits

【38243】テキストファイルの高速読込み aya 06/5/30(火) 15:29 質問
【38244】Re:テキストファイルの高速読込み 06/5/30(火) 15:44 回答
【38245】Re:テキストファイルの高速読込み aya 06/5/30(火) 15:55 発言
【38246】Re:テキストファイルの高速読込み Jaka 06/5/30(火) 16:00 発言
【38247】Re:テキストファイルの高速読込み Jaka 06/5/30(火) 16:07 発言
【38375】Re:テキストファイルの高速読込み aya 06/6/1(木) 9:59 質問
【38249】Re:テキストファイルの高速読込み Kein 06/5/30(火) 16:13 発言
【38376】Re:テキストファイルの高速読込み aya 06/6/1(木) 10:01 発言
【38386】Re:テキストファイルの高速読込み Kein 06/6/1(木) 14:41 回答
【38388】Re:テキストファイルの高速読込み Kein 06/6/1(木) 14:43 発言
【38254】Re:テキストファイルの高速読込み neptune 06/5/30(火) 17:21 回答
【38268】Re:テキストファイルの高速読込み ichinose 06/5/30(火) 19:56 発言
【38287】Re:テキストファイルの高速読込み neptune 06/5/30(火) 23:10 発言
【38288】Re:テキストファイルの高速読込み neptune 06/5/30(火) 23:20 発言
【38377】Re:テキストファイルの高速読込み aya 06/6/1(木) 10:16 質問
【38402】Re:テキストファイルの高速読込み ichinose 06/6/1(木) 23:09 発言
【38378】Re:テキストファイルの高速読込み aya 06/6/1(木) 10:23 質問
【38387】Re:テキストファイルの高速読込み neptune 06/6/1(木) 14:42 回答
【38389】Re:テキストファイルの高速読込み aya 06/6/1(木) 15:50 発言
【38391】Re:テキストファイルの高速読込み neptune 06/6/1(木) 17:54 回答
【38392】Re:テキストファイルの高速読込み neptune 06/6/1(木) 18:52 発言

43525 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free