26-04-15, 10:39 PM
بسم الله الرحمن الرحيم
باختصار شديد لدى برنامج قاموس يستخدم ملف txt كقاعدة بيانات كالتالى:
وأريد أن أحوله لقاعدة بيانات أكسس تحتوى على عمودين وأريد مساعدة فى تعديل الكود
علماً بأن button1 هو المسئول على الترجمة
شكراً لكم مقدماً
باختصار شديد لدى برنامج قاموس يستخدم ملف txt كقاعدة بيانات كالتالى:
وأريد أن أحوله لقاعدة بيانات أكسس تحتوى على عمودين وأريد مساعدة فى تعديل الكود
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If RadioButton1.Checked = True And CheckBox1.Checked = True And ComboBox1.Text = "Eng to Ar" Then
Using reader As StreamReader = New StreamReader("Subtitles.txt")
Dim line As String = reader.ReadLine
Dim translatedText As String = TextBox1.Text
While (line IsNot Nothing)
Dim words As String() = line.Split("\")
Dim word As String
For Each word In words
If words.Length = 2 And translatedText.Contains(word) Then
translatedText = translatedText.Replace(word, words(+1))
End If
Next
line = reader.ReadLine
End While
TextBox2.Text = translatedText
End Using
علماً بأن button1 هو المسئول على الترجمة
شكراً لكم مقدماً