エクセル VBA 正規表現について

Question

前提・実現したいこと

VBAの正規表現を使って、文字列を取得したいです。

F-701-31/2
H140-2/1

といったデータから、

701-31/2
140-2/1

を取り出したいです。

発生している問題・エラーメッセージ

該当のソースコード

reg.Pattern = "\d{1,6}-\d{1,6}"

試したこと

701-31
140-2
は取り出せたのですが、「/」とそれ以降の数値が取れません。

また、「/数値」が無く「11-22」といった場合でも「11-22」で取り出したいです。

ご教示お願いします。

Comments

[coco_bauer]

文字列を取り出すルールは、どうなっているのですか？　"H140-2/1"から"140-2/1"は、「最初の数字以外の文字を取り除く」で出来そうに思いますが、"F-701-31-7/2"から"701-31/2"は、「最初の数字以外の文字を取り除いて、さらに２つめの-と、それに続く数字を取り除く」ですか？

[sprn]

ご回答ありがとうございます。
失礼しました。
F-701-31-7/2 はイレギュラーなものでした。
文字列から「数値-数値/数値」を取り出したいです。
また、「/数値」がなくても「数値-数値」で取れればと思っております。

Answer 1

わざわざ難しい正規表現を使わず、
地道に処理していく方が確実だと思います。

一番左がアルファベットなら除去して、
一番左が「-」なら除去、
それだけで済みますよ。

アルファベットの判定は、↓のような感じだったかな。
Select Case LCase(１文字)
Case "a" to "z"

End Select

まぁ頑張ってください。

Comments

[sprn]

ご回答ありがとうございます。
皆様の回答で分かったのですが、イレギュラーな対応を正規表現で処理するのは無理でした。
ありがとうございました。

Answer 2

こんな感じでしょうか。
質問編集前のイレギュラーにも対応してありますが、イレギュラーかつ/以降なしケースなど考えると以下では不十分かもしれません。

Set reg = CreateObject("VBScript.RegExp")
reg.Pattern = "(\d+-\d+)([-\d]*)(/\d+)*"
Set mc = reg.Execute("F-701-31-7/2")
If mc.Count > 0 Then
    Select Case mc.Item(0).SubMatches.Count
        Case 1
            Debug.Print mc.Item(0).SubMatches.Item(0)
        Case 2
            Debug.Print mc.Item(0).SubMatches.Item(0) & mc.Item(0).SubMatches.Item(1)
        Case 3
            Debug.Print mc.Item(0).SubMatches.Item(0) & mc.Item(0).SubMatches.Item(2)
    End Select
End If
Set reg = Nothing

イレギュラーケースに対応しなくてよいなら下記でよいと思います。

Set reg = CreateObject("VBScript.RegExp")
reg.Pattern = "(\d+-\d+(/\d+)*)"
Set mc = reg.Execute("F-701-31/2")
If mc.Count > 0 Then
    Debug.Print mc.Item(0)
End If
Set reg = Nothing

Comments

[sprn]

とても分かり易い回答ありがとうございます。
やはり１発では出来ないですね。
１つずつ処理します。
ありがとうございました。

Answer 3

reg.Pattern = "\d{1,6}-\d{1,6}"

ここまで出来ているので、

reg.Pattern = "\d{1,6}-\d{1,6}/\d{1,6}"

が分からないはずがないと思うのですが、これとは違うんでしょうか？

Comments

[sprn]

ご回答ありがとうございます。
すみません、１回で取れるものではなかったみたいです。
ありがとうございました。