تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تعديل على كود بحث
#11
(14-03-22, 10:23 AM)EMADSS كتب :
(12-03-22, 06:22 PM)Emam emam كتب : اخي الكريم هل تقصد انك عاوز تبحث عن الاسم مع اهمال الهمزات
يعني لما تكتب احمد يطلعلك أحمد و إحمد و آحمد و احمد
هل هذا ما تقصده؟

نعم اخي هذا ما اريد

تفضل اخي جرب وان شاء الله هيظبط معاك

PHP كود :
Public Function CheckFN(ByVal dt As DataTableByVal Inputword As String)
 
       Dim countword As Integer
        For s 
As Integer 0 To dt.Rows.Count 1
            If dt
.Rows(s).Item(0) = Inputword Then
                countword 
countword 1
            End 
If
 
       Next
        Return countword
    End 
Function


 
   Sub InPutdt(InputChar As StringOutputChar As String)
 
       For s As Integer 0 To dt.Rows.Count 1
            If CheckFN
(dtdt.Rows(s).Item(0).replace(InputCharOutputChar)) = 0 Then
                dt
.Rows.Add(dt.Rows(s).Item(0).replace(InputCharOutputChar))
 
           End If
 
       Next
    End Sub


    Public Sub Load_ByName
(ByVal Name As String)
 
       Dim cmd As New SqlCommand("select * from Table where 
                                    Name Like @Name "
connSQL)
 
       cmd.Parameters.Add("Name"SqlDbType.NVarChar).Value "%" Name "%"
 
       connSQL.Open()
 
       dt2.Load(cmd.ExecuteReader)
 
       connSQL.Close()
 
       cmd Nothing
    End Sub


'ضع هذا السطر في حدث اللود
dt.Columns.Add("Col_Name")




Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        dt.Clear()
        dt2.Clear()

        dt.Rows.Add(TextBox1.Text)
        InPutdt("ا", "أ")
        InPutdt("ا", "إ")
        InPutdt("ا", "آ")

        InPutdt("أ", "ا")
        InPutdt("أ", "إ")
        InPutdt("أ", "آ")

        InPutdt("إ", "ا")
        InPutdt("إ", "أ")
        InPutdt("إ", "آ")

        InPutdt("آ", "ا")
        InPutdt("آ", "أ")
        InPutdt("آ", "إ")

        InPutdt("ي", "ى")
        InPutdt("ى", "ي")

        For s As Integer = 0 To dt.Rows.Count - 1
            Load_ByName(dt.Rows(s).Item(0))
        Next
        DataGridView1.DataSource = (dt2)
        
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو
#12
مشاركة لاخواني اكتب مااعرفه بهذا الخصوص و عساني فهمت المطلوب بشكل جيد
[صورة مرفقة: fff.png]
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
[صورة مرفقة: aburawdah.gif]
الرد }}}
تم الشكر بواسطة: Emam emam


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل في تقرير ديف اكسبرس مصمم هاوي 2 265 14-02-26, 01:43 AM
آخر رد: مصمم هاوي
  الرجاء تعديل هذا الكود Mostafa201255411 1 212 10-01-26, 01:00 AM
آخر رد: أبو خالد الشكري
  [VB.NET] مساعدة تعديل على الكود ZEEN4ZEEN 2 407 08-10-25, 02:20 PM
آخر رد: salamandal
  تعديل كود تحديث البيانات مصمم هاوي 1 941 26-04-25, 06:07 PM
آخر رد: مصمم هاوي
  تعديل على استدعاء الدرجات حسب الاختيار مصمم هاوي 11 1,352 15-04-25, 06:16 PM
آخر رد: princelovelorn
  ارجو تعديل الكود بواستطة الاجراء المخزن new_programer 3 857 03-04-25, 02:44 PM
آخر رد: princelovelorn
  تعديل مسار مكان حفظ النسخة الاحتياطية مصمم هاوي 6 1,043 02-03-25, 01:06 PM
آخر رد: atefkhalf2004
  محتاج تعديل على كود الحذف new_programer 2 783 17-02-25, 06:50 PM
آخر رد: new_programer
  ارجو تعديل الكود جلب البيانات عن طريق اجراء مخزن - مرفق مثال new_programer 0 708 05-02-25, 01:51 AM
آخر رد: new_programer
  طلب تعديل كود جلب اسم الملف ومساره مصمم هاوي 4 716 25-01-25, 12:45 AM
آخر رد: مصمم هاوي

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


يقوم بقرائة الموضوع: