تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
البحث في بيانات الجريد عن نص مكتوب في RichTextBox
#1
السلام عليكم ورحمة الله وبركاته

البحث في بيانات DataGridView1 حسب المكتوب في اداة RichTextBox من بداية النص حتى يجد (المسافة) فإن وجد الكلمة وضعها في DataGridView2 وإن لم يجدها يقتطع جزء منها ويبحث عنه في DataGridView1 فإن وجدها يضعها في DataGridView2 ومن ثم يبحث عن بقية الكلمة وتستمر العملية مع بقية النص

علماً أن في ا ل DataGridView1  مجموعة من الاحرف والاقام والكلمات

هذا الكود يظهر بيانات DataGridView1 

كود :
   Dim temp As Integer = 0
        For i As Integer = 0 To DataGridView1.RowCount - 2
            For j As Integer = 0 To DataGridView1.ColumnCount - 2
                If DataGridView1.Rows(i).Cells(j).Value.ToString = Me.RichTextBox1.Text Then
                    MsgBox("Item found")
                    temp = 1
                End If
            Next
        Next
        If temp = 0 Then
            MsgBox("Item not found")
        End If
الرد }}}
تم الشكر بواسطة:
#2
(08-04-21, 09:15 PM)aftfm كتب : السلام عليكم ورحمة الله وبركاته

البحث في بيانات DataGridView1 حسب المكتوب في اداة RichTextBox من بداية النص حتى يجد (المسافة) فإن وجد الكلمة وضعها في DataGridView2 وإن لم يجدها يقتطع جزء منها ويبحث عنه في DataGridView1 فإن وجدها يضعها في DataGridView2 ومن ثم يبحث عن بقية الكلمة وتستمر العملية مع بقية النص

علماً أن في ا ل DataGridView1  مجموعة من الاحرف والاقام والكلمات

هذا الكود يظهر بيانات DataGridView1 

كود :
   Dim temp As Integer = 0
        For i As Integer = 0 To DataGridView1.RowCount - 2
            For j As Integer = 0 To DataGridView1.ColumnCount - 2
                If DataGridView1.Rows(i).Cells(j).Value.ToString = Me.RichTextBox1.Text Then
                    MsgBox("Item found")
                    temp = 1
                End If
            Next
        Next
        If temp = 0 Then
            MsgBox("Item not found")
        End If

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

حاول استبدال  = Me.RichTextBox1.Text Then
بـ  

كود :
= '%" & Me.RichTextBox1.Text & "%' Then
الرد }}}
تم الشكر بواسطة: aftfm , aftfm
#3
الف شكر اخي الكريم messry

لكني اريد بدل MsgBox("Item found")

يتم وضع النص او جزء منه او بديته حسب ما يجدة في الجريد 1
يتم وضعه في الجريد 2 ويكمل في الجزء الباقي من الكلمة حتى تنتهي ومن ثم ينتقل الى الكلمة التي تليها
وهكذا حتى ينتهي النص

ولكن حسب ا لموجود في الجريد 1
الرد }}}
تم الشكر بواسطة:
#4
(08-04-21, 10:14 PM)aftfm كتب :
كود :
           DataGridView2.Rows.Add(DataGridView1.Rows(i).Cells(j).Value.ToString)
الرد }}}
تم الشكر بواسطة: aftfm , aftfm
#5
الف شكر على ردك
 لكن الكود

كود :
  DataGridView2.Rows.Add(DataGridView1.Rows(i).Cells(j).Value.ToString)

 يبحث عن نص كامل فإن لم يجدة لا يقوم بتجزئته

كما هو موضح في الصور 

وعند وجود حرف مثلا كحرف ب يقوم بتكرار الحرف إن وجد أكثر من حرف (ب) والمطلوب إذا وجد الحرف او النص في أي سطر من الجريد يكتفي به وينتقل الى بقية النص


الملفات المرفقة صورة/صور
       
الرد }}}
تم الشكر بواسطة:
#6
(09-04-21, 03:27 PM)aftfm كتب : الف شكر على ردك
 لكن الكود

كود :
  DataGridView2.Rows.Add(DataGridView1.Rows(i).Cells(j).Value.ToString)

 يبحث عن نص كامل فإن لم يجدة لا يقوم بتجزئته

كما هو موضح في الصور 

وعند وجود حرف مثلا كحرف ب يقوم بتكرار الحرف إن وجد أكثر من حرف (ب) والمطلوب إذا وجد الحرف او النص في أي سطر من الجريد يكتفي به وينتقل الى بقية النص








الكود المذكور ليس للبحث بل لاضافة الحقل في DataGridView1 الى سطر جديد في DataGridView2 



وهذا الأمر يتم وضعه بدلا من الرسالة التي تظهر                 MsgBox("Item found")
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 80 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  [سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER dr.programming 6 598 19-03-24, 08:56 AM
آخر رد: سلامه محمد11
  استعلام select عن مجموعة بيانات Adel27213 1 172 15-03-24, 01:11 AM
آخر رد: justforit
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  [VB.NET] تحديث بيانات فى كلاس من جدول سيكوال asdfar1977 6 184 26-02-24, 01:07 AM
آخر رد: asdfar1977
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 222 25-02-24, 11:26 PM
آخر رد: heem1986
  [C#.NET] طباعة بيانات داتا جرد فيو h2551996 0 83 25-02-24, 02:31 PM
آخر رد: h2551996
  [VB.NET] معرفة بيانات الجهاز محمد بوقزاحة 1 309 21-02-24, 11:44 PM
آخر رد: AHMED213
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] البحث باستخدام CheckedListBox لتكون نتيجة التحديد شرط لجملة الاستعلام ahmedramzyaish 0 116 19-02-24, 03:44 AM
آخر رد: ahmedramzyaish

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


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