掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Seek関数を使いこなすには (ID:119415)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
すみません、UMBAINDですこちらの処理のほうが断然早いと解りました 同じ処理でも今までの処理では5時間かかっていたものが(データ1万件) 5分で終了するようになりました 'ハッシュぽい処理 '**************************** '読者番号関連の処理を簡素化し 'ループを1つ破棄し処理全体を '早める為に行う '使用されるデータの上限は6万件までとする '**************************** 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**********************
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.