تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حل مشكلة مربع الأكواد في مواضيع الموقع
#1
السلام عليكم
يمكنكم إستخدام هذه الدالة لحذف الاقواس التي تظهر داخل مربع النص البرمجي

كود :
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
الرد }}}
#2
عاشت الايادي
بارك الله فيك
(( وَبَشِّرِ الصَّابِرِينَ الَّذِينَ إِذَا أَصَابَتْهُم مُّصِيبَةٌ قَالُواْ إِنَّا لِلّهِ وَإِنَّا إِلَيْهِ رَاجِعونَ ))
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم