Vba Json

cumulonimbus · 发表于 2013-4-15 15:09

本帖最后由 cumulonimbus 于 2013-4-15 15:18 编辑

蓝天大师，这是我从百度词典中抓取的数据，没办法把它们转换成正常的数据，实在没法了，特向你求教，要如何转换，谢谢
已上传抓取的网页文件的附件，请帮忙看看，谢谢

kangatang · 发表于 2013-4-23 13:10

赞一个，好用的。

592rmb · 发表于 2013-4-23 19:36

感觉很好，很强大，很有用，可现在真的看不懂，留下

引子玄 · 发表于 2013-4-28 12:23

jackeyin2009 发表于 2013-4-15 12:22
学习中，不知道那天能够达到如此水平

蓝天的高水平,你只要坚持学下去,是可以求得的.这不是问题,问题是——这技术能生财否？这才是关键。

停电以后 · 发表于 2013-4-28 23:32

这功能好。一直以为不能处理JSON的数据

html2013 · 发表于 2013-5-2 14:08

本帖最后由 html2013 于 2013-5-3 18:19 编辑

Sub 北京市天气预报()
With CreateObject("Msxml2.XMLHTTP")
.Open "GET", "http://m.weather.com.cn/data/101010100.html", False
.send
str1 = .responseText
End With
s = "天气预报.weatherinfo."
With CreateObject("MSScriptControl.ScriptControl")
.Language = "JScript"
.AddCode "var 天气预报 = " & str1 & ";"
Debug.Print .Eval(s & "city")
Debug.Print .Eval(s & "city_en")
Debug.Print .Eval(s & "date_y")
Debug.Print .Eval(s & "date")
Debug.Print .Eval(s & "week")
Debug.Print .Eval(s & "fchh")
Debug.Print .Eval(s & "cityid")
Debug.Print .Eval(s & "temp1")
Debug.Print .Eval(s & "temp2")
Debug.Print .Eval(s & "temp3")
Debug.Print .Eval(s & "temp4")
Debug.Print .Eval(s & "temp5")
Debug.Print .Eval(s & "temp6")
Debug.Print .Eval(s & "tempF1")
Debug.Print .Eval(s & "tempF2")
Debug.Print .Eval(s & "tempF3")
Debug.Print .Eval(s & "tempF4")
Debug.Print .Eval(s & "tempF5")
Debug.Print .Eval(s & "tempF6")
Debug.Print .Eval(s & "weather1")
Debug.Print .Eval(s & "weather2")
Debug.Print .Eval(s & "weather3")
Debug.Print .Eval(s & "weather4")
Debug.Print .Eval(s & "weather5")
Debug.Print .Eval(s & "weather6")
Debug.Print .Eval(s & "img1")
Debug.Print .Eval(s & "img2")
Debug.Print .Eval(s & "img3")
Debug.Print .Eval(s & "img4")
Debug.Print .Eval(s & "img5")
Debug.Print .Eval(s & "img6")
Debug.Print .Eval(s & "img7")
Debug.Print .Eval(s & "img8")
Debug.Print .Eval(s & "img9")
Debug.Print .Eval(s & "img10")
Debug.Print .Eval(s & "img11")
Debug.Print .Eval(s & "img12")
Debug.Print .Eval(s & "img_single")
Debug.Print .Eval(s & "img_title1")
Debug.Print .Eval(s & "img_title2")
Debug.Print .Eval(s & "img_title3")
Debug.Print .Eval(s & "img_title4")
Debug.Print .Eval(s & "img_title5")
Debug.Print .Eval(s & "img_title6")
Debug.Print .Eval(s & "img_title7")
Debug.Print .Eval(s & "img_title8")
Debug.Print .Eval(s & "img_title9")
Debug.Print .Eval(s & "img_title10")
Debug.Print .Eval(s & "img_title11")
Debug.Print .Eval(s & "img_title12")
Debug.Print .Eval(s & "img_title_single")
Debug.Print .Eval(s & "wind1")
Debug.Print .Eval(s & "wind2")
Debug.Print .Eval(s & "wind3")
Debug.Print .Eval(s & "wind4")
Debug.Print .Eval(s & "wind5")
Debug.Print .Eval(s & "wind6")
Debug.Print .Eval(s & "fx1")
Debug.Print .Eval(s & "fx2")
Debug.Print .Eval(s & "fl1")
Debug.Print .Eval(s & "fl2")
Debug.Print .Eval(s & "fl3")
Debug.Print .Eval(s & "fl4")
Debug.Print .Eval(s & "fl5")
Debug.Print .Eval(s & "fl6")
Debug.Print .Eval(s & "index")
Debug.Print .Eval(s & "index_d")
Debug.Print .Eval(s & "index48")
Debug.Print .Eval(s & "index48_d")
Debug.Print .Eval(s & "index_uv")
Debug.Print .Eval(s & "index48_uv")
Debug.Print .Eval(s & "index_xc")
Debug.Print .Eval(s & "index_tr")
Debug.Print .Eval(s & "index_co")
Debug.Print .Eval(s & "st1")
Debug.Print .Eval(s & "st2")
Debug.Print .Eval(s & "st3")
Debug.Print .Eval(s & "st4")
Debug.Print .Eval(s & "st5")
Debug.Print .Eval(s & "st6")
Debug.Print .Eval(s & "index_cl")
Debug.Print .Eval(s & "index_ls")
Debug.Print .Eval(s & "index_ag")
End With
End Sub

复制代码

kangatang · 发表于 2013-5-6 18:35

本帖最后由 kangatang 于 2013-5-13 09:06 编辑

html2013 发表于 2013-5-2 14:08

给你个简化版的

Sub 北京市天气预报2() ‘历遍JSON
  With CreateObject("Msxml2.XMLHTTP")
         .Open "GET", "http://m.weather.com.cn/data/101010100.html", False
      .send
      str1 = .responseText
  End With
  With CreateObject("MSScriptControl.ScriptControl")
         .Language = "JScript"
         .AddCode "var info=" & str1 & ";var allinfo='';for(var key in info.weatherinfo){allinfo+=info.weatherinfo[key]+'$$$';}"
         maps = Split(.CodeObject.allinfo, "$$$")
  End With
  For Each map In maps
         If map <> "" Then Debug.Print map
  NextEnd Sub
'/////////////////////////////////////////////
Sub 北京市天气预报3() '单独取值
  With CreateObject("Msxml2.XMLHTTP")
         .Open "GET", "http://m.weather.com.cn/data/101010100.html", False
         .send
         str1 = .responseText
  End With
  With CreateObject("MSScriptControl.ScriptControl")
         .Language = "JScript"
         .AddCode "var info=" & str1 & ";"
         Set maps = .CodeObject.info.weatherinfo
  End With
  Debug.Print maps.city
  '...
  '...
  '...
End Sub

kangatang · 发表于 2013-5-6 18:53

本帖最后由 kangatang 于 2013-5-7 09:14 编辑

通用模块，非常难得

html2013 · 发表于 2013-5-6 19:15

kangatang 发表于 2013-5-6 18:35
给你个简化版的

Sub 北京市天气预报2()

您这个，很牛！
不过，比如说只要其中的几个数据，稍微不方便。

Sub 北京市天气预报()
With CreateObject("Msxml2.XMLHTTP")
.Open "GET", "http://m.weather.com.cn/data/101010100.html", False
.send
str1 = .responseText
End With
s = "天气预报.weatherinfo."
With CreateObject("MSScriptControl.ScriptControl")
.Language = "JScript"
.AddCode "var 天气预报 = " & str1 & ";"
Debug.Print .Eval(s & "city")
Debug.Print .Eval(s & "date_y")
Debug.Print .Eval(s & "temp1")
Debug.Print .Eval(s & "weather1")
Debug.Print .Eval(s & "img_single")
Debug.Print .Eval(s & "img_title1")
Debug.Print .Eval(s & "img_title_single")
Debug.Print .Eval(s & "wind1")
Debug.Print .Eval(s & "fx1")
Debug.Print .Eval(s & "fx2")
Debug.Print .Eval(s & "fl1")
Debug.Print .Eval(s & "index")
Debug.Print .Eval(s & "index_d")
Debug.Print .Eval(s & "index_xc")
Debug.Print .Eval(s & "index_tr")
Debug.Print .Eval(s & "index_co")
Debug.Print .Eval(s & "st1")
Debug.Print .Eval(s & "index_cl")
Debug.Print .Eval(s & "index_ls")
Debug.Print .Eval(s & "index_ag")
End With
End Sub

复制代码

kangatang · 发表于 2013-5-6 19:17

本帖最后由 kangatang 于 2013-5-6 19:41 编辑

html2013 发表于 2013-5-6 19:15
您这个，很牛！
不过，比如说只要其中的几个数据，稍微不方便。

我以为你在历遍。补上单个取值

		自动登录	找回密码
密码			免费注册

[分享] Vba Json

点评

浏览过的版块