文字列中の両丸括弧を取り除くVBA正規表現

質問

文字列中の両括弧を取り除く正規表現を求めています．

入力文は「(文字列１)文字列２」となっています．

両括弧は全角の丸括弧"（","）"と半角の丸括弧"(",")"のペアを見つけ，文字列２を取り出したいのです．

文字列１，文字列２は全角，半角の文字列（主に全角）が来ます．括弧の中に括弧が入れ子（ネスト）する事は想定していません．

例えば，「（グループA)田中」という入力に対しては，「田中」をExcel VBAで抽出したいのです．
正規表現ライブラリを使っていますが，別の方法でも効率良く抽出できるならOKです．

'---------------　　以下を試した結果　　---------------------------------

Dim RE, strPattern As String, reMatch
Set RE = CreateObject("VBScript.RegExp")
' 'strPattern = "^(\(|（).*(\)|）)$"
' 'strPattern = "(?!.*[（|\(].+?[\)|）])" ' "(グループA)"にマッチする
' 'strPattern = "([\(.+?\)|（.+?）])"
' 'strPattern = "(^[（|\(].+?[\)|）])"
' strPattern = "^(?!.*[（|\(].+?[\)|）])" ' ""
' 'strPattern = "\(.+?\)"
' strPattern = "^(?!.*[\(.+?\)|（.+?）])" ' ""
' strPattern = "(?!.*[（.+?）])" ' ""
' strPattern = "（.+?）" ' "(グループA)"にマッチする
' strPattern = "^[?!.*(（.+?）)]" '
' strPattern = "[^(（.+?）)]" '
' '.Pattern = "^(?!.*xyz)"
' 'strPattern = "^(?!.*（[.+?]）)" ' ""
' strPattern = "[^（.*）]" '"グ","ル",,,
' strPattern = "^(?!（[.*]）.*)" ' ""
' strPattern = "^(?!（.*）.*)" ' ""
' strPattern = "^(?!（[.*]）)" ' ""
strPattern = "）.*$" ' ""

With RE
.Pattern = strPattern
.IgnoreCase = True
.Global = True
Set reMatch = .Execute(str)
If reMatch.Count > 0 Then
str = reMatch(0).Value
End If
End With

'開放
Set reMatch = Nothing
Set RE = Nothing

回答No.1

mu2011 · ベストアンサー

取り敢えず正規表現です。

Set RE = CreateObject("VBScript.RegExp")
strPattern = "（.*）|\(.*\)"
With RE
.Pattern = strPattern
.IgnoreCase = True
.Global = True

If .test(str) Then
str = .Replace(str, "")
End If
End With

お礼

回答ありがとうございました．
このとおりでできました．
（返信したつもりでしたが，書き込まれておりませんでした．失礼しました．）

回答No.2

nda23

正規表現は"(\(|（).*?(\)|）)"です
意味は↓
半角左カッコまたは全角の左カッコ、
の後に文字が幾つか続き、直近の
半角右カッコまたは全角の右カッコ、
で終わる。
後はReplaceメソッドで、一致した所を
空文字列で置き換えます。

お礼

回答ありがとうございました．