من این کد رو نوشتم تو یه برنامه تست کردم درست بود اما تو برنامه اصلی کار نمیکنه
یعنی آیدی لاگین میشه اما اددلیست لود نمیشه کمک
Dim N() As String = Regex.Split("<", xml) If xml.Contains("<query xmlns='jabber:iq:roster'") Then For i=0 To N.Length-1 If N(i).Contains("subscription='both'") Then from = N(i) from = from.SubString(from.IndexOf("jid='")+5) from = from.SubString2(0, from.IndexOf("@")) lstAdd.Add(from) lblCount.Text = "Your Fix Add Count : "&lstAdd.Size End If Next End If
سوال
نیما 30
سلام دوستان
شرمنده یه سوال واسم پیش اومد
من این کد رو نوشتم تو یه برنامه تست کردم درست بود اما تو برنامه اصلی کار نمیکنه
یعنی آیدی لاگین میشه اما اددلیست لود نمیشه کمک
Dim N() As String = Regex.Split("<", xml)
If xml.Contains("<query xmlns='jabber:iq:roster'") Then
For i=0 To N.Length-1
If N(i).Contains("subscription='both'") Then
from = N(i)
from = from.SubString(from.IndexOf("jid='")+5)
from = from.SubString2(0, from.IndexOf("@"))
lstAdd.Add(from)
lblCount.Text = "Your Fix Add Count : "&lstAdd.Size
End If
Next
End If
لینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.