- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 代码获取网页数据~~~~~~~~~~~~~~~ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=23398)
-- 发布时间：2012/9/11 11:11:00
-- 代码获取网页数据~~~~~~~~~~~~~~~
求教，怎么做才能获取指定网页中的数据（文本也行），并赋值给某窗口中的文本框？？？？
-- 发布时间：2012/9/11 11:31:00
--
大哥们，帮下哈
-- 发布时间：2012/9/11 11:35:00
--
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=19482
-- 发布时间：2012/9/11 12:54:00
--
这个我看过了呢，我试了下，不行呢（既不报错，也不执行），我又从群里下载过这个文件，就是执行不了呢。。。
-- 发布时间：2012/9/11 13:12:00
--
做了个小例子，自己参考下，亲......
文档：http://msdn.microsoft.com/zh-cn/library/system.windows.forms.htmldocument.aspx
Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://www.foxtable.com")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
\' 自己取数据
Dim elems As System.Windows.Forms.HtmlElementCollection
Elems = web.Document.GetElementsByTagName("META") \'根据标签得到数据集合
For Each elem As System.Windows.Forms.HtmlElement In Elems
Dim NameStr As String = elem.GetAttribute("name") \'得到属性
If ((NameStr IsNot Nothing) And (NameStr.Length <> 0)) Then
If NameStr.ToLower().Equals("description") Then
Dim ContentStr As String = elem.GetAttribute("content")
MessageBox.Show("Document: " & web.Url.ToString() & vbCrLf & "Description: " & ContentStr)
End If
End If
Next
-- 发布时间：2012/9/11 13:51:00
--
lin_hailun 能把你的联系方式发给我一下吗？
-- 发布时间：2012/9/11 14:18:00
--
嘿嘿，不要这么贪心，有问题，就在论坛提吧。
-- 发布时间：2012/9/11 15:27:00
--
也没有啦，就是我再快递100里申请到了API ，想让狐表跟API结合呗，我只是想把 http://code.google.com/p/kuaidi-api/wiki/Open_API_API_URL
中的 《返回结果说明》的结果，也就是
此主题相关图片如下：qq截图20120911151124.png
中的 state字段 的数据读出来，保存到狐表的数据表中。汗。。。。
-- 发布时间：2012/9/11 15:30:00
--
这个是返回的网页结果，我没其它的方法，只能分析这段网页中的数据，再读出来，嘿嘿，咱是旁门左道哈
此主题相关图片如下：qq截图20120911152617.png
-- 发布时间：2012/9/11 16:05:00
--
vb 解释json 数据小例
\' {"first_1":123,"first_2":{"second_1":444,"second_2":{"month":10,"year":18}}}
Dim json As String = "{""first_1"":123,""first_2"":{""second_1"":444,""second_2"":{""month"":10,""year"":18}}}"
Dim ScriptControl As Object, data As Object, JscriptCode As String
JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}"
ScriptControl = CreateObject("MSScriptControl.ScriptControl")
With ScriptControl
.Language = "Javascript"
.Timeout = -1
.AddCode(JscriptCode)
data = .Run("toObject", json)
End With
MessageBox.Show(data.first_2.second_2.month)