+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] المساعدة فى معرفة كود للبحث فى قاعدة البيانات (/showthread.php?tid=11930)
المساعدة فى معرفة كود للبحث فى قاعدة البيانات - Doctor GME - 02-04-15
السلام عليكم ورحمة الله وبركاته
أنا أعمل على إنشاء برنامج قاموس متعدد الإمكانيات
ومازلت مبتدئاً فى البرمجة وكتابة الأكواد اللازمة
بعد البحث على جوجل وقراءة العديد من الكتب ومشاهدة فيديوهات كثيرة
وصلت لهذه النتيجة
القاموس يمكنه ترجمة الكلمات والمصطلحات كما أنه ينطق أى نص مكتوب
حتى لو لم يكن فى قاعدة البيانات
ولكن المشكلة هى الاختيار الأول 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عذراً على الإطالة وشكراً مقدماً