［Script］［VBS］正規表現を使う（RegExp）

VB Script で正規表現を使います。

やり方は作成した RegExp オブジェクトに文字列パターンと検索条件（大文字と小文字の区別をするか文字列全体を検索するかなど）をプロパティにセットして指定してあげます。

そして Execute メソッドを実施すれば検索結果の件数などが取得できるし、 Replace メソッドを使えば文字列の置換を行えます。

正規表現サンプル（RegExp オブジェクト）

Set regEx = New RegExp

'文字列検索
regEx.Pattern = "【[2-3]|[２-３]】"
Set Matches = regEx.Execute(strData)
MsgBox "検索文字列は" & Matches.Count & "個見つかりました。"
For Each Match In Matches
    MsgBox "文字列の位置： " & Match.FirstIndex & vbCrLf & "見つかった文字列：　" & Match.Value
Next

'文字列置換
regEx.Pattern = "\[m:[0-9]+\]"
Found = regEx.Test(strLineData)    'Test メソッドは検索結果があるときに True を返します。
If Found Then strLineData = regEx.Replace(strLineData, "。")

'プロパティを全部セットするとこんな風になります。
With regEx
  .Pattern = "\[m:[0-9]+\]"
  .IgnoreCase = No '大文字小文字の区別を行う
  .Global = True '文字列全体を検索
End With
Found = regEx.Test(strLineData)    'Test は検索結果があるときに True を返します。
If Found Then strLineData = regEx.Replace(strLineData, "。")

---

Script のページに戻る