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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو المساعده فى تعديل كود SELECT نبيل فتحى 4 90 20-04-18, 07:22 PM
آخر رد: محمد كريّم
  سوالي هوا بخصوص الbutton mawadaalmogrbi 3 60 18-04-18, 10:19 PM
آخر رد: محمد كريّم
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 14 1,692 17-04-18, 07:49 PM
آخر رد: رمضان محمد
  طلب بخصوص الكومبو بوكس احمد خطاب خطاب 0 42 13-04-18, 08:56 AM
آخر رد: احمد خطاب خطاب
  كيف اجعل الكود يكتب التاريخ بجوار اسم قاعدة البيانات عند النسخ الاحتياطي السيد الجوهري 2 103 13-04-18, 12:43 AM
آخر رد: سعود
  [سؤال] سؤال بخصوص الكومبو بوكس احمد خطاب خطاب 2 73 12-04-18, 01:17 AM
آخر رد: احمد خطاب خطاب
  [VB.NET] تعديل ع كود اتصال 3asfa~mdmra 3 261 04-04-18, 09:52 PM
آخر رد: adel2000
  [سؤال] كيفية حماية الكود على جهاز المبرمج [email protected] 3 141 04-04-18, 02:35 PM
آخر رد: tarek
  [سؤال] استفسار بخصوص كريستال ريبورت Marwan9990 1 93 02-04-18, 01:56 PM
آخر رد: محمود بكرى
  [سؤال] ما معنى هذا الرمز (c"*") في هذا الكود أحمد إبراهيم سعد 3 115 02-04-18, 03:13 AM
آخر رد: أحمد إبراهيم سعد

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


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