VB .net webbrowser 抓 table 資料到二維陣列

網路上找了很多資料，看到快昏倒了，都不是很正確

經過參考眾多的資料後做出來的....希望能幫到大家

這是我測試過的 Function

 

Function funHtml_Table2Array(ByRef bo_WebOcx As WebBrowser, ByVal bs_TableID As String) As String()()
Dim ls_Arr2(0)() As String
Dim ii, jj As Integer
ii = -1
jj = -1

Dim T1 As HtmlElement = bo_WebOcx.Document.GetElementById(bs_TableID)

For Each the_TR_Element As HtmlElement In T1.GetElementsByTagName("tr")
ii = ii + 1
ReDim Preserve ls_Arr2(ii)

For Each the_TD_Element As HtmlElement In the_TR_Element.GetElementsByTagName("td")
jj = jj + 1
ReDim Preserve ls_Arr2(ii)(jj)
ls_Arr2(ii)(jj) = the_TD_Element.InnerText & Chr(9) & the_TD_Element.InnerHtml
Next
jj = -1

Next

Return ls_Arr2
End Function