VBScript(VBスクリプト)でLikeするには?
VB6やVBAでのlike検索は、文字列をワイルドカード(*,?)で検索できます。
しかし、VBS(VBスクリプト)では、like演算子そのものがありません。
では、どうするかというと、正規表現のオブジェクトを使います。
ワイルドカード『*』に対応する正規表現は『.*』です。
ワイルドカード『?』に対応する正規表現は『.』です。
あと、正規表現の場合には、先頭に『^』、後尾『$』を付け加えます。
なぜかと言うと、like演算子は文字列全体に対しての比較です。
それに対して、Testメソッドは、単なる文字列サーチです。
なので、先頭に『^』、後尾『$』を付け、文字列全体サーチにして、比較すればlike演算子とイコールになるはずなのです。
VB6
If "aaaxxxbbbyccczzz" Like "aa*bbb?ccczzz" Then Call MsgBox("ヒット") Else Call MsgBox("アウト") End If
VBScript
Option Explicit Dim objRE Set objRE = CreateObject("VBScript.RegExp") objRE.Pattern = "^aaa.*bbb.ccczzz$" If objRE.Test("aaaxxxbbbyccczzz") Then Call MsgBox("ヒット") Else Call MsgBox("アウト") End If Set objRE = Nothing