vb webbrowser控制元件怎么取網頁中表格 的值 （<div> </div>之間的內容）？
詳細
http://power.baidu.com/question/1959895778651331020.html?entry=qb_browse_default
圖1
圖二
網頁代碼如下
<td headers="yui-dt7-th-Code " class="yui-dt7-col-Code yui-dt-col-Code yui-dt-sortable yui-dt-resizeable" id="yui-gen51">..</td>
<div class="yui-dt-liner" id="yui-gen50"> C0000631419 </div> </td>
<td headers="yui-dt7-th-CustomerName " class="yui-dt7-col-CustomerName yui-dt-col-CustomerName yui-dt-sortable yui-dt-resizeable" id= "yui-gen49">
<div class="yui-dt-liner" id="yui-gen48"> 深圳XXXX公司 </div> </td>
即 如圖片一其中表格的內容值如何獲取，如 “ C0000631419” 或者 “深圳xxx公司”，這些內容是不固定的，如何取這里面他們的值（字串）賦值于text1.text
請不要用取網頁源代碼，再從中截取字符患的方法，這個試過經常易出錯
（如WebBrowser1.Document.body.InnerText這種）
能不能像以下的這種方法？？？
Set IDoc = WebBrowser2.Document
' Dim Acollection As IHTMLElementCollection
Set Acollection = IDoc.All.tags("input")
Dim s3 As String
Dim s33 As String
For I = 0 To Acollection.length - 1
s3 = Acollection.Item(I).Type
s33 = Acollection.Item(I).Name
Debug.Print s33
If s33 = "Decisionmaker" Then Text1.Text = Acollection.Item(I).Value
uj5u.com熱心網友回復：
msgbox webbrowser1.document.all.item("yui-gen50").innertextmsgbox webbrowser1.document.all.item("yui-gen48").innertext
uj5u.com熱心網友回復：
非常感謝，我剛剛看到一個：在WebBrowser中我打開了1個網頁
元素：DIV
Name：CntMain
如何獲得他里面所有文字
答：
s = WebBrowser1.Document.getElementsByName("CntMain")(0).innerText
和您的是一樣的么？或是有哪些區別
uj5u.com熱心網友回復：
不好意思，菜鳥，不會弄 這個
uj5u.com熱心網友回復：
我也遇到這個問題，只要給賦值一次，第二次就不能讀寫了轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/86780.html
標籤：控件
下一篇：讓滑鼠停留在文本框內等待輸入