vb.net 如何读取本地html文件中的表格数据到 数组？

[c999000]

vb.net 如何读取本地html文件中的表格数据到 数组？

[as495916]

使用正则表达式，先提取table，再提取所有tr，得到全部行的长度后（列的长度可以用固定值），初始化数组，提取每一行的全部td，继续用正则表达式、或各种string处理函数删除无用字符，得到最终的有用数据。

[以专业开发人员为伍]

解析 html 打断内容，你不用 html 解析器来首先解析它，那就是个临时对付的做法了。

[c999000]

引用 2 楼 sp1234 的回复:

解析 html 打断内容，你不用 html 解析器来首先解析它，那就是个临时对付的做法了。

具体怎么操做？ 我想用字符处理，把没有的内容删除，可怕他后期有变化，改起来太麻烦？
您这个具体怎么处理呢？

[c999000]

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim WebBw As New WebBrowser
        WebBw.Url = New Uri("C:\Users\c\Desktop\CLASS1.html")
        'WebBrowser1.Navigate("C:\Users\c\Desktop\CLASS1.html")
        Do Until WebBw.ReadyState = WebBrowserReadyState.Complete
            Application.DoEvents()
        Loop
        TextBox1.Text = WebBw.DocumentText.ToString
        Dim Elems As HtmlElementCollection
        Elems = WebBw.Document.GetElementsByTagName("B")
        Debug.Print(Elems.Count)
        Dim k(5000, 50)
        Dim iTR As HtmlElement
        Dim jTD As HtmlElement
        Dim H As Integer '记录行号
        Dim L As Integer '记录列号

        'For Each iTR In WebBw.Document.GetElementsByTagName("TR")
        '    For Each jTD In iTR.GetElementsByTagName("TD")
        '        Debug.Print(jTD.InnerText)
        '    Next
        '    Debug.Print("==========")
        'Next

        For Each iTR In WebBw.Document.GetElementsByTagName("TR")
            H = H + 1 : L = 0
            For Each jTD In iTR.GetElementsByTagName("TD")
                L = L + 1
                k(H, L) = (jTD.InnerText)
            Next
        Next

        For i = 1 To H
            Debug.Print(k(i, 1) & k(i, 2) & k(i, 3) & k(i, 4) & k(i, 9))
        Next

    End Sub