支持带有ms xml 6.0的utf16

Question

我正在使用法语从网站上删除数据。我正在使用MS XML 6.0，有些字母无法正确识别 （例如é）

代码：

Dim xml_obj As XMLHTTP
Set xml_obj = New XMLHTTP
xml_obj.Open "GET", "http://www.emploi.nat.tn/fo/Fr/global.php?page=146&menu1=&FormLinks_Sorting=1&FormLinks_Sorted=&num_page=0&limit=500&numpage=1", False
xml_obj.send
Dim htmldoc As New HTMLDocument
htmldoc.body.innerHTML = xml_obj.responseText

responseText以UTF-8编码。任何解决方法？

Answer 1

首先需要对页面进行解码，因为编码为if (rank == 0) { x = 0; MPI_Bcast(&x, 1, MPI_INT, 0, MPI_COMM_WORLD); } else if (rank==1) { x = 1; MPI_Bcast(&x, 1, MPI_INT, 1, MPI_COMM_WORLD); } 。然后直接在文档中编写html而不是在正文中：

windows-1256