【求助】如何在LABLE1中提取并显示网页里指定数据？

显示全部楼层 · 2011-7-30 15:48:42

用WEBBROWSER加载某网页后得到源代码如下：visitCountCallBack({"retcode":1,"visitcount":1310726,"dayvisit":0,"spacemark":0,"markchange":0,"sun":2161,"love":30,"rain":3006,"nutri":11,"level":5,"gardener":3,"festival":0,"firstlogin":1},{},{"feedscount":0,"medalnum":0});请问如何在LABLE1中提取并显示,"visitcount":后面的数字？？？谢谢

千问 · 2011-7-30 15:48:42

用截取函数Split截取就行，完整代码如下：Private Sub Form_Load()WebBrowser1.Navigate "http://zhidao.baidu.com/question/299828590.html" '加载网页End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)Label1.Caption = WebBrowser1.Document.documentElement.outerHTML '网页加载完成后，将网页源码保存到Label1Label1.Caption = Split(S...