-- 作者:tongliaozyr
-- 发布时间:2020/7/24 17:17:00
-- [求助]网页数据中文出现乱字符怎么办
网页数据中文出现乱字符怎么办
用下面的代码,读到中文乱字符如何处理
读取的字符显示中括号内【?????????????У??】
原网页显示如下,需要按F5刷新才会显示正常
此主题相关图片如下:批注 2020-07-24 173909.png
Dim web As New System.Windows.Forms.WebBrowser() web.Navigate("https://kodakalaris.my.salesforce.com/00O16000007eXrD") Do Until web.ReadyState = 4 Application.DoEvents Loop
\'取数据 Dim Cols() As String = { "第一列","第二列","第三列","第四列","第五列","第六列","第七列","第八列","第九列","第十列","第十一列","第十二列","第十三列","第十四列"} Dim elems As object = web.Document.GetElementsByTagName("table")(5).GetElementsByTagName("tr") Dim m As Integer = 0 For Each elem As object In elems Dim i As Integer = -1 m = m + 1 If m > 1 Then Tables("临时表").AddNew End If Dim tdelems As object = elem.GetElementsByTagName("td") For Each tdelem As object In tdelems i = i + 1 If Cols(i) = "第三列" OrElse Cols(i) = "第十列" Then Tables("临时表").Current(Cols(i)) = tdelem.innerHTML \' Tables("临时表").Current(Cols(i)) = tdelem.getattribute("value") Else Tables("临时表").Current(Cols(i)) = tdelem.Innertext End If Next Next Tables("临时表").save
[此贴子已经被作者于2020/7/24 17:44:43编辑过]
|