В предложении убрать скобки и то, что находиться в них - VB
Формулировка задачи:
Я написал код, но он убирает одну скобку а остальные оставляет. Как сделать, чтобы убирались все скобки?
Решение задачи: «В предложении убрать скобки и то, что находиться в них»
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