تقييم الموضوع :
  • 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")
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كود البحث Necro PC 7 178 16-04-21, 05:18 PM
آخر رد: messry
  ممكن التعديل في كود البحث المرفق أبووسم 1 249 08-04-21, 10:32 PM
آخر رد: messry
  ممكن مساعدة فى كود البحث محمد فوزى محمد 1 197 08-04-21, 10:28 PM
آخر رد: messry
  [سؤال] كيفية التعامل مع عدة قواعد بيانات ابو انس 6 298 26-03-21, 02:52 AM
آخر رد: ابو انس
Rainbow [سؤال] سؤال عن طريقة توصيل كامبرا الموبايل بقاعدة بيانات خالد دياب 0 161 25-03-21, 07:13 PM
آخر رد: خالد دياب
  [سؤال] سؤال في الجريد كنترول حسن الجلب 1 117 20-03-21, 05:20 PM
آخر رد: عبد العزيز البسكري
  [سؤال] كود التنقل بين صفوف الجريد فيو حسن الجلب 1 134 19-03-21, 09:21 AM
آخر رد: سامي محمد
  [سؤال] سؤال بسيط في الجريد فيو حسن الجلب 2 153 18-03-21, 04:16 PM
آخر رد: حسن الجلب
  [سؤال] ممكن فكرة حفظ عدد غير معلوم من الصور بقاعدة بيانات سيكوال ahmedramzyaish 1 274 12-03-21, 09:34 PM
آخر رد: محمد فوزى محمد
  [VB.NET] البحث عن تاريخ SHAM1 4 451 06-03-21, 07:50 AM
آخر رد: ZaerAllail

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


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