質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

89.65%

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

解決済

回答 2

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 4,358

kurosuke___

score 211

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

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]"
にすると動きます。

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 2

checkベストアンサー

+1

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

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

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2016/05/24 15:45

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

    キャンセル

  • 2016/05/24 15:58

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

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

    キャンセル

  • 2016/05/25 12:21

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

    キャンセル

0

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

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

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

です。

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

.Pattern = "\S+区"

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

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2016/05/24 16:01

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

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 89.65%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる