[Doctor GME]

السلام عليكم ورحمة الله وبركاته
أعمل على برنامج قاموس من الإنجليزية للعربية والعكس
وتواجهنى مشكلة فى الترجمة من عربى إلى إنجليزى
حيث يوجد فى قاعدة البيانات أحياناً عدة معانى عربية للكلمة الواحدة مثل:



وبالتالى اعتماداً على الصورة يجب أن أبحث عن (ترتيب-تسوية) كى يطابقها البرنامج مع (arrangement)
أريده عندما أكتب (ترتيب) فقط أو (تسوية) فقط يجد المطابق وهو (arrangement)

كود وظيفة البحث:

كود :

   Function argetword(ByVal content As String) As String
       Try
           Using adp As New OleDb.OleDbDataAdapter("SELECT * FROM [Words]", connectionString)
               Using tbl As New DataTable
                   If adp.Fill(tbl) > 0 Then
                       For Each row As DataRow In tbl.Rows
                           content = System.Text.RegularExpressions.Regex.Replace(content, row.Item("Arabic"), row.Item("English"), System.Text.RegularExpressions.RegexOptions.IgnoreCase)
                       Next
                   End If
               End Using
           End Using
           Return content
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
       argetword = ""
   End Function

وأيضاً كود وظيفة زر الترجمة:

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox1.Text = argetword(TextBox2.Text)