（）内を置換し削除させるには？ (ID:125535)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 蛇足までに。 Option Explicit Private Sub Form_Load() Text1.Text = "あ(い((う)え(お)か)きく)けこ(さし)す" Text2.Text = "最も外側の括弧を除去" Text3.Text = "最も内側の括弧を除去" Text4.Text = "内側の括弧を繰り返し除去" End Sub Private Sub Command1_Click() Dim S As String With CreateObject("VBScript.RegExp") .Global = True .Pattern = "\(.*\)" Text2.Text = .Replace(Text1.Text, "") .Pattern = "\([^\(]*?\)" Text3.Text = .Replace(Text1.Text, "") S = Text1.Text Do S = .Replace(S, "") Loop Until S = .Replace(S, "") Text4.Text = S End With End Sub # うーむ。ループさせないと無理かな……。