包含Vb.net.json的词条

VB.NET如何解析JSON数据，提取变量的值

先用ADO.NET读取数据，然后赋值即可，这个很容易的，如果你要和某个控件的值做比对，就可以先赋值给控件，然后做比对。。。例如，你读取数据库中的一条记录，然后绑定到textbox上，和另外一个textbox里面的数字比较大校。

专业从事企业网站建设和网站设计服务，包括网站建设、域名注册、虚拟空间、企业邮箱、微信公众号开发、微信支付宝小程序开发、App定制开发、软件开发、等服务。公司始终通过不懈的努力和以更高的目标来要求自己,在不断完善自身管理模式和提高技术研发能力的同时，大力倡导推行新经济品牌战略，促进互联网事业的发展。

你只获取接口的每个 obj_name 和speed 值的话，你完全没必要当json来处里，你可以直接截取字符串就可以了。用substring函数

先如下程序集

Imports System.Web.Script.Serialization

Function StringToObject(content As String) As Object

Dim jss As New JavaScriptSerializer()

Return jss.DeserializeObject(content)

End Function

Dim test1 As Dictionary(Of String, Object) = StringToObject("{

" Chr(34) "objects" Chr(34) ": {

" Chr(34) "minecraft/sounds/entity/rabbit/attack2.ogg" Chr(34) ": {

" Chr(34) "hash" Chr(34) ": " Chr(34) "4b90ff3a9b1486642bc0f15da0045d83a91df82e" Chr(34) ",

" Chr(34) "size" Chr(34) ": 7268

" Chr(34) "minecraft/sounds/entity/shulker/close5.ogg" Chr(34) ": {

" Chr(34) "hash" Chr(34) ": " Chr(34) "e555fcece121879fe0becbada9d01dea27ab153d" Chr(34) ",

" Chr(34) "size" Chr(34) ": 5376

" Chr(34) "minecraft/lang/ga_IE.lang" Chr(34) ": {

" Chr(34) "hash" Chr(34) ": " Chr(34) "a108f19142820b3573a658d40950ba3317b65c15" Chr(34) ",

" Chr(34) "size" Chr(34) ": 142847

" Chr(34) "minecraft/sounds/mob/horse/leather.ogg" Chr(34) ": {

" Chr(34) "hash" Chr(34) ": " Chr(34) "20abaa7d3b0baa105bc6023d5308f1e5d76acc41" Chr(34) ",

" Chr(34) "size" Chr(34) ": 11577

}}

}

Dim cc As Dictionary(Of String, Object) = DirectCast(test1.Values(0), Dictionary(Of String, Object))

Dim dd = cc.Values(0)("hash")

这样就可以遍历 hash值了

分享名称：包含Vb.net.json的词条
文章出自：http://6mz.cn/article/doshgpo.html