请教专家:怎样解决下载这个网站数据的乱码问题？

[#1]

我按以下脚本下载这个网站数据、得到的结果是乱码。

虽然我已添加了语言编码。

谢谢！

u="http://basic.10jqka.com.cn/600000/equity.html";d1=Open(u,HTML Table(3,Column Names(1),Data Starts(2)),Charset("gb2312"));

2021-11-28_10-28-26.png2021-11-28_10-31-56.png

[#2]

感谢各位专家!

奇怪、今天试同样的代码、它能正常了、但结果还是乱码

2021-11-29_083029.png

[#3]

只能在下载后进一步转码

转码.jpg

[#4]

请教专家:这个转码代码怎样能修改为可用的脚本？谢谢！

Function BytesToBstr(strBody, CodeBase)
Dim objstream
On Error Resume Next
Set objstream = CreateObject("Adodb. Stream")
With objstream
.Type = 1
.Mode = 3
.Open
.Write strBody
.Position = 0
.Type = 2
.Charset = CodeBase
BytesToBstr = .ReadText
End With
obj stream.Close
Set objstream = Nothing
If Err.Number <> 0 Then BytesToBstr = ""
On Error GoTo 0
End Function

[#5]

I don't know what that (visual basic?) code does. It looks similar to JMP's HttpRequest, and similar to earlier code in this thread that used blobToChar to do the conversion.

[#6]

这个代码是将乱码转化为中文。幸好这些乱码的文字只有几个、我准备用手工操作来替换了。

好的、非常感谢专家!