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

Question

正規表現は苦手なもので、すみませんが教えてください。

下のサンプルで、マッチングに "[(|（].*?[)|）]$"を指定すれば、最後から最短の()内を取得できるものと期待していましたが、実行してみると最短の「(c)」ではなく「(a)x(b)y(c)」がマッチしてしまうようです。

$を除いて"[(|（].*?[)|）]"と"[(|（].*[)|）]"で実行してみると、ちゃんと違いがあるのですが…
$をつけた場合で最短の表記方法は、どのようにすればよいのでしょうか？

Sub sample()
Dim RegE, RegMc
Dim str1 As String, str2 As String

　Set RegE = CreateObject("VBScript.RegExp")
　str1 = "test(a)x(b)y(c)"
　str2 = ""
　RegE.Pattern = "[(|（].*?[)|）]$"

　Set RegMc = RegE.Execute(str1)
　If RegMc.Count > 0 Then
　　str2 = RegMc(0).Value
　　str1 = RegE.Replace(str1, "")
　End If
　MsgBox (str1 & vbLf & str2)
End Sub

Wendy02 · Accepted Answer

こんばんは。

こんな感じかな？

>"[(|（].*?[)|）]$"　

VBScript の正規表現には、.*? の「最短マッチ」がなかったと思います。あれば、私は苦労しなかったと思います。それで、タイプライブラリを入れて、BRegExp なんていうものを代用したりするわけですが、他人の環境では強要できません。そうすると、他は、やはり、InstrRev などを使って取り出して使うことになってしまいます。

今回は、仕方がないので、中に入れる文字を特定して、マッチする部分を区分けしなければいけません。

　\w+　の場合は、数字、アルファベット、アンダーバーに限ります。
　[ぁ-龠]+　なら、全角文字です。

　それと、私が書くパターンは、最後尾の$を用いずに、(a) を数えて、その最後を出すという方法を取ります。
以下のコードの部分を変えます。

　Pattern = "[$（]\w+[）$]"　'パターン
　str2 = RegMc(RegMc.Count - 1)　'抽出

'------------------------

Sub sample1()
　　Dim RegMc As Variant
　　Dim str1 As String
　　Dim str2 As String
　　str1 = "test(a)x(b)y(c)"
　　str2 = ""
　　With CreateObject("VBScript.RegExp")
　　　　.Pattern ="[$（]\w+[）$]$"　'パターン
　　　　.Global = True
　　　　Set RegMc = .Execute(str1)
　　　　If RegMc.Count > 0 Then
　　　　　　str2 = RegMc(0) '抽出
　　　　End If
　　　　MsgBox (str1 & vbLf & str2)
　　End With
End Sub

Wendy02 · Answer

こんにちは。

一応、自分の描いていたものをコード化してみました。

>句読点、「(1)」「々」などの使いそうな文字もはねられてしまうので、範囲を段々広げてみたりもしましたが

カッコの中に、カッコがある場合に、除外するようにしてみました。

Const SRC As String = "(株),(財),(a)" '検索語
Const REP As String = "α,β,γ" '臨時の置換語

このように臨時に置き換えます。参考にしてみてください。もし、分からない部分がありましたら、新たに質問を出してください。


'----------------------------------------------------

Const SRC As String = "(株),(財),(a)" '検索語
Const REP As String = "α,β,γ" '臨時の置換語
'SRC と REP の数は、必ず揃えてください。

Sub Test1()
Dim str1 As String
Dim ret As String
　　str1 = "test(a)x(b)y(c(a))"
　　ret = rePickUp(str1)
　　MsgBox str1 & vbCrLf & ret
End Sub

Function rePickUp(mTxt As String)
　　Dim Matches As Object
　　Dim rTxt As String
　　Dim i As Integer
　　mTxt = RepW(mTxt, False)
　　With CreateObject("VBScript.RegExp")
　　　　.Pattern = "$[^$]+\)"
　　　　.Global = True
　　　　Set Matches = .Execute(mTxt)
　　　　i = Matches.Count
　　　　If i > 0 Then
　　　　　　rTxt = Matches(i - 1)
　　　　End If
　　End With
　　rTxt = RepW(rTxt, True)
　　rePickUp = rTxt
End Function
Function RepW(mTxt As String, Optional flg As Boolean = False)
　　Dim i As Integer
　　Dim oTxt As String
　　Dim ret As String
　　Dim wdRep1 As Variant
　　Dim wdRep2 As Variant
　　wdRep1 = Split(SRC, ",")
　　wdRep2 = Split(REP, ",")
　　oTxt = Replace(mTxt, "）", ")", 1)
　　oTxt = Replace(oTxt, "（", "(", 1)
　　If flg = False Then
　　　　For i = 0 To UBound(wdRep1)
　　　　　　ret = Replace(oTxt, wdRep1(i), wdRep2(i))
　　　　Next i
　　Else
　　　　For i = 0 To UBound(wdRep1)
　　　　　　ret = Replace(oTxt, wdRep2(i), wdRep1(i))
　　　　Next i
　　End If
　　RepW = ret
End Function

Wendy02 · Answer

こんにちは。

>全角英数や句読点、「(1)」「々」などの使いそうな文字もはねられてしまうので、

#4のレスを読みましたが、本格的に作るとなると、作り直さないといけないように思います。VBAというよりは、正規表現や文字処理も問題です。実際の文字列を見て、パターン自体を考え直さないといけないような気がします。あまり単純な方法ではできないかもしれません。もともと、VBA内は、Unicode ですから、JISのように一括でできるわけではなく、リストが分散しています。

例："[\u2421-\u2473\u2521-\u2576\uFF66-\uFF9F０-９Ａ-ｚ]+

Wendy02 · Answer

こんにちは。

もともと最短マッチは、一番先に見つけていたものに対して、最短距離のものを引き出すわけですから、意味が違いますね。今回、(a) (b) (c) の数が決まらないとすれば、しばらく考えてみましたが、以下の方法を考えてみました。ここの掲示板の常連さんたちが考えるパターンのような気がします。(笑)

全角、半角の問題が少し見にくくなりますから、Replace を使ったらどうでしょうか。（これは私が良く使うパターン）いずれにしても、実務的には、最終的には、統一するのではないでしょうか？


"[$（][^$（]+[）$]"
　　↓
"$[^$]+$"

Sub sample2()
　　Dim RegMc As Variant
　　Dim i As Integer
　　Dim str1 As String
　　Dim str2 As String
　　str1 = "test(a)x(b)y(ccccaa）"　　'←全角が入っています
　　str1 = Replace(str1, "（", "(", , , 1)
　　str1 = Replace(str1, "）", ")", , , 1)
　　str2 = ""
　　With CreateObject("VBScript.RegExp")
　　　　.Pattern = "$[^$]+\)"
　　　　.Global = True
　　　　Set RegMc = .Execute(str1)
　　　　i = RegMc.Count
　　　　If i > 0 Then
　　　　　　str2 = RegMc(i - 1)
　　　　End If
　　　　MsgBox (str1 & vbCrLf & str2)
　　End With
End Sub


正規表現を使わない方法
(私が実際に書く方法です。RegExp は、オブジェクトを最初に作っておくか、参照設定するなら良いのですが、インスタンスが生成されますから、もし、短い期間なら、VB関数で処理してしまいます。ネット検索では、こちらの方が速いようです。複雑なものには向いていません。）

Sub sample3()
　　Dim RegMc As Variant
　　Dim i As Integer
　　Dim j As Integer
　　Dim str1 As String
　　Dim str2 As String
　　str1 = "test(a)x(b)y(ccccaa）" '←全角が入っています
　　str2 = ""
　　i = InStrRev(str1, "(", , 1) '1...TextCompare
　　j = InStr(i, str1, ")", 1)
　　If i > 0 And j > 0 Then
　　　str2 = Mid$(str1, i, j - i + 1)
　　End If
　　MsgBox str1 & vbCrLf & str2
End Sub

私は、この種のマクロが一番多いのに、少しも覚えないですね。（^^;Perlの勉強を辞めてしまったからですが。

Wendy02 · Answer

#3 の補足の部分
>関係のないつもりでいた、"[(|（]"部分も訂正いただき恐縮です。
\( も　( も両方とも行けるようでしたが、なんとなく、違っていたような気がしました。 | は、その左右が、二文字以上で、文字列を( ) で括った場合に、その文字列どちらかになる、ということだったと思います。この場合は、どちらでも同じです。

VBScript の正規表現は、簡単なようでも、逆に、標準ではありません。Perl 標準のものを出してほしいものですね。

他は、また、見てみます。

n-jun · Answer

＃１です。

もしかして
str1 = "test(a)x(b)y(c)abcd"
でも最後尾の(c)を取得したいなら、

Sub sample()
Dim RegE, RegMc
Dim str1 As String, str2 As String

Set RegE = CreateObject("VBScript.RegExp")

str1 = "test(a)x(b)y(c)abcd"
str2 = ""
RegE.Pattern = "$.?$"
RegE.Global = True

Set RegMc = RegE.Execute(str1)

MsgBox RegMc.Item(RegMc.Count - 1)

End Sub

こんな感じとか？

n-jun · Answer

最短とは最後尾で良いのでしょうか？

Sub sample()
Dim RegE, RegMc
Dim str1 As String, str2 As String

  Set RegE = CreateObject("VBScript.RegExp")
  str1 = "test(a)x(b)y(c)"
  str2 = ""
  RegE.Pattern = "$.?$$"
  
  MsgBox RegE.Execute(str1)(0)
  
Stop

  Set RegMc = RegE.Execute(str1)
  If RegMc.Count > 0 Then
    str2 = RegMc(0).Value
    str1 = RegE.Replace(str1, "")
  End If
  MsgBox (str1 & vbLf & str2)
End Sub

こうゆう事とは違いますか？

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

こんばんは。

この回答への補足

こんにちは。

こんにちは。

こんにちは。

#3 の補足の部分

この回答への補足

＃１です。

最短とは最後尾で良いのでしょうか？

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

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