[RaggiTech]

كاتب الموضوع : 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

هنا استعملنا Regular Expression من اجل البحث على النص الناتج داخل صفحة الرد والموجود في div معرفه هو result_box

التطبيق:

التحميل