+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الاقسام الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=74)
+--- قسم : قسم المقالات العام (http://vb4arb.com/vb/forumdisplay.php?fid=85)
+--- الموضوع : حل مشكلة مربع الأكواد في مواضيع الموقع (/showthread.php?tid=14488)
حل مشكلة مربع الأكواد في مواضيع الموقع - Fantastico - 23-01-16
السلام عليكم
يمكنكم إستخدام هذه الدالة لحذف الاقواس التي تظهر داخل مربع النص البرمجي
كود :
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 FunctionRE: حل مشكلة مربع الأكواد في مواضيع الموقع - VB_Local - 23-01-16
عاشت الايادي
بارك الله فيك