Seek関数を使いこなすには (ID:119415)

名前

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

本文 すみません、UMBAINDですこちらの処理のほうが断然早いと解りました 同じ処理でも今までの処理では５時間かかっていたものが（データ１万件） ５分で終了するようになりました 'ハッシュぽい処理 '**************************** '読者番号関連の処理を簡素化し 'ループを１つ破棄し処理全体を '早める為に行う '使用されるデータの上限は６万件までとする '**************************** Dim xlApp2 As Object Dim strHasyu As String Dim get_data Dim set_data As Variant strHasyu = s & "\jjjjj.txt" Open strHasyu For Input As #3 'オブジェクトの生成 Set xlApp2 = CreateObject("Scripting.Dictionary") Do Until EOF(3) Line Input #3, get_data 'ファイルバッファの分割 set_data = Split(get_data, ",") 'メモリへの展開 'XXXXXXをキーに、XXXXXXをDATAとして格納する xlApp2.Add set_data(1), set_data(0) Loop 'ハッシュぽい処理 END**********************