通过streamwriter vb.net从HTML表中获取每一行

Question

无法找到合适的主题，希望有人能够帮助我。

我有一个导航到网站的程序，我想要的是从索引为1的表中获取每一行，并使用StreamWriter保存在txt文件中。

我还想在richtextbox中显示它。以下代码适用于在richtextbox中显示数据但我有一个错误：“Microsoft.VisualBasic.dll中出现未处理的类型'System.NullReferenceException'异常 附加信息：对象变量或未设置块变量。“

我将非常感谢您的帮助

                If System.IO.File.Exists(FILE_NAME) = True Then
                    Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True)

                    Dim doc As mshtml.HTMLDocument = DirectCast(WebBrowser1.Document.DomDocument, mshtml.HTMLDocument)

                    Dim el As mshtml.HTMLTable
                    el = doc.getElementsByTagName("table")(1)

                    If j = 1 Then
                        For Each wiersz In el.rows

                            RichTextBox2.Text = wiersz.innertext
                            'StreamWrtiter
                            objWriter.WriteLine(wiersz.innertext.trim)



                        Next
                        'objWriter.Dispose()
                    End If

这是我需要的表格中的废料：

  

                    <tbody><tr>
                        <th colspan="3">
                            Names, ID's and Misc. Classes
                        </th>
                    </tr>
                    <tr>
                        <td class="key">
                            ……
                        </td>
                        <td class="middle">
                            ……..
                        </td>
                        <td class="value important">
                            ………..
                        </td>
                    </tr>
                    <tr>
                        <td class="key">
                            ……..
                        </td>
                        <td class="value important" colspan="2">

                        </td>
                    </tr>
                    <tr>
                        <td class="key">
                            ………
                        </td>
                        <td class="value important" colspan="2">
                        </td>
                    </tr>
                        <td class="value wrap" colspan="2">
                            (20140)
                        </td>
                    </tr>
                </tbody></table>