有问网抓源码字符显示的问题

逆天修炼

我用VBA msxml2.xmlhttp进行网抓，responseText得到源码里，英文字母和数字可以正常显示，但是很多中文字显示的是问号，请问坛里的大神有没有办法可以把问号转化为中文字？我看了坛里的很多人提供了转码函数，但是转出来的结果并不是我希望的。

zxsea_7426

转码是需要看网页源码是用什么编码才行。刚开始我也这样的问题,抓到的都是一堆看不懂的符号，其实这就是编码没有转码显示不对
就像一个苹果放在那儿，谁都看懂，
如果用文字给人看，
中国人可以看懂汉字，母语是英语的能看懂英文的，母语是法语的就用法语才可以一个道理

逆天修炼

zxsea_7426 发表于 2023-5-28 17:08
转码是需要看网页源码是用什么编码才行。

有个帐子说了有关查看网页源码编码的函数，但是不会用，所以我也不知原网页源码是用的什么编码？

• function checkcode(path)
•     set objstream=server.createobject("adodb.stream")
•     objstream.Type=1
•     objstream.mode=3
•     objstream.open
•     objstream.Position=0
•     objstream.loadfromfile path
•     bintou=objstream.read(2)
•     If AscB(MidB(bintou,1,1))=&HEF And AscB(MidB(bintou,2,1))=&HBB Then
•         checkcode="utf-8"
•     ElseIf AscB(MidB(bintou,1,1))=&HFF And AscB(MidB(bintou,2,1))=&HFE Then
•         checkcode="unicode"
•     Else
•         checkcode="gb2312"
•     End If
•     objstream.close
•     set objstream=nothing
• end function
  

perfect131

逆天修炼 发表于 2023-5-28 17:10
有个帐子说了有关查看网页源码编码的函数，但是不会用，所以我也不知原网页源码是用的什么编码？

StrConv(.responsebody, vbUnicode)

perfect131

3 楼 第9行
https://club.excelhome.net/forum ... 64&pid=10148761

逆天修炼

如果用的是UTF-8进行编码的，请问有解决网抓responsetext立即窗口显示问号的办法吗？

此外，我测试了，如果网页采用的是GB2312字体的源码，立即窗口中汉字也是显示的问号？
这个问题，是不是excel本身缺少了什么字体库啊？

逆天修炼

perfect131 发表于 2023-5-28 17:12
3 楼 第9行
https://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1508064&pid=1014876 ...

perfect131兄，你给的网贴有用，问题解决了。主要是网抓方法从msxml2改为winhttp就解决问题了

onlycxb

perfect131 发表于 2023-5-28 17:12
3 楼 第9行
https://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1508064&pid=1014876 ...

原来是转我的内容