تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اريد تعديل ع هذا الكود الرجاء مساعدتـي
#1
سلام عليكم
اريد تعديل ع هذا الكود والرجاء الحار مساعدتي

الكود مراد تنفيذة


النتيجة في قسم language
يجب ان تكون كما في هذه الصورة

 لا تظهر 
r
x
n
بل
ar
en

الكود المراد تعديلة
PHP كود :
Private Sub xml1(ByVal sender As ObjectByVal xml As String)
 
       If MyBase.InvokeRequired True Then
            MyBase
.BeginInvoke(New XmlHandler(AddressOf xml1), New Object() {senderxml})
 
       Else
                xml 
xml.Replace("""""'")
 
               If (xml.IndexOf("from='conference.nimbuzz.com'") <> -1Then
                If 
(xml.IndexOf("<field var='jid' type='jid-single'><value>") <> -1Then
                    Dim str 
As String xml.Substring((xml.IndexOf("<field var='jid' type='jid-single'><value>") + 42))
 
                   str str.Substring(0str.IndexOf("@"))
 
                   Me.ListBox1.Items.Add((str))
 
                   If (xml.IndexOf("<field var='num_users' type='text-single'><value>") <> -1Then
                        Dim str2 
As String xml.Substring((xml.IndexOf("<field var='num_users' type='text-single'><value>") + 49))
 
                       str2 str2.Substring(0str2.IndexOf("</value>"))
 
                       Me.ListBox2.Items.Add((str2))
 
                   End If
 
                   If (xml.IndexOf("<field var='is_member_only' type='boolean'><value>") <> -1Then
                        Dim str3 
As String xml.Substring((xml.IndexOf("<field var='is_member_only' type='boolean'><value>") + 49))
 
                       str3 str3.Substring(0str3.IndexOf("</value>"))
 
                       Me.ListBox3.Items.Add((str3))
 
                   End If
 
                   If (xml.IndexOf("<field var='language' type='text-single'><value>") <> -1Then
                        Dim str4 
As String xml.Substring((xml.IndexOf("<field var='language' type='text-single'><value>") + 49))
 
                       str4 str4.Substring(0str4.IndexOf("</value>").ToString)
 
                       Me.RichTextBox1.SelectionColor Color.Red
                        Me
.RichTextBox1.AppendText(str4 ChrW(13) & ChrW(10))
 
                       Me.RichTextBox1.SelectionStart RichTextBox1.Text.Length
                        Me
.RichTextBox1.ScrollToCaret()
 
                   End If
 
               Else
                    Label1
.Text ListBox1.Items.Count
                    Label1
.Visible True
                    Me
.LabelX3.Text "finished/انتهي"
 
                   Timer1.Enabled False
                    intx 
0
                End 
If
 
               End If
 
           End If
 
   End Sub 
وهي تحديد اللغة كما في صورة اعلاها
وشكرا
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] حدث تعديل الخلية محمد اسماعيل 5 82 19-05-19, 03:57 AM
آخر رد: elgokr
  ماهو الكود الصحيح و العملي لهذا kador 12 367 12-05-19, 05:07 PM
آخر رد: elgokr
  [VB.NET] تعديل اكتر من صف بقاعدة البيانات محمد اسماعيل 7 204 11-05-19, 09:21 PM
آخر رد: elgokr
  [VB.NET] تعديل على كود Split DK-x 3 109 11-05-19, 04:44 PM
آخر رد: elgokr
  [VB.NET] محتاج تعديل على الكود dubai.eig 2 83 07-05-19, 06:02 PM
آخر رد: dubai.eig
  [VB.NET] تحويل الكود من اكسس لsql اسامه الهرماوي 6 150 03-05-19, 01:29 AM
آخر رد: saoud2
  مشكله في تعديل الصورة قاعدة بيانات اكسس الوايلي 12 311 25-04-19, 09:26 AM
آخر رد: elgokr
  اريد كود عرض الصورة من مسار فى اليست او جريد new_programer 13 294 24-04-19, 09:41 PM
آخر رد: elgokr
  رسالة خطأ فى الكود احمد خطاب 4 152 19-04-19, 11:56 AM
آخر رد: elgokr
  [VB.NET] اريد دورة تصميم برنامج محاسبي من الصفر مع sql server mohamedhota 3 160 18-04-19, 07:52 PM
آخر رد: عبد العزيز البسكري

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


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