Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
VB.Net中的谷歌翻译返回???阿拉伯语_Vb.net_Google Translate - Fatal编程技术网

VB.Net中的谷歌翻译返回???阿拉伯语

VB.Net中的谷歌翻译返回???阿拉伯语,vb.net,google-translate,Vb.net,Google Translate,我正在研究一个将字符串翻译成不同语言的小函数。实际上,除了阿拉伯语,它对所有语言都很好,它返回了问号????。有什么提示吗?您可以查看下面的代码 提前谢谢 Dim translateThis = "hello" Dim languagePair = "en|ar" Dim url3 = String.Format("http://www.google.com/translate_t?hl=en&text={0}&langpair={1}", translateThis, l

我正在研究一个将字符串翻译成不同语言的小函数。实际上,除了阿拉伯语,它对所有语言都很好,它返回了问号????。有什么提示吗?您可以查看下面的代码

提前谢谢

 Dim translateThis = "hello"
 Dim languagePair = "en|ar"
 Dim url3 = String.Format("http://www.google.com/translate_t?hl=en&text={0}&langpair={1}", translateThis, languagePair)
 Dim result as string

 Dim client As WebClient = New WebClient()
 client.Encoding = System.Text.UTF8Encoding.UTF8

 result = client.DownloadString(url3)
 result = result.Substring(result.IndexOf("id=result_box") + 151, 500)
 result = result.Substring(0, result.IndexOf("</span>"))
Dim translateThis=“你好”
Dim languagePair=“en | ar”
Dim url3=String.Format(“http://www.google.com/translate_t?hl=en&text={0}&langpair={1},translateThis,languagePair)
将结果变暗为字符串
作为WebClient的Dim客户端=新WebClient()
client.Encoding=System.Text.UTF8Encoding.UTF8
结果=client.DownloadString(url3)
result=result.Substring(result.IndexOf(“id=result\u框”)+151500)
result=result.Substring(0,result.IndexOf(“”)

尝试使用阿拉伯语Windows编码(1256):


很高兴帮助你!也谢谢你:)
client.Encoding = Encoding.GetEncoding(1256)