+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : كيفية الاستفادة من خدمة جوجل للترجمة (/showthread.php?tid=5140)
كيفية الاستفادة من خدمة جوجل للترجمة - RaggiTech - 05-10-12
كاتب الموضوع : DreamNet
السلام عليكم ورحمة الله وبركاته
السلام عليكم ورحمة الله وبركاته
كما يعلم الجميع فان جوجل تتميز بتقديم عدة خدمات للموطورين خصوصا مطورو الوب
لكن هذا لا يمنعنا من محاولة الاستفادة قدر الامكان من المتاح
خدمة جوجل للترجمة تتطور باستمرار وقد نحتاج في بعض الأحيان إلى استعمال هذه الخدمة ليس على تطبيق وب وانما على تطبيق ويندوز Windows Application
خنا نحن بصدد ارسال معلومات واستقبال الرد من موقع جوجل للترجمة
وابسط طريقة لعمل ذلك هو استعمال الكائن WebClient من أجل تحميل محتوى صفحة الرد ومعالجتها
الصفحة التي نقوم بطلبها من أجل الترجمة هي :http://translate.google.com/translate_t#
يتم تمرير لها معاملين مهمين هما النص المراد ترجمته وزوج اللغة المستعملة للترجمة بالشكل "ar|en" اذا كانت الترجمة ستكون من العربي إلى الانجليزي
كود :
Public Shared Function TranslateText(ByVal textToTranslate As String, ByVal languagePair As String) As String
Dim url As String = String.Format("http://www.google.com/translate_t?hl=en&ie=UTF8&text={0}&langpair={1}", _
textToTranslate, languagePair)
Dim result As String = String.Empty
Dim webClient As New Net.WebClient()
webClient.Encoding = System.Text.Encoding.UTF8
result = webClient.DownloadString(url)
Dim m As Match = Regex.Match(result, "(?<=<div id=result_box dir=""ltr"">)(.*?)(?=</div>)")
If m.Success Then
result = m.Value
Else
result = "خطأ بالترجمة"
End If
Return result
End Functionالتطبيق:
