Hatena::Groupvbscript

VBScript.RegExp

主要な Windows 標準コンポーネントの一覧 → http://vbscript.g.hatena.ne.jp/keyword/ProgID
VBScript 基礎文法最速マスター → http://vbscript.g.hatena.ne.jp/cx20/20100131/1264906231

VBScript.RegExp

VBScript.RegExp

概要

VBScript.RegExp は、正規表現を取り扱うオブジェクトを表す ProgID です。

サンプル

' File : TestRegExp.vbs
' Usage : CScript //Nologo TestRegExp.vbs
' Description : VBScript から VBScript.RegExp を使用して正規表現をテストするサンプル
Option Explicit

Call Main()

Sub Main()
    Dim strSrc
    Dim strDst
    strSrc = "abcあいうえおDEF"
    strDst = RemoveJapaneseString( strSrc )
    DebugPrint "strSrc = [" & strSrc & "]"
    DebugPrint "strDst = [" & strDst & "]"
End Sub

Function RemoveJapaneseString( strData )
    Dim strResult
    Dim re
    Set re = CreateObject("VBScript.RegExp")
    re.Global = True   
    re.Pattern = "[^A-Za-z]"
    strResult = re.Replace(strData, "")
    RemoveJapaneseString = strResult
End Function

Sub DebugPrint( strMessage )
    ' WSH で実行する場合
    WScript.Echo strMessage
    ' VBA で実行する場合
    ' Debug.Print strMessage
End Sub
実行結果
strSrc = [abcあいうえおDEF]
strDst = [abcDEF]

参考情報