Помогите проверить, открыта ли скобка!
Необходими проверить в TextBoxe после нажатия определенной кнопки закрыта ли вторая скобка (при условии, конечно, что одна открыта) и их кол-во равно в данном тексте...

Ну и в чем проблема?
Вариант первый: посчитали одни и вторые скобки, если их кол-во одинаковое, то все Ок. см. функции Left, Mid, Right, InStr и т.д.
Вариант второй: написать парсер, что посложнее (и возможно нафиг не нужно в данной ситуации ).

Начинай писать код, а там разберемся...

Код

dim temp() as string dim tmp as string dim i as integer temp = split(textbox.text,chr(34)) tmp = "" for i = 0 to ubound(temp) step 2    tmp=tmp & temp(i) next i if ubound(split(tmp,"(")) <> ubound(split(tmp,")")) then    debug.print "Количество скобок не совпадает" end if

Ты уверен, что chr(34)!!! Если да, то поясни
И еще вопрос: Не мог бы ты так сделать, чтобы в случае нарушения баланас скобок, типа Например, ))(( или )(() и т.д.) Это как-нить сигнализировалось, заранее благодарю!!!

Цитата

типа Например, ))(( или )(() и т.д.) Это как-нить сигнализировалось, заранее благодарю!!!

Модератор: Нет, извиняюсь, а самому пораскинуть мозгами лень? Тут тебе помогут сделать то, что ты не можешь, а если ты сам делать ничего не хочешь, то никто за тебя все делать не будет... Я еще не видел ни одной строчки твоего кода!

Цитата

Это как-нить сигнализировалось

см. функция Beep.

Вот мой вариант кода, я его практически дописал, но как выяснилось не очень правильно...Исправьте, пожалуйста!!!


Private Sub cmd1_Click()
Dim skobka1, skobka2, s1, s2
Dim stroka$
Dim parn%, a%, k%, i%
stroka = txt1.Text
skobka1 = Split(stroka, "(")
skobka2 = Split(stroka, ")")

If UBound(skobka1) = UBound(skobka2) Then
txt1.ForeColor = &H0&
Else
txt1.ForeColor = &HFF&
End If
For i = 1 To Len(stroka)
If Mid(stroka, i, 1) = ")" Or Mid(stroka, i, 1) = "(" Then a = a + 1
Next i
For i = 1 To Len(stroka)
s1 = Mid(stroka, i, 1)
If s1 = "(" Then
For k = i + 1 To Len(stroka)
s2 = Mid(stroka, k, 1)
If s2 = ")" Then parn = parn + 1
Next k
End If
Next i
txt1.Text = a
If s1 = parn Then
MsgBox "Скобки расставлены верно"
Else: MsgBox "Сбалансированность скобок нарушена"
End If
End Sub

Код

Dim iCount As Integer Private Sub cmd1_Click() Dim i As Integer Dim Stroka As String Dim str1 As String Stroka = txt1.Text pic1.Cls iCount = 0 i = 1 Do While i <= Len(Stroka) str1 = Mid(Stroka, i, 1) If str1 = "(" Then i = Skobka(Stroka, i) If i = 0 Then MsgBox "Zakryvayushaya skobka ne naydena" Exit Sub End If ElseIf str1 = ")" Then MsgBox "Otkrivayushaya skobka ne naydena" Exit Sub End If i = i + 1 Loop End Sub Function Skobka(Stroka As String, iCurPoz As Integer) As Integer Dim i As Integer Dim str1 As String i = iCurPoz + 1 Do While i <= Len(Stroka) str1 = Mid(Stroka, i, 1) If str1 = "(" Then i = Skobka(Stroka, i) If i = 0 Then Exit Function ElseIf str1 = ")" Then Skobka = i iCount = iCount + 1 pic1.Print iCount; ". "; Mid(Stroka, iCurPoz, i - iCurPoz + 1) Exit Function End If i = i + 1 Loop End Function

Цитата

Не мог бы ты так сделать, чтобы в случае нарушения баланас скобок, типа Например, ))(( или )(() и т.д.) Это как-нить сигнализировалось, заранее благодарю!!!

А осталные сам проверяй ...

В написанном мною коде почему-то не предусматривается вариант, типа - ()) или например, __)[code=vb]


Private Sub cmd1_Click()
Dim stroka$
Dim k%, i%, j
stroka = txt1.Text
k = 0
For i = 1 To Len(stroka)
If Mid(stroka, i, 1) = "(" Then k = k + 1
If Mid(stroka, i, 1) = ")" Then k = k - 1
If k < 0 Then MsgBox "Баланск скобок нарушен!"
Exit For
Next

К мою рекурсивную функцию добав некоторые коды, который обработавшую данные и декларацию Beep в началу модула:

Код

Private Declare Function Beep Lib "kernel32" _         (ByVal dwFreq As Long, _         ByVal dwDuration As Long) As Long

Код

For i = 1 To 2 Beep 800 + i * 100, 100 Next

Добавлено @ 14:41

Цитата(Guest @ 17.12.2005, 14:28)

If k < 0 Then MsgBox "Баланск скобок нарушен!" Exit For

Постав мессаг в следующую строку и после Exit For постав End If

В твоем коде цикл работает только один раз ...

Цитата(Guest @ 17.12.2005, 14:20)

Код Dim iCount As Integer Private Sub cmd1_Click() Dim i As Integer Dim Stroka As String Dim str1 As String Stroka = txt1.Text pic1.Cls iCount = 0 i = 1 Do While i <= Len(Stroka) str1 = Mid(Stroka, i, 1) If str1 = "(" Then i = Skobka(Stroka, i) If i = 0 Then MsgBox "Zakryvayushaya skobka ne naydena" Exit Sub End If ElseIf str1 = ")" Then MsgBox "Otkrivayushaya skobka ne naydena" Exit Sub End If i = i + 1 Loop End Sub Function Skobka(Stroka As String, iCurPoz As Integer) As Integer Dim i As Integer Dim str1 As String i = iCurPoz + 1 Do While i <= Len(Stroka) str1 = Mid(Stroka, i, 1) If str1 = "(" Then i = Skobka(Stroka, i) If i = 0 Then Exit Function ElseIf str1 = ")" Then Skobka = i iCount = iCount + 1 pic1.Print iCount; ". "; Mid(Stroka, iCurPoz, i - iCurPoz + 1) Exit Function End If i = i + 1 Loop End Function Цитата Не мог бы ты так сделать, чтобы в случае нарушения баланас скобок, типа Например, ))(( или )(() и т.д.) Это как-нить сигнализировалось, заранее благодарю!!! А осталные сам проверяй ...

Большое спасибо за присланный код! Буду вечно благодарен тебе!

Что будет, если

txt1.Text = "Этот символ - ""("" - называется скобкой."

А? я не зря вырезаю литералы.

Цитата(Guest @ 17.12.2005, 14:20)

Код Dim iCount As Integer Private Sub cmd1_Click() Dim i As Integer Dim Stroka As String Dim str1 As String Stroka = txt1.Text pic1.Cls iCount = 0 i = 1 Do While i <= Len(Stroka) str1 = Mid(Stroka, i, 1) If str1 = "(" Then i = Skobka(Stroka, i) If i = 0 Then MsgBox "Zakryvayushaya skobka ne naydena" Exit Sub End If ElseIf str1 = ")" Then MsgBox "Otkrivayushaya skobka ne naydena" Exit Sub End If i = i + 1 Loop End Sub Function Skobka(Stroka As String, iCurPoz As Integer) As Integer Dim i As Integer Dim str1 As String i = iCurPoz + 1 Do While i <= Len(Stroka) str1 = Mid(Stroka, i, 1) If str1 = "(" Then i = Skobka(Stroka, i) If i = 0 Then Exit Function ElseIf str1 = ")" Then Skobka = i iCount = iCount + 1 pic1.Print iCount; ". "; Mid(Stroka, iCurPoz, i - iCurPoz + 1) Exit Function End If i = i + 1 Loop End Function Цитата Не мог бы ты так сделать, чтобы в случае нарушения баланас скобок, типа Например, ))(( или )(() и т.д.) Это как-нить сигнализировалось, заранее благодарю!!! А осталные сам проверяй ...

Можно пару комментариев к твоей проге.??? Зачем i = i + 1 в конце функции и зачем If i = 0 в каждой из в каждой процедуре???

Akina ты прав, но я не обратыл внимание на этого в свою коду. Но если так, возникают и другие проблемки:
1. Если текст в кавичках не один символ скобка и у него тоже есть некоторые скобки: они не проверяется.
2. И у моей коде тоже есть некоторые проблемы, он не проверяеть такой пример: (")(")

По моему, эта не очень сложная проблема. Его можно решить и с твоём кодом.

coderx, если вы думаете, что писать с ошибками -- круто, вы глубоко заблуждаетесь...
Лично я из последнего поста ничего не понял.
По сабжу: имхо, проще найти парсер и не париться