主题：网页数据采集问题？

 你这个简单，直接用id去取值即可，比如

 

Dim o As Object = e.form.controls("WebBrowser1").basecontrol.Document.GetElementById("registerInfo.hospitalCardid")

msgbox(o.GetAttribute("value"))

 

 

 比如，完整代码

 

Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed = True
web.Navigate("d:\临床医生工作平台 ( GD-CWP ).htm")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

'取数据
Dim o As Object = web.Document.GetElementById("registerInfo.hospitalCardid")

msgbox(o.GetAttribute("value"))

如果可以直接访问服务器的htm文件，就可以。

 

比如 http://192.168.1.9/xxx.htm

 

或者局域网 \\192.168.1.9\共享文件夹\xxx.htm

 你给的例子无法测试。

 

 试试把这句代码去掉 web.Navigate("M:\临床医生工作平台 ( GD-CWP )333.htm")

 

 回复10楼，不明白你的意思，做例子上来。

参考代码

 

Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed = True
web.Navigate("http://www.foxtable.com")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

'取数据
Dim ls As Object = web.Document.getElementsByTagName("a")
For Each l As object In ls
    output.show(l.GetAttribute("href"))
Next