23-01-16, 06:56 PM
السلام عليكم
يمكنكم إستخدام هذه الدالة لحذف الاقواس التي تظهر داخل مربع النص البرمجي
يمكنكم إستخدام هذه الدالة لحذف الاقواس التي تظهر داخل مربع النص البرمجي
كود :
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