+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : String.Equals (/showthread.php?tid=31069)
الصفحات:
1
2
String.Equals - dasktop - 25-08-19
مرحبا
انا لدي مشروع ويحتوي على اداتين ليست بوكس للمقارنة بينهما
وفي اليست بوكس الاول كلمات وارقام وفي الليست بوكس 2 كلمات وارقام
كتبت شرط اذا في ليست بوكس رقم 1 رقم او اسم غير موجود في ليست بوكس 2 يضهر رساله
كود :
Dim p As Boolean
For x5 As Integer = 0 To ListBox2.Items.Count - 1
For x6 As Integer = 0 To ListBox2.Items.Count - 1
For Each t In ListBox1.Items(x5)
For Each t2 In ListBox2.Items(x6)
Dim x As String = t
If (x.Contains(t2)) Then
Else
p = True
End If
Next
Next
Next
Next
If p = True Then
MsgBox("no", MsgBoxStyle.Exclamation)
End Ifالشرط لايعمل الا اذا اول سطر مشابه لـ اول سطر ماهي المشكلة علماً تم استخدام دالة المقارنة string.Equals
RE: String.Equals - سعود - 25-08-19
انت تتعامل مع عدة قيم يعني النتيجة الاخيرة هي اللي بتظهر! او قل اختلاف النتائج يسبب ارتباك في الفكرة.
لو تغير الفكرة لسرد القيم الموجودة في 1 وغير موجودة في 2 ممكن تكون الطريقة ناجحة.
PHP كود :
For i As Integer = 0 To ListBox1.Items.Count - 1
Dim t As String = ListBox1.Items(i).ToString
If ListBox2.Items.Contains(t) = False Then
ListBox3.Items.Add(t)
End If
Next
RE: String.Equals - ابراهيم ايبو - 25-08-19
السلام عليكم ورحمة الله وبركاته
لم يتعبني ايجاد كود مثل هذا وبتوفيق من الله توصلت له
وصديقي الغالي سعود لم يأل جهدا في ذلك
اليكم المثال .. اضف الى كل ليست عناصر ثم اضغط زر تحقق
ارجو تجربته وان ظهر اي خطأ يسعدني ذكره
ملاحظة ارجو تغيير نص الرسالة في الكود(هذا العنصر موجود) الى (هذا العنصر مشترك)
وكذلك حذف المتغير الرقمي KK لانني نسيت ذلك
RE: String.Equals - ابو روضة - 25-08-19
لماذا أغلب الناس بتأخذ الحلول وبتهرب دون إبداء كلمة شكر لصاحب الحل أو لمن قاموا بحل مشكلاتهم ؟
حقيقة شيئ يجعل العقل يستاء. والعجيب حينما يرى تعليق مثل هذا يعلق ويقول
النت فصل أو كنت لسة بجرب.. والله الواحد بيضرب أخماس فى أسداس..
جزاك الله كل الخير أخى سعود وأخى ابراهيم على بذل يد العون للجميع رغم أن الموضوع لا يهمنى بأى شيئ.
RE: String.Equals - Rabeea Qbaha - 25-08-19
(25-08-19, 10:05 PM)ابو روضة كتب :لماذا أغلب الناس بتأخذ الحلول وبتهرب دون إبداء كلمة شكر لصاحب الحل أو لمن قاموا بحل مشكلاتهم ؟حقيقة شيئ يجعل العقل يستاء. والعجيب حينما يرى تعليق مثل هذا يعلق ويقولالنت فصل أو كنت لسة بجرب.. والله الواحد بيضرب أخماس فى أسداس..جزاك الله كل الخير أخى سعود وأخى ابراهيم على بذل يد العون للجميع رغم أن الموضوع لا يهمنى بأى شيئ.
و انا معك اخي، عندما يبذل شخص اخر جهد و وقت للمساعدة كلمة شكر تشجعه على المواصله
و تحسسة بقيمة جهده
RE: String.Equals - ابراهيم ايبو - 25-08-19
الحمد لله والشكر لله
ولكل من شارك في هذا المنشور واخص بالشكر اخي الغالي سعود الذي تجده دائما ينبري للمساعدة
صدقا انا نلت اكثر مما استحق وربحت رضى الله والوالدين اولا ثم رضى اخوتي الغالين في هذا المنتدى الرائع ثانيا
وهناك ربح مادي علمي وهو الوصول الى هذا الكود رغم بساطته فلولا السؤال لما قدر لي ان اجرب واكتب والغي في الاكواد
كلنا بحاجة لان نتعلم وان يزداد رصيدنا العلمي والمعرفي
دمتم ودامت هذه المحبة العظيمة التي يعبق فيها منتدانا الراقي
RE: String.Equals - سعود - 25-08-19
لا عليك اخي الكريم أبوروضة ربما السائل يحتاج وقت لفحص الاكواد او الامثلة.
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
اخي الكريم Rabeea Qbaha
ممكن فضلا لا امرا تشرح الرسم اللي بالتوقيع
متهيأ لي انه كوميدي لكن للاسف لم استطع معرفة الكلمات.
من زمان اريد اسالك لو ماعندك مانع.
تحياتي اخي الكريم.
RE: String.Equals - dasktop - 25-08-19
صحيح اخي العزيز ابوروضة
والزميل سعود والزميل ابراهيم ايبو لاتكفيهم كلمات الشكر
على مايقدمونه من مساعدات للاعضاء بل يستحقون وسام التكريم والتميز
وافتقدنا الزميل جوكر ونتمنى ان يكون على مايرام
والاكواد لم تنجح والمشكلة اذا تم اضافة البيانات يدوياً يعمل
واذا كان كود التحقق في اداة background لايعميل
وهنا مثال على المشكله
RE: String.Equals - ابراهيم ايبو - 26-08-19
بارك الله فيك اخي dasktop
اخونا الغالي والالمعي [Algokr] نفتقده جدا كلنا كان لنا من علمه نصيب
لايمكن لاحد ان يملأ الفراغ الذي تركه اتمنى ان يكون بالف خير وارقب عودته بفارغ الصبر
RE: String.Equals - dasktop - 26-08-19
نجح الكود التالي اذا تحققنا يدوياً عند الضغط على الزر
والمشكلة اذا وضعنا الكود في اداة ال background واصبح التحقق تلقائياً لايعمل الكود !
علماً ان في listbox1 كلمات وارقام يتم اضافتها عن طريق background رقم 2
وفي listbox2 حروف وارقام ثابته لاتتغير
والهدف من المقارنه لمعرفة اذا يوجد في listobx 1 سطر لايوجد في listbox2 يضهر رساله
فكيف نجعل الكود يعمل في اداة
كود :
Dim p As Boolean
For Each strs As String In ListBox1.Items
If ListBox2.Items.Contains(strs) Then
Else
p = True
End If
Next
If p = True Then
MsgBox("no", MsgBoxStyle.Exclamation)
End If
End If