13-10-17, 06:39 PM
سلام عليكم
اريد تعديل ع هذا الكود والرجاء الحار مساعدتي
الكود مراد تنفيذة
النتيجة في قسم language
يجب ان تكون كما في هذه الصورة
لا تظهر
r
x
n
بل
ar
en
الكود المراد تعديلة
PHP كود :
Private Sub xml1(ByVal sender As Object, ByVal xml As String)
If MyBase.InvokeRequired = True Then
MyBase.BeginInvoke(New XmlHandler(AddressOf xml1), New Object() {sender, xml})
Else
xml = xml.Replace("""", "'")
If (xml.IndexOf("from='conference.nimbuzz.com'") <> -1) Then
If (xml.IndexOf("<field var='jid' type='jid-single'><value>") <> -1) Then
Dim str As String = xml.Substring((xml.IndexOf("<field var='jid' type='jid-single'><value>") + 42))
str = str.Substring(0, str.IndexOf("@"))
Me.ListBox1.Items.Add((str))
If (xml.IndexOf("<field var='num_users' type='text-single'><value>") <> -1) Then
Dim str2 As String = xml.Substring((xml.IndexOf("<field var='num_users' type='text-single'><value>") + 49))
str2 = str2.Substring(0, str2.IndexOf("</value>"))
Me.ListBox2.Items.Add((str2))
End If
If (xml.IndexOf("<field var='is_member_only' type='boolean'><value>") <> -1) Then
Dim str3 As String = xml.Substring((xml.IndexOf("<field var='is_member_only' type='boolean'><value>") + 49))
str3 = str3.Substring(0, str3.IndexOf("</value>"))
Me.ListBox3.Items.Add((str3))
End If
If (xml.IndexOf("<field var='language' type='text-single'><value>") <> -1) Then
Dim str4 As String = xml.Substring((xml.IndexOf("<field var='language' type='text-single'><value>") + 49))
str4 = str4.Substring(0, str4.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
وهي تحديد اللغة كما في صورة اعلاها
وشكرا