Hatena::Groupuwsc

VBScript.RegExp

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

VBScript.RegExp

VBScript.RegExp

概要

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

サンプル

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

Main()

Procedure Main()
    Dim strSrc
    Dim strDst
    strSrc = "abcあいうえおDEF"
    strDst = RemoveJapaneseString( strSrc )
    Print "strSrc = [" + strSrc + "]"
    Print "strDst = [" + strDst + "]"
Fend

Function RemoveJapaneseString( strData )
    Dim strResult
    Dim re
    re = CreateOleObj("VBScript.RegExp")
    re.Global = True   
    re.Pattern = "[^A-Za-z]"
    strResult = re.Replace(strData, "")
    Result = strResult
Fend
実行結果
strSrc = [abcあいうえおDEF]
strDst = [abcDEF]

参考情報