تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تعديل الكود بخصوص Split
#1
بسم الله الرحمان الرحيم
بعد الصلاه على الحبيب المصطفي محمد
صلى الله عليه وسلم
اما بعد / 
اريد من الاخوة المتخصصين ان يقوموا شاكرين
ع نعمة العقل التي رزقهم الله ايها بخدمتي في
تعديل هذا الكود 
المراد تعديله هوا
Dim strArray As String() = Me.textbox1.Text.Split(New Char() { "#"c })
ليصبح هكذا
Dim strArray As String() = Me.textbox1.Text

المشروع هوا عبارة عن تقليد البوت للشخص داخل الغرفة الدردشة
ولكن مااريدة هوا الغائ تقليد عده اشخاص بشخص واحد فقط
وشكراً ولن انساكم من دعائي

كود :
 Private Sub mesg(ByVal sender As Object, ByVal msg As Message)
   If MyBase.InvokeRequired Then
       MyBase.BeginInvoke(New MessageHandler(AddressOf Me.mesg), New Object() { sender, msg })
   Else
     })
 Dim strArray As String() = Me.textbox1.Text.Split(New Char() { "#"c })
       Dim index As Integer = 0
       index = 0
       Do While (index <= (strArray.GetUpperBound(0) - 1))
           If (((msg.Type = MessageType.groupchat) AndAlso Convert.ToString(msg).Contains(strArray(index))) AndAlso (((msg.From.Resource.IndexOf(If(strArray(index) <>  Nothing , strArray(index), ""), StringComparison.OrdinalIgnoreCase) + 1) <> 0) AndAlso ((msg.Body.IndexOf(If(msg.Body <>  Nothing , msg.Body, ""), StringComparison.OrdinalIgnoreCase) + 1) <> 0))) Then
               If Me.checkBox1.Checked Then
                   Me.cnt1.Send(String.Concat(New String() { "<message to='", Me.rom.Text, "@conference.nimbuzz.com' type='groupchat'><body>", msg.From.Resource, " : ", msg.Body, "</body></message>" }))
               End If
               If Me.checkBox3.Checked Then
                   Me.cnt1.Send(String.Concat(New String() { "<message to='", Me.rom.Text, "@conference.nimbuzz.com' type='groupchat'><body>", msg.Body, "</body></message>" }))
               End If
           End If
           index += 1
       Loop
   End If
End Sub
الرد
تم الشكر بواسطة:
#2
~~~~~~~~~~~~~
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] محتاج التعديل على الكود backgroundworker mysql progressbar dubai.eig 4 82 22-03-19, 11:38 AM
آخر رد: dubai.eig
  [VB.NET] استفسار :- بخصوص serial number dubai.eig 0 50 19-03-19, 09:32 PM
آخر رد: dubai.eig
  [سؤال] بخصوص استضافة godaddy dubai.eig 1 53 19-03-19, 12:55 PM
آخر رد: kiki
  اريد تحويل هذا الكود للسى شارب لو سمحتم ابو روضة 2 105 17-03-19, 10:21 AM
آخر رد: ابو روضة
Wink [VB.NET] سؤال بخصوص المتغيرات ahmadpal 2 87 13-03-19, 06:38 PM
آخر رد: ahmadpal
  [VB.NET] استفسار بخصوص Dispose() dubai.eig 3 112 12-03-19, 10:47 AM
آخر رد: dubai.eig
Lightbulb سؤال بخصوص اعدادات textbox haider kh 8 166 09-03-19, 10:26 AM
آخر رد: ابراهيم ايبو
  تعديل على كود عرض البيانات مع ايقونة التحميل new_programer 0 88 09-03-19, 05:57 AM
آخر رد: new_programer
  [VB.NET] استفسار :- بخصوص The remote name could not be resolved dubai.eig 1 93 04-03-19, 02:51 AM
آخر رد: dubai.eig
  [VB.NET] استفسار بخصوص تحريك الماوس والضغط dubai.eig 1 137 02-03-19, 11:19 AM
آخر رد: dubai.eig

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


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