تقييم الموضوع :
  • 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] استفسار :- بخصوص نقل الداتا من DataGridView عن طريق CheckBoxColumn dubai.eig 3 26 منذ 6 ساعة مضت
آخر رد: عبدالله الدوسري
  [سؤال] بخصوص تشفير ملف txt Mohamed20 6 753 13-10-18, 05:43 PM
آخر رد: asemshahen5
  [VB.NET] استفسار :- بخصوص DataGridViewCheckBoxColumn dubai.eig 0 45 12-10-18, 10:05 PM
آخر رد: dubai.eig
  [سؤال] طلب تعديل علي كود تفعيل وحفظ التفعيل ScreamVoice 13 250 11-10-18, 05:43 PM
آخر رد: ScreamVoice
  [سؤال] سؤال عام حول الكود في الفيجوال ستوديو Simo1991 2 75 11-10-18, 03:30 PM
آخر رد: Simo1991
  [VB.NET] مساعده :- في تعديل كود الطباعه dubai.eig 9 195 11-10-18, 02:34 PM
آخر رد: عبدالله الدوسري
  بخصوص حماية البرنامج وتفعيله salah mansour 2 63 06-10-18, 11:31 PM
آخر رد: asemshahen5
  ممكن تحويل هذا الكود للسى شارب لو سمحتم ابو روضة 9 181 06-10-18, 02:07 AM
آخر رد: ابو روضة
  تعديل كود بحث بسيط dasktop 5 116 05-10-18, 12:43 AM
آخر رد: elgokr
  [VB.NET] مساعدة بخصوص كود الحفظ ay.alhaj 19 272 04-10-18, 10:22 PM
آخر رد: ay.alhaj

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


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