先替换掉所有无用的,Replace </td></td>.....然后再找会很方便
你替换完成后,
再将有用的贴出到我的贴子上,
我再给你代码。

解决方案 »

  1.   

    先将</td>替换成什么,是不是换别的什么标志?
      

  2.   

    把全部不用参考的标记<tr></td><html><head>……都换掉,是比查<>更好一些,那有标记有参数的,还是会漏出HTML代码,没搞懂,示。
      

  3.   

    用WebBrowser控件,取Document对象内的标记
      

  4.   

    使用元素“集合”。
    document.links 集合:所有的超级连接。
    document.images集合:所有的图片。
    document.all   集合:所有的元素。比如下面的例子(VBScript的)就是历遍一个网页的所有的连接:'将所有超级连接的URL变成小写的(运行期间)。
    For Each tElement in document.links
      tElement.href=LCase(tElement.href)
    Next另外你还可以这样:
    '将所有的超级连接推到一个叫做idSelectList的Select列表元素里。
    For Each tElement in document.links
      Set NewOpt=createElement("OPTION")
      NewOpt.value=tElement.href
      NewOpt.text=tElement.innerText
      idSelectList.options.add NewOpt
    Next以上程序没经过测试,有可能有问题。
      

  5.   

    用 WebBrowser 控件,正如楼上所说的, .links .images .all 等对象集合。
    还可以配合 HTML Object Library 使用。