تقييم الموضوع :
  • 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] هذا الكود لجعل الزر شكل بيضاوي كيف اغيرة الي شكل اخر وليكن دائرة السيد الجوهري 3 56 أمس, 12:27 AM
آخر رد: amna jamal
  المساعده في تحويل الكود VB.NET 3 66 20-01-18, 09:12 PM
آخر رد: HASAN6.0
  هذا الكود لجعل الزر شكل بيضاوي كيف اغيرة الي شكل اخر وليكن دائرة السيد الجوهري 0 24 20-01-18, 01:22 AM
آخر رد: السيد الجوهري
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 14 1,462 19-01-18, 09:30 PM
آخر رد: رمضان محمد
  [VB.NET] سؤال :- بخصوص ال LOGIN dubai.eig 2 72 14-01-18, 12:53 PM
آخر رد: dubai.eig
  تغير خط التقرير باستخدام الكود أثناء التشغيل engmedomed@gmail.com 1 61 11-01-18, 04:38 PM
آخر رد: عبدالله الدوسري
  عندي مشكلة في تشغيل هذا الكود nooralcown 1 90 04-01-18, 05:45 PM
آخر رد: Amir_alzubidy
  كود تعديل بيانات أبوسعود 3 102 03-01-18, 12:18 AM
آخر رد: أبوسعود
  استفسار بخصوص اختصار اسم الصنف في شاشة المبيعات ملهمـ 2 80 02-01-18, 06:23 PM
آخر رد: ملهمـ
  مساعده فى تعديل كود لو سمحتوا نبيل فتحى 2 75 02-01-18, 05:09 PM
آخر رد: نبيل فتحى

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


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