[Fantastico]

السلام عليكم
يمكنكم إستخدام هذه الدالة لحذف الاقواس التي تظهر داخل مربع النص البرمجي

كود :

Function RemoveHilals(ByVal Text As String) As String
       Dim txt As String = Text
       Dim ret As String = ""


       Dim h As Boolean = True
       Dim i As Integer = 0

       Do While i <= txt.Length - 1

           If txt.Chars(i) = "[" Then
               h = False
           ElseIf txt.Chars(i) = "]" Then
               h = True
               GoTo 1
           End If

           If h = True Then
               ret &= txt.Chars(i)
           End If
1:          i += 1
       Loop


       Return ret
   End Function