تقييم الموضوع :
  • 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
~~~~~~~~~~~~~
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [SQL] مطلوب تعديل كود الاستعلام من جدولين غير مرتبطين فراس الغزي 10 242 18-01-19, 11:05 PM
آخر رد: asemshahen5
  سؤال بخصوص تشيك ليست بوكس نور الهدى الهدى 1 52 17-01-19, 09:31 PM
آخر رد: حريف برمجة
  [VB.NET] محتاج التعديل على الكود dubai.eig 1 116 17-01-19, 09:50 AM
آخر رد: dubai.eig
  [VB.NET] برجاء المساعدة فى هذا الكود medhat_fouad 0 44 16-01-19, 02:10 PM
آخر رد: medhat_fouad
  [VB.NET] ;سؤال كيفية تعديل المدخلات في (الداتا قريد فيو ) قبل الحفظ في قاعدة البيانات EYADISMAIL 4 181 16-01-19, 01:26 AM
آخر رد: EYADISMAIL
  استخدام ال ProgressBar مع هذا الكود ابو روضة 5 126 15-01-19, 04:26 PM
آخر رد: حريف برمجة
  تعديل كود ابو مالك المنصوري 0 52 12-01-19, 11:57 PM
آخر رد: ابو مالك المنصوري
  تعديل كود ابو مالك المنصوري 0 50 12-01-19, 11:55 PM
آخر رد: ابو مالك المنصوري
  سؤال بخصوص تحديث بيانات DataGridView abdullhadi999 14 329 09-01-19, 10:56 PM
آخر رد: abdullhadi999
  بخصوص مشكلة فى الفيجوال ستوديو( هام ) salah mansour 11 275 02-01-19, 09:47 PM
آخر رد: salah mansour

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


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