[Doctor GME]

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


القاموس يمكنه ترجمة الكلمات والمصطلحات كما أنه ينطق أى نص مكتوب
حتى لو لم يكن فى قاعدة البيانات
ولكن المشكلة هى الاختيار الأول subtitles يحتاج إلى كود خاص
لأن هذا الاختيار مخصص لتراجم الأفلام وغيرها من النصوص الطويلة
والتى تكتب فى الغالب بهذه الصيغة:

1
00:00:07,376 --> 00:00:09,526
what is your name?

2
00:00:09,776 --> 00:00:12,654
jack.

3
00:00:12,896 --> 00:00:15,046
nice one

المشكلة أن ملف الترجمة الواحد قد يحتوى على ما لا يقل عن 500 نص
وعندما أضع هذه النصوص داخل القاموس فهو لا يتعرف عليها
لأنه يتعامل مع النص كله كأنه خانه واحده فى قاعدة البيانات
ولذا أريد كود مثل الذى يستعمله قاموس الوافى فهو عندما يتعرف ولو على
كلمة واحدة داخل الجملة يترجمها ويكتب ما لا يتعرف عليه كما هو بدون تغيير



أنا أستعمل قاعدة بيانات على هيئة ملف txt بصيغة utf8
وهى مرتبة بالشكل التالى:




وهذا هو الكود الخاص بـ radio button1 المسمى subtitles المختص بهذا
والموضوع فى عمليات button1_click الخاصة بالزر المسمى translate

كود :

       If RadioButton1.Checked = True Then
           Using reader As StreamReader = New StreamReader("Subtitles.txt")
               Do While (True)
                   Dim line As String = reader.ReadLine
                   If line Is Nothing Then
                       Exit Do
                   End If
                   Dim words As String() = line.Split("\")
                   Dim word As String
                   For Each word In words
                       If word = TextBox1.Text Then
                           TextBox2.Text = words(+1)
                       End If
                   Next
               Loop
           End Using
       End If

عذراً على الإطالة وشكراً مقدماً