[求助]网页数据中文出现乱字符怎么办 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

网页数据中文出现乱字符怎么办

用下面的代码，读到中文乱字符如何处理

读取的字符显示中括号内【?????????????У??】

原网页显示如下，需要按F5刷新才会显示正常

dvubb 此主题相关图片如下：批注 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编辑过]

试试

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 getReader as new System.IO.StreamReader(web.DocumentStream, System.Text.Encoding.GetEncoding("gb2312"))

dim gethtml as string = getReader.ReadToEnd()

output.show(gethtml )

web.Navigate(_wz) '网站网址

    Do Until web.ReadyState = 4 AndAlso web.Document.GetElementById("report1").Innertext <> Nothing
        Application.DoEvents
    Loop

Dim elems As object = web.Document.GetElementById("report1").GetElementsByTagName("tr")

    For Each elem As object In elems
        Dim i As Integer = -1
        m = m + 1
        If m > m1 AndAlso m < elems.Count - m2 Then '因为网页的表格有标题,如果不判断,就会增加出一个空行
            Dim r_yx As Row = t_yx.AddNew()            '在院校信息表中增加i行

            Dim tdelems As object = elem.GetElementsByTagName("td")
            For Each tdelem As object In tdelems                         '读写信息
                i = i + 1
                If IsNumeric(tdelem.Innertext) Then                              '如果能转换成数值则转换
                    If i > 4 Then
                        r_yx(Cols(i)) = CInt(val(tdelem.Innertext))
                    Else
                        r_yx(Cols(i)) = tdelem.Innertext

                    End If
                Else
                    r_yx(Cols(i)) = tdelem.Innertext
                End If
     next

请教这种代码如何处理中文乱字符？

[此贴子已经被作者于2020/7/24 17:56:24编辑过]

我也没有办法。试试按2楼方法把内容全部按指定编码保存为html文件，然后重新加载解析。或者加载作为xml解析

主题：[求助]网页数据中文出现乱字符怎么办