提取网页表格

Question

代码如下：
<table cellspacing="0" cellpadding="0" width="90%" align="center" border="0">
                                        <tr>
                                            <td width="100%" height="500" valign="top">
                                                <iframe id="iframeResult" name="iframeResult" hspace="0" vspace="0" marginheight="0" frameborder="no" width="100%" scrolling="no" height="100%"></iframe>
                                            </td>
                                        </tr>
                                    </table>
入如何提取 表格的源代码？

Answer 1

问题描述得不太清楚。你是想从整个页面的html中得到表格的html？

Answer 2

看来你对字符串的提取并不熟悉，采用最简单的方法，可以是这样：   Dim pStart As Long, pEnd As Long
   Dim pageHtml As String, tbHtml As String
   pStart = InStr(pageHtml, "<table")
   pEnd = InStr(pStart, pageHtml, "</table>") + 8
   
   tbHtml = Mid(pageHtml, pStart, pEnd - pStart)
先找到 <table 出现的位置，
再找到</table>出现的位置，
最后提取它们之间的字符串。