我想从表格<tb>aaa</tb>我想得到通过对象得到"aaa"如何得到?
如何得到<a href="a.html">你好</a>如何得到“你好”?
请高手赐教,急等。
如何得到<a href="a.html">你好</a>如何得到“你好”?
请高手赐教,急等。
解决方案 »
- 100分问个简单MSHFlexGrid问题
- 请问怎么把 double 装换 成 long
- vb combobox的高度是只读属性,要怎样才能改变它的高度,谢谢大侠们!
- VB如何判断文件存在并转移文件?主要是转移文件
- 有修改ip的api函数吗?
- 我在VB调用SQL2000中的存储过程时,老是出现“对象关闭时,操作不被允许”,这是怎么一回事?
- 简单问题
- 在vb6中如何能读到本机安装的sql server数据库的名字?
- 请问
- ***********API绘图问题**************UP有分*****
- 不用任何数据源,能不能手工生成一个ADO的Recordset对象。
- VB中怎么将数组值赋值给对应的字段?
自动上网抓数据的机器人
http://dev.csdn.net/develop/article/17/17697.shtm
参考
http://dev.csdn.net/article/28/28377.shtm
http://dev.csdn.net/article/28/28376.shtm
http://dev.csdn.net/article/28/28374.shtm
http://dev.csdn.net/article/28/28375.shtmhttp://www.applevb.com/qa/qa000257.htm也不一定要分析文件,可以通过webbrowser的对象来做
Private Sub Command1_Click()
Dim vDoc, vTag, coll
Dim i As Integer
Dim j As Integer
Set vDoc = ie.Document
Dim mstrcell As String
Set coll = vDoc.All("19")
For i = 0 To coll.rows.length - 1
For j = 0 To coll.rows(i).cells.length - 1
mstrcell = mstrcell & Space(4) & coll.rows(i).cells(j).innertext
Next j
Debug.Print mstrcell
mstrcell = ""
Next i
End SubPrivate Sub Form_Load()
ie.Navigate "E:\1.htm"
End Sub
htm内容<TABLE id=19 BORDER=1 WIDTH=80%>
<THEAD>
<TR>
<TH>Heading 1</TH>
<TH>Heading 2</TH>
</TR>
</THEAD>
<TBODY>
<TR>
<TD>Row 1, Column 1 text.</TD>
<TD>Row 1, Column 2 text.</TD>
</TR>
<TR>
<TD>Row 2, Column 1 text.</TD>
<TD>Row 2, Column 2 text.</TD>
</TR>
</TBODY>
</TABLE>