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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  السلام عليكم عندي جدولين جدول به التاريخ والكود وجدول به بيانات بنفس الكود ahmedhhh2 6 200 25-11-21, 12:54 AM
آخر رد: ahmedhhh2
  [سؤال] مشكلة اضافة نص و صورة ادخل الاداء RichTextBox alims 10 332 24-11-21, 02:01 PM
آخر رد: alims
  [SQL] مشكلة بطئ سرعة البرنامج المتصل بقاعدة بيانات على النت mmaalmesry 4 211 24-11-21, 12:23 PM
آخر رد: mmaalmesry
  اين اجد قاعدة بيانات الافتراضية باسم Northwind التي في شروحات microsoft غدير الصليحي 2 96 24-11-21, 06:43 AM
آخر رد: غدير الصليحي
  [VB.NET] مشكلة عند تصدير بيانات الداتا جريد فيو الي ملف وورد moftah70 0 116 21-11-21, 01:44 AM
آخر رد: moftah70
  [VB.NET] البحث بين تاريخين moftah70 1 110 18-11-21, 09:45 PM
آخر رد: moftah70
  كود الاتصال بقاعدة بيانات access محمية vb.net hammadi 0 139 13-11-21, 03:31 PM
آخر رد: hammadi
  [سؤال] كود الحذف من قاعدة بيانات muad 3 1,573 08-11-21, 02:46 PM
آخر رد: abdalaziz224
  أريد أعرف كيفية ربط الكريستال ريبورت مع قاعدة بيانات من نوع MySQL alessam4pro 0 150 07-11-21, 06:01 PM
آخر رد: alessam4pro
  كيفية البحث عن رقم داخل حقل في الجدول عبدالكريم برشدان 6 321 03-11-21, 09:01 PM
آخر رد: عبدالكريم برشدان

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


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