11-07-15, 11:10 PM
السلام عليكم ورحمة الله وبركاته
أعمل على برنامج قاموس من الإنجليزية للعربية والعكس
وتواجهنى مشكلة فى الترجمة من عربى إلى إنجليزى
حيث يوجد فى قاعدة البيانات أحياناً عدة معانى عربية للكلمة الواحدة مثل:
وبالتالى اعتماداً على الصورة يجب أن أبحث عن (ترتيب-تسوية) كى يطابقها البرنامج مع (arrangement)
أريده عندما أكتب (ترتيب) فقط أو (تسوية) فقط يجد المطابق وهو (arrangement)
كود وظيفة البحث:
وأيضاً كود وظيفة زر الترجمة:
أعمل على برنامج قاموس من الإنجليزية للعربية والعكس
وتواجهنى مشكلة فى الترجمة من عربى إلى إنجليزى
حيث يوجد فى قاعدة البيانات أحياناً عدة معانى عربية للكلمة الواحدة مثل:
وبالتالى اعتماداً على الصورة يجب أن أبحث عن (ترتيب-تسوية) كى يطابقها البرنامج مع (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)