[VB.NET] JSON的產生與讀取匯入

最新推荐文章于 2024-01-22 09:41:02 发布

qq962692194

最新推荐文章于 2024-01-22 09:41:02 发布

阅读量1.2k

点赞数

分类专栏： vb/vb.net/vbs

vb/vb.net/vbs 专栏收录该内容

42 篇文章 0 订阅

订阅专栏

不詳細介紹JSON是什麼東東啦，反正就是一種資料交換或是傳遞的格式，還挺方便使用的唷。

範例大概狀況是這樣，我有兩個Table是一對多的狀況，就是一個訂單底下有很多Item項目，

主要任務就想把這兩個Table的資料產生成JSON的格式。

前置作業

Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq

這兩個要用的先Imports進來。

先去 http://json.codeplex.com/ 下載DLL回來參考

先建立Data Object

 
     01Public  Class JsonDO 
 
     02  
 
     03    Private A As  Integer = 0 
 
     04    Private B As  String = ""
 
     05    Private C As  Integer = 0 
 
     06     
 
     07    Private item As  Object
 
     08  
 
     09  
 
     10    Public Property pA() As Integer
 
     11        Get
 
     12            Return A 
 
     13        End Get
 
     14        Set(ByVal value As  Integer) 
 
     15            A= value 
 
     16        End Set
 
     17    End Property
 
     18  
 
     19    Public Property pB() As String
 
     20        Get
 
     21            Return B 
 
     22        End Get
 
     23        Set(ByVal value As  String) 
 
     24            B= value 
 
     25        End Set
 
     26    End Property
 
     27  
 
     28    Public Property pC() As Integer
 
     29        Get
 
     30            Return C 
 
     31        End Get
 
     32        Set(ByVal value As  Integer) 
 
     33            C= value 
 
     34        End Set
 
     35    End Property
 
     36  
 
     37    Public Property pItem() As Object
 
     38        Get
 
     39            Return item 
 
     40        End Get
 
     41        Set(ByVal value As  Object) 
 
     42            item = value 
 
     43        End Set
 
     44    End Property
 
     45  
 
     46  
 
     47End  Class

2.把資料撈出來後塞進JsonDO，然後就可以產生JSON囉

 
     1Dim Jstring As String
 
     2 Dim Jrecord As  New JsonDO 
 
     3  
 
     4'省略把資料塞進DO的Code唷~ 
 
     5  
 
     6'這段就是產生JSON的 
 
     7Jstring = JsonConvert.SerializeObject(Jrecord)

3.抓取JSON中的值匯入

 
     01'因為是範例所以還是先產生JSON字串，等等才可以讀取。  
 
     02 Dim ImportJson As  JObject 
 
     03 ImportJson = JsonConvert.DeserializeObject(Of JObject)(Jstring) 
 
     04  
 
     05 '這段意思就是我要讀取主檔資料表中Item欄位資料 
 
     06 Dim JsonOB As  Object
 
     07 JsonOB  = ImportJson .Item("pItem") 
 
     08   
 
     09'如果要讀取第二層Item欄位中的細項可以這樣寫，那個 i 要給迴圈用的。 
 
     10JsonOB  = ImportJson .Item("pItem").ElementAt(i).Item("pautoid") 
 
     11  
 
     12'大致寫法就是這樣，有些Code有省略，請見諒^^。