エクセルVBAで特定文字列の個数を高速に調べたい

行数をカウントするだけなら、FileSystemObjectのTextStreamを使用するのが最速だと思います。

改行コード以外の文字をカウントする場合は、RegExpクラスのmatchオブジェクトを使うのがよいと思います。

だいぶ以前に検証↓したことがありますので、ご参考まで。

http://fukkey.dyndns.org/pins/vb/021115/45028.html

参考URL：http://fukkey.dyndns.org/pins/vb/021115/45028.html

こんにちは。

Wendy02です。

>数千本のプログラムソースコード（即ちテキストファイル）があります。（既に存在しています）

私には、believe_meさんが、どういうご事情があるのか分かりませんが、失礼ですが、プロの方ではありませんか？私などアマチュアがあれこれ言える立場ではないかもしれませんが、わざわざ、アマチュアの使うOffice VBAなどは必要ないような気がします。

>全ソースコードを調べ、その項目名が使われるプログラム名（即ちファイル名）とその個所（何ライン目）の一覧表を作成する必要があります。

それは、Win では、Grep(GNUで、オープンソース付き)が一番なのです。しかし、それがダメなら、Grepの代わりに、擬似Grepの　FindStr を使えばよいと思います。お仕事の立場上、手取り足取りのコードを書く必要はないと思いますから、すべてを書きませんが、以下のようなコードで取れます。後は、ファイル名:行数:内容 で、区切り文字が「:」ですから、それを、Split で区切れば、Excelのセルに取り出せます。

以前、私が作った検索プログラムを応用すれば、以下のようなコードになります。これは、テキスト出力までです。

ただし、以下は、Win2x系のみです。

Const QT As String = """"
Const OUTFNAME As String = "$SearchList.txt"
Const SEARCHWD As String = "RegExp"　'RegExpを探す
Cmd = "FindStr /rni "　'r =正規表現,n=行番号表示,i=大文字小文字無視
OutDir = ThisWorkbook.Path & "\"

'FILENAMEは、ワイルドカードが使えます。
"スペースがなければ、FILENAMEの前後のQT は、いらないです。
ret = Shell("CMD /C" & Cmd & " " & SEARCHWD & " " & QT & FILENAME & QT & " > " & QT & OutDir & OUTFNAME & QT)

それを、テキスト出力して、ファイル名と行数が出てきますから、それをExcelで拾いだせばよいと思います。ただし、Win9x 系は　#6のvenzoさんのFind　ですが、正規表現が機能には含まれません。また、Cmd は、Command.com に換わります。

>使いたいのは山々ですが、職場はセキュリティが厳重で外部プログラム（grepなど）のインストールは一切できません。

忘れてましたが、widows標準で、findと言うコマンドがあります。
私は使ったこと無いのですが、これが使えるかもしれませんね。

以下findのヘルプ
>find /?
ファイル (複数可) 内のテキスト文字列を検索します。

FIND [/V] [/C] [/N] [/I] [/OFF[LINE]] "文字列" [[ドライブ:][パス]ファイル名[...]
]

/V 指定した文字列を含まない行をすべて表示します。
/C 指定した文字列を含む行の数だけを表示します。
/N 行番号を表示します。
/I 大文字と小文字の区別をしないで検索します。
/OFF[LINE] オフライン属性が設定されたファイルをスキップしません。
"文字列" 検索する文字列を指定します。
[ドライブ:][パス]ファイル名
検索するファイル (複数可) を指定します。

パスが指定されていないときは、プロンプトで入力されたテキストまた
は別のコマンドからパイプ処理で渡されたテキストを検索します。

素人の考えですが、

splitとか使って配列に格納するのでは遅すぎますか？

こんばんは。

#3のWendy02です。

>使いたいのは山々ですが、職場のセキュリティが厳重で所定のプログラム以外は一切インストール・実行できません。

私も、仕事でHDDの文書検索はしますが、VBAは、実際の仕事では使いません。失礼かもしれませんが、それは、質問者さん個人の問題ではなくて、会社の生産性の問題です。セキュリティがどうこうの問題じゃないのですけれどね・・・。もし企業だったら、この程度の問題に対応できないようなら、どうしようもないと思います。まあ、自分の置かれた立場の問題もありますから、場合によっては、最初から最後まで黙して語らずということもありますけれど。

ただ、もう一度、ご質問を最初から読みましたが、「行数の判定」ということでしょうか？「行数の判定」だけだったら、正規表現などいりませんよ。

単に、ファイルを開いて、ファイルをAppendモードで開いて、その最後の行を取ればよいです。FILENAME は、Dir のループで入れるなりしてください。

Set objFs = CreateObject("Scripting.FileSystemObject")
Set objText = objFs.OpenTextfile(FILENAME, 8) 'Append モード
　MsgBox objText.Line
　objText.Close
Set objFs =Nothing

それに、文字列検索だったら、Grepの代わりに、FindStr を使えばよいです。
ただ、Unix 系ツールの方がずっと楽なことは言うまでもないです。

#1のお礼の
>知りたいのは全行数ではなく、該当文字列のあった行です。

ご質問の趣旨が、良く分かりません。

こんにちは。

それは、Namazu　とか、専門システムを使ったほうが早いです。
それに、その作業のことを、KeyWord In Context　いわゆる KWIC といいます。専用ツールを使ったほうが良いです。例えば、コンコーダンスを作成する時や、大学などで文献検索に使うシステム・ツールです。Grep(GNUに限ります)も同じUnix系のツールですが、それをさらに文献検索用に発展させたものです。

速さにこだわるなら、外部プログラム（grepなど）で検索する方が良いかと思います。

Shell "cmd.exe /C ""grep.exe >search.log"""

検索結果をリダイレクトでファイルにして、それを解析する。
速さは、エクセルVBA（インタプリタ）とは比べものにならないと思いますよ。

コマンドライン用の検索プログラムは"grep"が有名です。
UNIX系のコマンドの移植なので、幾つかバージョンが有ったり、同名の類似品があったりします。

http://www.vector.co.jp/soft/winnt/util/se365621 …
http://www.vector.co.jp/soft/win95/util/se015011 …

grep以外でもフリーのものはあると思うので、使いやすそうなものを探してみてはいかがでしょう。