منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET التكرار في Listbox عن طريق Regex
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
التكرار في Listbox عن طريق Regex
aftfm غير متصل
عضو نشيط
*
المشاركات : 729
المواضيع 234
الإنتساب : Sep 2013
السمعة : 4
الشكر: 427
تم شكره 162 مرات في 98 مشاركات
#11
20-03-13, 09:02 PM
الف شكر اخي العزيز sooriaty03

لكن بيظهر عندي خطأ في الكود عند ListBox1.Items.Item(I).Split
يظهر تحته خط ازرق وعند وضع المواس عليه تظهر الكتابة هذه

Option Strict On disallows Late binding
البحث
الرد }}}
تم الشكر بواسطة:
@@أبورائد@@ غير متصل
كبار الشخصيات
المشاركات : 901
المواضيع 34
الإنتساب : Nov 2012
السمعة : 65
الشكر: 517
تم شكره 1181 مرات في 245 مشاركات
#12
20-03-13, 09:05 PM

السلام عليكم ورحمة الله وبركاته




استبدل السطر بالتالي

PHP كود :
Dim SplitText As String() = ListBox1.Items(i).Split("-") 





السلام عليكم ورحمة الله وبركاته
البحث
الرد }}}
تم الشكر بواسطة:
aftfm غير متصل
عضو نشيط
*
المشاركات : 729
المواضيع 234
الإنتساب : Sep 2013
السمعة : 4
الشكر: 427
تم شكره 162 مرات في 98 مشاركات
#13
20-03-13, 09:09 PM
استبدلته ولا زالت المشكلة

في ListBox1.Items(I).Split
البحث
الرد }}}
تم الشكر بواسطة:
@@أبورائد@@ غير متصل
كبار الشخصيات
المشاركات : 901
المواضيع 34
الإنتساب : Nov 2012
السمعة : 65
الشكر: 517
تم شكره 1181 مرات في 245 مشاركات
#14
20-03-13, 09:14 PM

السلام عليكم ورحمة الله وبركاته





تفضل بعد التعديل

PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ModifiedList As New List(Of String)
        For I = ListBox1.Items.Count - 1 To 0 Step -1
            Dim SplitText() As String = ListBox1.Items(I).Split("-")
            SplitText(5) = 0
            SplitText(7) = 0
            SplitText(9) = 0
            Dim NewText As String = String.Join("-", SplitText)
            If ModifiedList.IndexOf(NewText) > -1 Then
                ListBox2.Items.Add(ListBox1.Items.Item(I))
                ListBox1.Items.RemoveAt(I)
            End If
            ModifiedList.Add(NewText)
        Next
    End Sub 





السلام عليكم ورحمة الله وبركاته
البحث
الرد }}}
تم الشكر بواسطة:
aftfm غير متصل
عضو نشيط
*
المشاركات : 729
المواضيع 234
الإنتساب : Sep 2013
السمعة : 4
الشكر: 427
تم شكره 162 مرات في 98 مشاركات
#15
20-03-13, 09:16 PM
نفس المشكلة اخي العزيز ابو رائد حفظك الله
اظاهر انه عند امر ناقص في البرنامج مثلا في import systim
او امر آخر
البحث
الرد }}}
تم الشكر بواسطة:
aftfm غير متصل
عضو نشيط
*
المشاركات : 729
المواضيع 234
الإنتساب : Sep 2013
السمعة : 4
الشكر: 427
تم شكره 162 مرات في 98 مشاركات
#16
20-03-13, 09:17 PM
حتى في SplitText(5) = 0

طلب مني البرنامج تغييرها الى SplitText(5) = CStr(0)
البحث
الرد }}}
تم الشكر بواسطة:
aftfm غير متصل
عضو نشيط
*
المشاركات : 729
المواضيع 234
الإنتساب : Sep 2013
السمعة : 4
الشكر: 427
تم شكره 162 مرات في 98 مشاركات
#17
20-03-13, 09:20 PM
نعم الف شكر للجميع هذا بعد التعديل


PHP كود :
Dim ModifiedList As New List(Of String)
        For I = ListBox1.Items.Count - 1 To 0 Step -1
            Dim SplitText() As String = CStr(ListBox1.Items(I)).Split(CChar("-"))
            SplitText(5) = CStr(0)
            SplitText(7) = CStr(0)
            SplitText(9) = CStr(0)
            Dim NewText As String = String.Join("-", SplitText)
            If ModifiedList.IndexOf(NewText) > -1 Then
                ListBox2.Items.Add(ListBox1.Items.Item(I))
                ListBox1.Items.RemoveAt(I)
            End If
            ModifiedList.Add(NewText)
        Next 
البحث
الرد }}}
تم الشكر بواسطة:
aftfm غير متصل
عضو نشيط
*
المشاركات : 729
المواضيع 234
الإنتساب : Sep 2013
السمعة : 4
الشكر: 427
تم شكره 162 مرات في 98 مشاركات
#18
21-03-13, 01:34 PM
السلام عليكم ورحمة الله وبركاته

اخي العزيز sooriaty03
وضعت

PHP كود :
SplitText(5) = CStr(0)
            SplitText(7) = CStr(0)
            SplitText(9) = CStr(0) 

في الكود لماذا بدأت من 5 وليس من 1

ولو حبيت اغير مثلا التكرار يكون الاجزء الاول والثاني والرابع والخامس والسابع والتاسع كيف ستكون
مع العلم اني جربت

PHP كود :
SplitText(1) = CStr(0)
            SplitText(2) = CStr(0)
            SplitText(4) = CStr(0)
            SplitText(5) = CStr(0)
            SplitText(7) = CStr(0)
            SplitText(9) = CStr(0) 

فلم يعطني نتائج صحيحة
ممكن تشرح الكود
البحث
الرد }}}
تم الشكر بواسطة:
sooriaty03 غير متصل
المتميزون
*
المشاركات : 749
المواضيع 17
الإنتساب : Sep 2013
السمعة : 55
الشكر: 522
تم شكره 620 مرات في 232 مشاركات
#19
21-03-13, 06:27 PM (آخر تعديل لهذه المشاركة : 21-03-13, 06:46 PM {2} بواسطة ashfa.)
السلام عليكم ورحمة الله وبركاته
أخي الكريم إليك شرح الأكواد
الجمل التي تريد المقارنة بينهم تتألف من تسعة أجزاء تفصل بينهم علامة (-) وبعض هذه الأجزاء يؤثر في المقارنة والبعض الآخر لا يؤثر
وبناء على توضيحك فالأجزاء التي تؤثر في المقارنة هي الملونة بالأحمر
كود :
[color=#ff0000][FONT=monospace]101[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]2012[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]04[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]07[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]0008[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#0000BB][FONT=monospace]212[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]7896[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#0000BB][FONT=monospace]p[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]85215[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][COLOR=#0000BB][FONT=monospace]gg1
[/FONT][/COLOR][color=#ff0000][FONT=monospace]101[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]2012[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]04[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]07[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]0008[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#0000BB][FONT=monospace]212[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]7896[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#0000BB][FONT=monospace]p[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]85214[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][COLOR=#0000BB][FONT=monospace]gg1
[/FONT][/COLOR][color=#ff0000][FONT=monospace]101[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]2012[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]04[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]07[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]0008[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#0000BB][FONT=monospace]213[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]7896[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#0000BB][FONT=monospace]p[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]85215[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#0000BB][FONT=monospace]gg1 [/FONT][/color]
بينما الأجزاء التي باللون الأزرق لا تؤثر بمعنى أننا سنتجاهلها
حسنا كيف تجاهلناها؟
قمنا بعمل فصل للسطر على أساس هذه العلامة (-)
فنتج عنها مصفوفة مكونة من تسعة عناصر هي للسطر الأول ستكون كالتالي:
كود :
SplitText(0) = "[color=#ff0000]101[/color]"
            SplitText(1) = "[color=#ff0000]2012[/color]"
            SplitText(2) = "[color=#ff0000]04[/color]"
            SplitText(3) = "[color=#ff0000]07[/color]"
            SplitText(4) = "[color=#ff0000]0008[/color]"
            SplitText(5) = "[color=#0000ff]212[/color]"
            SplitText(6) = "[color=#ff0000]7896[/color]"
            SplitText(7) = "[color=#0000ff]p[/color]"
            SplitText(8) = "[color=#ff0000]85215[/color]"
            SplitText(9) = "[color=#0000ff]gg1[/color]"
أي أن العناصر التي نريد أن نتجاهلها هي العناصر التي تحمل الأرقام (5،7،9)
فكان أفضل طريقة لتجاهلها هي إسنادها إلى قيم متساوية وهنا اخترتها أن تكون (0) وتستطيع تغييرها إلى ما تشاء فلن يؤثر ذلك في عمل البرنامج المهم أن تكون متساوية
أما عن موضوع الخطأ الذي ظهر لك هنا هو لأن الخاصية التالية مفعلة لديك
كود :
Option Strict On
ووظيفة هذا الأمر هو السماح للبرنامج من تحويل المتغيرات من النطاق الضيق إلى الأوسع والعكس ممنوع تماما وتستطيع إلغاء الأمر عن طريق خيارات المشروع أو كتابة الأمر التالي في أول سطر في الفورم
كود :
Option Strict Off
بعد ذلك قمنا بتجميع الأجزاء مرة أخرى وإسنادها إلى متغير أسميناه NewText
الآن قمنا بتعريف متغير من النوع ((List(Of String) والهدف منها هو البحث عن الجمل المكررة فإذا كانت الجملة موجودة سابقا في القائمة إذن هناك تكرار نقوم عندها بإضافة الجملة الأصلية إلى ListBox2 وحذفها من ListBox1
وهو المطلوب

بالتوفيق
البحث
الرد }}}
تم الشكر بواسطة:
@@أبورائد@@ غير متصل
كبار الشخصيات
المشاركات : 901
المواضيع 34
الإنتساب : Nov 2012
السمعة : 65
الشكر: 517
تم شكره 1181 مرات في 245 مشاركات
#20
21-03-13, 06:40 PM

السلام عليكم ورحمة الله وبركاته



sooriaty03 كتب :السلام عليكم ورحمة الله وبركاته
أخي الكريم إليك شرح ألكواد
الجمل التي تريد المقارنة بينهم تتألف من تسعة أجزاء تفصل بينهم علامة (-) وبعض هذه الأجزاء يؤثر في المقارنة والبعض الآخر لا يؤثر
وبناء على توضيحك فالأجزاء التي تؤثر في المقارنة هي الملونة بالأحمر
كود :
[color=#ff0000][FONT=monospace]101[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]2012[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]04[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]07[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]0008[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#0000BB][FONT=monospace]212[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]7896[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#0000BB][FONT=monospace]p[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]85215[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][COLOR=#0000BB][FONT=monospace]gg1
[/FONT][/COLOR][color=#ff0000][FONT=monospace]101[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]2012[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]04[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]07[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]0008[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#0000BB][FONT=monospace]212[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]7896[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#0000BB][FONT=monospace]p[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]85214[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][COLOR=#0000BB][FONT=monospace]gg1
[/FONT][/COLOR][color=#ff0000][FONT=monospace]101[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]2012[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]04[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]07[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]0008[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#0000BB][FONT=monospace]213[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]7896[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#0000BB][FONT=monospace]p[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#ff0000][FONT=monospace]85215[/FONT][/color][color=#007700][FONT=monospace]-[/FONT][/color][color=#0000BB][FONT=monospace]gg1 [/FONT][/color]
بينما الأجزاء التي باللون الأزرق لا تؤثر بمعنى أننا سنتجاهلها
حسنا كيف تجاهلناها؟
قمنا بعمل فصل للسطر على أساس هذه العلامة (-)
فنتج عنها مصفوفة مكونة من تسعة عناصر هي للسطر الأول ستكون كالتالي:
كود :
SplitText(0) = "[color=#ff0000]101[/color]"
            SplitText(1) = "[color=#ff0000]2012[/color]"
            SplitText(2) = "[color=#ff0000]04[/color]"
            SplitText(3) = "[color=#ff0000]07[/color]"
            SplitText(4) = "[color=#ff0000]0008[/color]"
            SplitText(5) = "[color=#0000ff]212[/color]"
            SplitText(6) = "[color=#ff0000]7896[/color]"
            SplitText(7) = "[color=#0000ff]p[/color]"
            SplitText(8) = "[color=#ff0000]85215[/color]"
            SplitText(9) = "[color=#0000ff]gg1[/color]"
أي أن العناصر التي نريد أن نتجاهلها هي العناصر التي تحمل الأرقام (5،7،9)
فكان أفضل طريقة لتجاهلها هي إسنادها إلى قيم متساوية وهنا اخترتها أن تكون (0) وتستطيع تغييرها إلى ما تشاء فلن يؤثر ذلك في عمل البرنامج المهم أن تكون متساوية
أما عن موضوع الخطأ الذي ظهر لك هنا هو لأن الخاصية التالية مفعلة لديك
كود :
Option Strict On
ووظيفة هذا الأمر هو السماح للبرنامج من تحويل المتغيرات من النطاق الضيق إلى الأوسع والعكس ممنوع تماما وتستطيع إلغاء الأمر عن طريق خيارات المشروع أو كتابة الأمر التالي في أول سطر في الفورم
كود :
Option Strict Off
بعد ذلك قمنا بتجميع الأجزاء مرة أخرى وإسنادها إلى متغير أسميناه NewText
الآن قمنا بتعريف متغير من النوع ((List(Of String) والهدف منها هو البحث عن الجمل المكررة فإذا كانت الجملة موجودة سابقا في القائمة إذن هناك تكرار نقوم عندها بإضافة الجملة الأصلية إلى ListBox2 وحذفها من ListBox1
وهو المطلوب

بالتوفيق




ما شاء الله فكرة وشرح رائع





السلام عليكم ورحمة الله وبركاته
البحث
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف يتم عرض جدول من قائمة listbox في داتاقريدفيو ahmedfa71 5 877 04-09-25, 02:59 PM
آخر رد: ahmedfa71
  ارجو تعديل الكود جلب البيانات عن طريق اجراء مخزن - مرفق مثال new_programer 0 621 05-02-25, 01:51 AM
آخر رد: new_programer
  [VB.NET] كيف أجعل الأداة Listbox تعرض عمودين بدل عمود واحد mmaalmesry 6 482 15-10-24, 11:05 AM
آخر رد: Taha Okla
  كيف يمكن اضافة عناصر للكومبوبوكس اثناء تشغيل البرنامج عن طريق المستخدم haithammoftah 3 2,163 30-09-24, 12:52 AM
آخر رد: asmarsou
  أريد تحديد صلاحيات المستخدمين عن طريق حقل في جدول قاعدة البيانات F.H.M 0 327 12-09-24, 06:29 PM
آخر رد: F.H.M
  كيفيه التعامل مع ملفات الدروب بوكس عن طريق api ackore 3 462 22-08-24, 06:13 AM
آخر رد: ackore
  فتح ملف اكسيل عن طريق الفيجوال بيسك 2015 Emam emam 0 280 19-07-24, 05:14 PM
آخر رد: Emam emam
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 462 22-02-24, 12:09 PM
آخر رد: AHMED213
  التحقق من خلال محتوى خلية عن طريق textbox صالح عبدالله 2 575 24-01-24, 12:54 PM
آخر رد: صالح عبدالله
  [VB.NET] listbox تلوين عدد من هذه الأسماء mervandz 3 751 18-11-23, 01:35 AM
آخر رد: sniper2030

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


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