التقط نتائج الترجمة التلقائية لـ GOOGLE عن بعد
الكاتب：Eve Cole
وقت التحديث：2009-07-01 16:08:47
1 وظيفة RemoveHTML()وظيفة RemoveHTML(strhtml)
2 إذا كانت strhtml<>"" إذن
3 خافت s_str كسلسلة
4 s_str=regex.replace(strHTML،"<[^>]+>"،")
5 s_str=replace(s_str"، "،")
6 العودة s_str
7 نهاية إذا
8 وظيفة النهاية
9
10 وظيفة china_to_english() وظيفة china_to_english (النصوص واللغات)
11 حمولة خافتة كسلسلة = "hl=zh-CN&ie=UTF8&text="& texts &"&langpair="& languages &""
12 str_return قاتمة كسلسلة
13 Dim req As WebRequest = WebRequest.Create(" http://translate.google.com/translate_t ") ' 开始取连接.
14 req.Credentials = CredentialCache.DefaultCredentials 'الأصل'
15 req.Method = "POST" 'اطلب من POST أن تقوم بالتحقق من الحصول على ما تريد
16 req.ContentType = "application/x-www-form-urlencoded" 'POST قم بتحديد بيانات النموذج/الأجزاء المتعددة
17 req.timeout=10000 'ابدأ العمل
18 req.ContentLength = payload.Length '头部长度
19 Dim encoding As Encoding = Encoding.GetEncoding("UTF-8") 'الترميز الخافت كـ Encoding = Encoding.GetEncoding("UTF-8")
20 بايت خافت كـ Byte() = Encoding.GetBytes(payload) 'التحويل
21 req.ContentLength = bytes.Length 'الطول'
22 تعتيم newStream As Stream = req.GetRequestStream() 'التحويل إلى ملف
23 newStream.Write(bytes, 0, bytes.Length) '写入传送流
24 newStream.Close() 'مغلق
25 'الأمر الأكثر أهمية هو أن تكون قادرًا على تحقيق النجاح
26 Dim res As HttpWebResponse = CType(req.GetResponse(), HttpWebResponse) ' 传递返回标识
27 إذا res.StatusDescription='ok' ثم ' 返回取得状态.
28 current.response.write("الإجابة على هذا السؤال هي:"
29 الحالي.الاستجابة.النهاية()
30 نهاية إذا
31 Dim dataStream As Stream = res.GetResponseStream () 'تم حذفه
32 قارئ خافت كقارئ StreamReader جديد(dataStream,encoding.getencoding("gb2312")) '
33 استجابة خافتة من الخادم كسلسلة = Reader.ReadToEnd() 'تم حذفها
34
35 str_return=responseFromServer 'المصدر
36
37 Reader.Close() '接下来三个关闭
38 داتاستريم.إغلاق ()
39 الدقة.إغلاق()
40
41 خافت ss كسلسلة = str_return
42 ss = regex.replace(ss,"(?i:(.+)(<div)(.+)(>)(.+)(</div>)(.+))" "$5") 'التفاصيل
43 ss = RemoveHTML(ss) 'أدخل HTML
44 ss = ss.substring(3) 'المفتاح الأساسي
45 عودة ss '函数返回
46 وظيفة النهاية
47
48 在调用china_to_english(نصوص,لغات) .
例:中译英,其第二个参数为:zh-Cn|en
أفضل المنتجات الطبية:
نظام الواردات
نظام الواردات.ويب
نظام الواردات.IO
يستورد Microsoft.VisualBasic
يستورد System.Web.HttpContext
واردات System.Web.UI
واردات System.Web.UI.WebControls
نظام الواردات.النص
يستورد System.Text.RegularExpressions
واردات System.Net
