23-06-20, 08:43 PM
اتذكر كوني ذكرت فقط وضع المسافة بعد فقط وليس قبل
والمسافة يتم وضعها فى Function وكذلك فى الحدث لـ BtnTranslate_Click
وتكون المسافة بعد جملة التعريف فقط ليس اكثر
انظر اخى الفاضل Doctor GME
الامر بكل بساطة وسهولة جداً وبدون اى تعقيد
تعال عند كود الـ Function واجعله بهذا الشكل
انا لم اذكر ماذا قمت به وما التغيير البسيط أو باصح الاضافة البسيطة التى تمت فى الكود بالاعلى
حتى اجد منك ردك التالى بتوضيح بما تم فى الكود من التعديل وما فكرتها حتى اكون على يقين ان الاستخدام للكود ليس كا نسخ ولصق فقط
وكذلك لتفيد الزائر للموضوع هنا بما هو التعديل ليتم عمل نجاح الكود فى الترجمة
الان كل ما عليك فعله هو ان تجعل كود حدث الزر بهذا الشكل
وهو نفس الكود الذى قمت بتوضيحه فى ردي السابق
الان يمكنك الاختبار تعدد الكلمات فى السطر الواحد وايضاً تعدد الاسطر والكلمات
والمسافة يتم وضعها فى Function وكذلك فى الحدث لـ BtnTranslate_Click
وتكون المسافة بعد جملة التعريف فقط ليس اكثر
انظر اخى الفاضل Doctor GME
الامر بكل بساطة وسهولة جداً وبدون اى تعقيد
تعال عند كود الـ Function واجعله بهذا الشكل
كود :
Function GetExactSubtitles(ByVal content As String) As String
Using cnn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=MyDatabase.accdb")
cnn.Open()
content = content.Replace(vbNewLine, " * ")
Try
Dim sql As String = "SELECT * FROM [Translations] ORDER BY Len(English) DESC"
Using adp As New OleDbDataAdapter(sql, cnn)
Dim tbl As New DataTable
If adp.Fill(tbl) > 0 Then
For Each row As DataRow In tbl.Rows
content = content.Replace(row.Item("English") & Space(1), row.Item("Arabic") & Space(1))
Next
End If
End Using
content = content.Replace(" * ", vbNewLine)
Return content
Catch ex As Exception
MsgBox(ex.Message)
Return Nothing
End Try
cnn.Close()
End Using
End Function
انا لم اذكر ماذا قمت به وما التغيير البسيط أو باصح الاضافة البسيطة التى تمت فى الكود بالاعلى
حتى اجد منك ردك التالى بتوضيح بما تم فى الكود من التعديل وما فكرتها حتى اكون على يقين ان الاستخدام للكود ليس كا نسخ ولصق فقط
وكذلك لتفيد الزائر للموضوع هنا بما هو التعديل ليتم عمل نجاح الكود فى الترجمة
الان كل ما عليك فعله هو ان تجعل كود حدث الزر بهذا الشكل
كود :
ArabicTextbox.Text = GetExactSubtitles(EnglishTextbox.Text & Space(1))
وهو نفس الكود الذى قمت بتوضيحه فى ردي السابق
الان يمكنك الاختبار تعدد الكلمات فى السطر الواحد وايضاً تعدد الاسطر والكلمات