'http://htmlagilitypack.codeplex.com/
Dim web As New HtmlAgilityPack.HtmlWeb()
Dim doc As HtmlAgilityPack.HtmlDocument = web.Load("FileJim.txt")
Dim tables As HtmlAgilityPack.HtmlNodeCollection = doc.DocumentNode.SelectNodes("table")
Dim JimText As String = String.Empty
If tables.Count > 0 Then
'Iterate all rows in the first table
Dim rows As HtmlAgilityPack.HtmlNodeCollection = tables(0).SelectNodes("tr")
For i As Integer = 0 To rows.Count - 1
'Iterate all columns in this row
Dim cols As HtmlAgilityPack.HtmlNodeCollection = rows(i).SelectNodes("td")
For j As Integer = 0 To cols.Count - 1
JimText &= cols(j).InnerText
Next
Next
End If
Date :
2013-03-12 08:40:20
By :
ผ่านมา
No. 6
Guest
ผมลืมบอกไปว่า AJAX Control Toolkit 4.0 ก็ใช้ตัวนี้เหมือนกัน (HtmlAgilityPack)