VBScript(VBスクリプト)でLikeするには?

VB6,VBA,VBS,EXCEL,DOS,BAT,WSH,WORDの小技メモ

HTML/ CSS/ CGI-Perl/ JavaScript/ JavaApplet/ AccessUp/ Internet/ EnglishLearn/ ちゃいちゃん天使/ 天使メッセージ/ 飯田ワールド/ 結城ワールド/ プロフィール/ WEB相談室/ WEBアンテナ/ 燈明日記/ Perlノート/ 漢字起源/ yahoo

はじめに

本ページは、ウインドウズ系全般のティプスメモです。

そう、はじめはVB系のティプスメモだったのですが…いつの間にか、ウインドウズ系全般のティプスメモになってしまいました。

ちなみに、ティプス(Tips)とは、マニュアルに書かれていない技法や裏わざのことですが、本ページでは、私が経験してこれはと思ったノウハウのメモになっています。

尚、以下は本サイトの最新情報(ブログ)です。

それでは、本ページが何かのお役に立てれば幸いです。ごゆっくりご覧ください。

◆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

正規表現メモ

Testメソッド

RegExp オブジェクト

おわりに

以下のページには、すべてのTIPSがあります。もしよろしければ、どうぞ!

尚、ご感想、ご意見、誤字、脱字、間違い等がありましたら遠慮なくVB-TIPS掲示板へご指摘ください。