[ツリー表示へ] [ワード検索] [Home]
タイトル ： Re^2: テキストファイルの高速検索 投稿日 ： 2010/04/07(Wed) 08:48 投稿者 ： どっぽん
| 単に遅いと表現しましたが、現在テキストファイル１００Ｍくらいですが、 今後３倍（３ファイル）くらいになると思われるので、遅くなるのか〜と思い、遅いと表現してしまいました。 それで他に方法はあるのかな？と思い、質問となったわけです。 現在７秒は待てない時間ではありません。 '読み飛ばし前 Open tfpath & ffName For Input As #1 Open tfpath & tmpfName For Output As #2 dno = 0 Do Line Input #1, S a = InStr(S, stext) If a <> 0 Then If dno > 1000 Then GoTo er2 dno = dno + 1 Call AddItemAndSetScrollBar(Form1.List1, S) Print #2, S tmp_t = S End If Loop Until EOF(L) Close #1 Close #2 '読み飛ばし後 L = FreeFile Open tfpath & ffName For Input As #1 Do Line Input #1, S Loop Until EOF(L) Close #1 どちらも７秒くらいで変わりません。 |
をクリックするとツリー全体を一括表示します） - テキストファイルの高速検索 - どっぽん 10/04/07-00:21No.14604