正規表現で検索するときのパターンについて

質問

VBScriptの正規表現で、100行くらいのテキストファイルを対象に検索を行いたいのですが、その中の一行に単語1と単語2と単語3の3つの単語が全て含まれるそういう行があるかないかを調べるには、どういうパターンにすればいいでしょうか?
(単語1と単語2と単語3の順番は問いません。)

ご教授のほどよろしくお願いいたします。

回答No.3

n-jun · ベストアンサー

Matchesコレクションでマッチした個数が２以上の場合、
表示するサンプルです。

Dim　str()
ReDim　str(2)

Set　Ex　=　New　RegExp
Ex.Pattern　=　"単語１|単語２|単語３"
Ex.Global　=　True

str(0)　=　"単語３、単語４、単語２"
str(1)　=　"単語１、単語３、単語２"
str(2)　=　"単語２、単語４、単語３"

For　i=0　To　2
　　　　If　Ex.Test(str(i))　Then
　　　　　　　Set　Matches　=　Ex.Execute(str(i))
　　　　　　　　　　　If　Matches.Count　>　2　Then
　　　　　　　　　　　　　　Msgbox　str(i)
　　　　　　　　　　　End　If
　　　　　　　Set　Matches　=　Nothing
　　　　End　If
Next

Set　Ex　=　Nothing
Erase　str
こんな方法はどうでしょう？
ただし、単語１が２個・単語３が１個あってもマッチされますけど。
そのようなデータはヒットさせたくない場合には、スルー願います。
その場合はInStrとか使ってもいいのではないかと？

お礼

サンプルまで書いて頂いてありがとうございました。おかげさまでプログラムを組むことが出来ました。
どうもありがとうございました。

回答No.4

n-jun

>その場合はInStrとか使ってもいいのではないかと？
のサンプルです。

Dim　str()
ReDim　str(2)

str(0)　=　"単語３、単語４、単語２"
str(1)　=　"単語１、単語３、単語２"
str(2)　=　"単語２、単語４、単語３"

For　i=0　To　2
　　　　If　(InStr(str(i),"単語１")*　_
　　　　　　　　InStr(str(i),"単語２")*　_
　　　　　　　　InStr(str(i),"単語３"))　Then
　　　　　　　Msgbox　str(i)
　　　　End　If
Next
Erase　str
ご参考になれば。

回答No.2

n-jun

ANo.1です
>3つの単語が全て含まれる
見落としてました。スルーして下さい。

回答No.1

n-jun

http://www.mnet.ne.jp/~nakama/
【その３】３．メタ文字の種類　（４）いずれかの文字列
が参考になると思います。