html document vb.net,vb.net 教程 12-2 HtmlDocument类 1

HtmlDocument类提供了HTML 文档的顶级编程访问,

配合WebBrowser的Document属性使用,可以获得WebBrowser当前页面的相关信息。

先来看看HtmlDocument的重要属性:

ActiveElement:当前活动的网页元素。

ActiveLinkColor:获取或设置超链接被用户单击后的 Color。

All:HtmlElementCollection,获得网页元素集合,包含该网页所有的元素。

BackColor:获取或设置网页背景色。

Body:获取 BODY 元素。

Cookie:String,获取或设置与此网页关联的Cookie,各个 Cookie 之间由分号隔开。

DefaultEncoding:当前网页的编码。

Domain:获取或设置网页所在的域。

DomDocument:获取此 HtmlDocument 的非托管接口指针,这个以后还要讲解。

Encoding:获取或设置此文档的字符编码。

Focused:获取一个值,该值指示文档是否具有用户输入焦点。

ForeColor:获取或设置网页的前景色。

Forms:获取网页中所有

元素的集合。

Images:获取文档中所有图像标记的集合。

LinkColor:获取或设置超链接的颜色。

Links:获取网页中所有超链接的列表。

RightToLeft:获取或设置当前网页中文本的方向。

Title:获取或设置当前网页的 TITLE。

Url:网页的 URL。

VisitedLinkColor:获取或设置用户已经访问的链接(指向 HTML 页)的颜色。

Window:HtmlWindow,获取与此文档关联的窗口。

重要方法:

AttachEventHandler:为已命名的 HTML DOM 事件添加事件处理程序。

CreateElement:新建一个指定 HTML 标记类型的 HtmlElement。

DetachEventHandler:从 HTML DOM 上的命名事件中移除事件处理程序。

ExecCommand:对文档执行指定的命令。

Focus:在当前文档上设置用户输入焦点。

GetElementById:将元素的 ID 特性用作搜索键来检索单个 HtmlElement。

GetElementFromPoint:检索位于指定工作区坐标位置的 HTML 元素。

GetElementsByTagName:检索具有指定 HTML 标记的元素集合。

InvokeScript(String):执行在 HTML 页面中定义的活动脚本函数。

InvokeScript(String,Object()):执行在 HTML 页面中定义的活动脚本函数。

OpenNew:获取一个新的 HtmlDocument,以便与 Write 方法一起使用。

Write:编写一个新的 HTML 页。

在接下来的几节,我将对一些属性和方法做讲解。

由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。

总结

如果觉得编程之家网站内容还不错,欢迎将编程之家网站推荐给程序员好友。

本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。

小编个人微信号 jb51ccc

喜欢与人分享编程技术与工作经验,欢迎加入编程之家官方交流群!

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
获取HTML表格数据可以通过使用WebClient来获取HTML页面,并使用HtmlAgilityPack来解析HTML。以下是示例代码: ```vb Imports System.Net Imports HtmlAgilityPack Public Function GetTableDataFromHtml(url As String, tableIndex As Integer) As DataTable Dim webClient As New WebClient() Dim html As String = webClient.DownloadString(url) Dim doc As New HtmlDocument() doc.LoadHtml(html) Dim table As HtmlNode = doc.DocumentNode.SelectNodes("//table")(tableIndex) Dim headers As IEnumerable(Of HtmlNode) = table.SelectNodes("tr/th") Dim rows As IEnumerable(Of HtmlNode) = table.SelectNodes("tr").Skip(1) Dim dataTable As New DataTable() For Each header In headers dataTable.Columns.Add(header.InnerText.Trim()) Next For Each row In rows Dim dataRow As DataRow = dataTable.NewRow() For i As Integer = 0 To headers.Count() - 1 dataRow(i) = row.SelectNodes("td")(i).InnerText.Trim() Next dataTable.Rows.Add(dataRow) Next Return dataTable End Function ``` 要将DataTable中的数据写入Excel,可以使用Microsoft.Office.Interop.Excel。以下是示例代码: ```vb Imports Microsoft.Office.Interop Public Sub WriteDataTableToExcel(dataTable As DataTable, filePath As String) Dim app As New Excel.Application() Dim workbook As Excel.Workbook = app.Workbooks.Add() Dim worksheet As Excel.Worksheet = workbook.Sheets(1) For i As Integer = 0 To dataTable.Columns.Count - 1 worksheet.Cells(1, i + 1) = dataTable.Columns(i).ColumnName Next For i As Integer = 0 To dataTable.Rows.Count - 1 For j As Integer = 0 To dataTable.Columns.Count - 1 worksheet.Cells(i + 2, j + 1) = dataTable.Rows(i)(j) Next Next workbook.SaveAs(filePath) workbook.Close() app.Quit() End Sub ```
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值