１８００個のｔｘｔファイルの検索を早くするには (ID：109895)

名前

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

本文

１８００個のTXTファイル（１ファイル２００００行程度）
から任意の文字列を検索したいのですが、時間がかかるので
よい方法は無いでしょうか？
instr位しか知らないもので。
現在コードは下記の用に記述しております。
よろしくお願いします。

g = "第*番 *"
k = ""
d = Text8.Text    '検索文字

Open App.path & "\kihon.txt" For Input As #1
    Do Until EOF(1)
        Input #1, a
        Open App.path & "\COMBO用ファイル\" & a & ".txt" For Input As #2
            Do Until EOF(2)
            	Input #2, b
            	f = Len(b) - 4
            	b = Left(b, f)
		Open App.path & "\" & a & "\" & b & ".txt" For Input As #3
                    Do Until EOF(3)
                    	Input #3, c
                    	h = c Like g
                    	m = InStr(c, "附")
                    	If m > 0 Then
                        	k = "附"
                    	End If
                    	If h = True And k = "" Then
                        	j = InStr(1, c, "番")
                        	i = Left(c, j)
                    	End If
                    	e = InStr(c, d)
                    	If e > 0 Then
                        	If k <> "" Then
                            		i = k
                        	End If
                        	Form3.List1.AddItem a & "    " & b & "    " & i & "    " & c
                    	End If
                    Loop
                    k = ""
                    Close #3
            Loop
            Close #2
    Loop
    Close #1

←解決時は質問者本人がここをチェックしてください。

戻る