В предложении убрать скобки и то, что находиться в них - VB

Формулировка задачи:

Я написал код, но он убирает одну скобку а остальные оставляет. Как сделать, чтобы убирались все скобки?

Private Str1, str2 As String
Private pos1, pos2 As Long
 
Private Sub Command1_Click()
Str1 = Text1.Text
pos1 = InStr(Str1, "(")
pos2 = InStr(Str1, ")")
str2 = Left(Str1, pos1 - 1) & Right(Str1, Len(Str1) - pos2)
Text2.Text = str2
End Sub

Решение задачи: «В предложении убрать скобки и то, что находиться в них»

textual
                            Листинг программы 
                        

                            Private Str1 As String, str2 As String 'Указывайте тип для
Private pos1 As Long, pos2 As Long 'каждой переменной!
 
Private Sub Command1_Click()
Str1 = Text1.Text
while InStr(Str1, "(")>0 and InStr(Str1, ")")>InStr(Str1, "(")
  pos1 = InStr(Str1, "(")
  pos2 = InStr(Str1, ")")
  str1 = Left(Str1, pos1 - 1) & Right(Str1, Len(Str1) - pos2)
wend
Text2.Text = str1
End Sub
                        

Оцени полезность:

12 голосов , оценка 3.917 из 5

Похожие ответы