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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تصدير بيانات DataGridView1 الى ملف Excel mr_hso 7 738 22-07-21, 04:55 PM
آخر رد: atefkhalf2004
  [سؤال] استيراد بيانات لقاعدة البيانات وعمل مقارنة nandy2016 2 1,148 16-07-21, 02:12 PM
آخر رد: إليسار
  طباعة محتويات الجريد Lathe1 5 214 14-07-21, 01:32 AM
آخر رد: Lathe1
  [Acces2003] عمل قاعدة بيانات 2003 بالفيجوال بيسك 2010 اسلام الكبابى 3 250 09-07-21, 12:41 PM
آخر رد: اسلام الكبابى
  [سؤال] السلام عليكم عايز كود اتصال لقاعده بيانات اكسس 2013 محميه بكلمه سر حسن الجلب 2 220 03-07-21, 01:59 PM
آخر رد: adam mostafa
  كشف التشابه بين بيانات صفين موجودين في اثنين datagridview جيولوجي مبتدئ 5 453 02-07-21, 12:05 AM
آخر رد: جيولوجي مبتدئ
  [كود] البحث عن موقع ملف (طلب مستعجل) zazasami 3 182 28-06-21, 11:37 PM
آخر رد: zazasami
  مشكله فى حفظ صوره بقاعده بيانات اكسس خالد كامل1 1 207 22-06-21, 12:03 AM
آخر رد: ابراهيم ايبو
  هل من الممكن جعل مشروع فيجوال بيسك 10 يرسل بيانات الى الواتس خالد كامل1 4 428 21-06-21, 09:28 PM
آخر رد: خالد كامل1
  اريد تفريغ بيانات جدول الى جدول اخر مع حذف البيانات التى فى الجدول المفرغ منه خالد كامل1 1 261 19-06-21, 10:01 PM
آخر رد: خالد كامل1

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


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