掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
１８００個のｔｘｔファイルの検索を早くするには (ID：109898)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ねろさんが言われる様に内側のループが気になったので、 自分なりに解釈してちょっと作ってみました。 不要な処理はしない様にしましょう。 g = "第" & "*" & "番" & " " & "*" 'こうじゃないかと勝手に思いました。 d = Text8.Text '検索文字 N3 = FreeFile '空きファイル番号取得 Open App.Path & "\" & a & "\" & b & ".txt" For Input As #N3 Do Until EOF(N3) Input #N3, c '検索する行を取り出す。 If c Like g Then '第*番 * という文字列があるか？ If InStr(c, d) <> 0 Then 'Text8で指定した文字列があるか？ If InStr(c, "附") Then '附という文字があるか？ i = "附" 'あったらiに"附"をいれる。 Else i = "" 'なければiには何も入れない。 End If Form3.List1.AddItem a & " " & b & " " & i & " " & c End If End If Loop Close #N3
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.