15-03-22, 01:42 AM
(14-03-22, 10:23 AM)EMADSS كتب :(12-03-22, 06:22 PM)Emam emam كتب : اخي الكريم هل تقصد انك عاوز تبحث عن الاسم مع اهمال الهمزات
يعني لما تكتب احمد يطلعلك أحمد و إحمد و آحمد و احمد
هل هذا ما تقصده؟
نعم اخي هذا ما اريد
تفضل اخي جرب وان شاء الله هيظبط معاك
PHP كود :
Public Function CheckFN(ByVal dt As DataTable, ByVal 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 String, OutputChar As String)
For s As Integer = 0 To dt.Rows.Count - 1
If CheckFN(dt, dt.Rows(s).Item(0).replace(InputChar, OutputChar)) = 0 Then
dt.Rows.Add(dt.Rows(s).Item(0).replace(InputChar, OutputChar))
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)