VBScriptのRegExpのExecuteで文字列が抽出できない

Question

〒000-0000 ○○県○○区○○２丁目
のような文字列から○○県○○区という文字を抽出したいのですがうまくいきません。

Sub TEST01()

Dim RE, Matches
Dim Mojiretsu As String
Dim xxx As String
Dim i As Integer
Dim moji As Range
i = 2

Set RE = CreateObject("VBScript.RegExp")            '正規表現を使用可能にするオブジェクトを作成

Set moji = Worksheets("INPUT").Cells(i, 3)
Mojiretsu = moji.Value                              '検査対象文字列指定
            If InStr(Mojiretsu, "区") > 0 Then
            With RE
            .Pattern = "\s.*区"                         
            .IgnoreCase = True                         
            .Global = True                              
        End With
            Set Matches = RE.Execute(Mojiretsu)
            xxx = Matches(0).Value
            Worksheets("カテゴリ名抽出").Cells(i, 2).Value = xxx
            Set Matches = Nothing
            Set RE = Nothing
End Sub

※質問用にループ処理は取り払っています

このようにしているのですが、
xxx = Matches(0).Value
の部分でエラーになってしまいます。
エラー→「プロシージャの呼び出し、または引数が不正です」

何か解決策はありませんか？

ちなみに、.Patternの正規表現を"[0-9]"や"[^0-9]"
にすると動きます。

Answer 1

マッチしていないのではないでしょうか。
パターンが｢スペースではじまり区で終わる｣になっているかと思います。

xxx = Matches(0).Valueの前でMatches.countを評価することが必要ではないでしょうか。

Comments

[kurosuke___]

お返事が遅れてすみません。
そうですね、「スペースで始まって区で終わる」その部分を抽出したいのです。
〒000-0000 ○○県○○区○○２丁目 の○○県○○区の部分だけを別のセルに抽出したいのです。
If Matches.Count <> 0 Then
で評価しましたら、elseになってしまいました。
そもそもマッチという言葉の意味も間違っているのでしょうか・・・
全く見当違いのことをしているのでしょうか・・・？

[kaz.Suenaga]

想像ですけど、スペースがいわゆる全角だったり、複数個あったり、なかったりするデータが混じっていませんか。
そういったデータ側と想定している処理の整合性が取れていないだけであって、やろうとしている処理は妥当に見えます。

とりあえず .Count で ０ になっているものは一旦渡された元の文字列を返す、などしてみて、どういう文字列が渡されたときにそういった状況が起こっているか確認してみてはいかがでしょうか。

[kurosuke___]

ありがとうございます。スペースが全角でした・・・こんなに初歩的なミスをするなんて・・・
助かりました。ありがとうございます。

Answer 2

ちょっと確認ですが、今やりたいことは以下のような事ですか？

1. 抽出元は住所を表す文字列
2. 住所は、都道府県や市区町村などが空白区切りになっている
3. 文字列に「区」という文字が含まれていた場合に「○○区」という文字列を抽出したい

まず、pattern に使用可能な正規表現のメタ文字のセットを確認すると
Pattern プロパティ

です。

そこで、住所の各部分が「空白区切り」になっているという前提がとても重要なのですが、「○○区」の「○○」の部分は「空白を含まない１文字以上の文字列」と考えることが出来るので、以下のように表現可能だと思います。

.Pattern = "\S+区"

それでも上手くマッチしないなら、そもそも元の文字列が正しく「空白区切り」になっているかを、先ずは再確認してみた方が良いと思います。

Comments

[kurosuke___]

お返事が遅れてすみません。
１．その通りです
２．郵便番号␣都道府県名市町村区住所という感じです
３．区という文字が含まれていた場合「 ○○県○○区」を抽出して、ほかのセルにセットしたい
このような感じです。
.Pattern = "\S+区"
にかえましたところ、郵便番号も入ってしまっていましたが、きちんとMatchesコレクションの[0]に格納され、セルにセットできました。