использование пользовательских функций

[Jaroslav]

Ребята, мне нужно удалять текст, находящийся между двумя парными скобками [ ], включая сами скобки. Имеется в виду 1 пара скобок. Спасибо, IgorGO и Hugo121

[IgorGO]

уважаемый,

вопрос был таким:
в ситуации t1[t2[t3]t4 какие скобки определяют пару (что должно остаться после удаления t1[t2t4 или t1t4?) предложенная мною функция оставит t1[t2t4
а ранее опубликованная Вами t1t4

зато в ситуации t1[t2[t3]t4]t5
моя оставит: t1t5
а Ваша: t1t4]t5

[AndVGri]

IgorGO

в ситуации t1[t2[t3]t4
зато в ситуации t1[t2[t3]t4]t5

Так может упростить без цикла по первой [ и последней ]?

Public Function DeleteTextInBrackets(ByVal this As String) As String
    Dim vStart As Long, vEnd As Long
    vStart = InStr(this, "[")
    vEnd = InStrRev(this, "]")
    If (vStart > 0) And (vEnd > 0) Then
        DeleteTextInBrackets = Mid$(this, 1, vStart - 1) & Mid$(this, vEnd + 1)
    End If
End Function

Ну, может добавить классику на проверку парности открытых и закрытых и при нарушении возвращать ошибку

[IgorGO]

t1[t2]t3[t4]t5
по первой и последней останется t1t5 и проверки пройдут и пары совпадают, а короткой фразе описывающей задачу "надо удалять данные в скобках" должно остаться t1t3t5. вот моя функция именно это и оставит.

а с данными типа t1[t2[t3]t4 - не совсем понятно какие данные в скобках только [t3] или [t2[t3]

по первому и последнему - однозначно нет, и у меня там не только цикл, а еще рекурсия присутствует - DeleteTextInBrackets вызывает саму себя.

как в толковом словаре:
Рекурсия - см. рекурсия