先替换掉所有无用的,Replace </td></td>.....然后再找会很方便
你替换完成后,
再将有用的贴出到我的贴子上,
我再给你代码。
你替换完成后,
再将有用的贴出到我的贴子上,
我再给你代码。
解决方案 »
- 如何在VB环境下搭建开源的虚拟打印机PDFCreator开发环境?
- VBA适合写逻辑性强(复杂)的东西吗??!!!
- 我是个菜鸟 请教各位达人个问题 在vb中如何实现两个窗口的数据一致性?谢谢了!!!
- ?请教关于串口通信
- 快告诉我怎样能使文本框里的内容设为焦点
- VB接口名称难道不能带下划线吗???
- 我想让winsock编写的文件远程传输中,使服务器端一直处于打开状态.....可以吗?
- 关于adodc的问题
- 在线等待--100分 如何查找指定路径下是否存在一个名叫4235668的文件夹?
- 作报表时,datareport里面已经有一个title,怎样再添加一个title??
- 如何在点击MSFLEXGRID控件某一个单元时,用MSGBOX显示详细内容?
- 请问高手:有没有做.chm或者.hlp帮助的工具提供?一定给分!谢谢!
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以上程序没经过测试,有可能有问题。
还可以配合 HTML Object Library 使用。