PigJSonLib 1.1.0

PigJSon VB.net Sample code

Parse JSon Sample code

pjParse = New PigJSon("{""SayInf"":""Hello World""}")
If pjParse.LastErr = "" Then
	Debug.Print(pjParse.GetStrValue("SayInf"))
End If

Return results

Hello World

Simple text elements Sample code

pjAssemble = New PigJSon
With pjAssemble
	.AddEle("SiteName", "Seow Phong Web Site", True)    'The first element needs to be explicitly specified
	.AddEle("SiteUrl", "http://www.seowphong.com")  'The default is not the first element
	.AddEle("Describe", "A website for free software" & vbCrLf & " and shareware") 'The text contains a carriage return
	.AddSymbol(PigJSon.xpSymbolType.EleEndFlag)
	If .ParseJSON() = "OK" Then
		Debug.Print(.MainJSonStr)
		Debug.Print(.GetStrValue("SiteName"))
		Debug.Print(.GetStrValue("SiteUrl"))
		Debug.Print(.GetStrValue("Describe"))
	End If
End With

Return results

{"SiteName":"Seow Phong Web Site","SiteUrl":"http://www.seowphong.com","Describe":"A website for free software\r\n and shareware"}
Seow Phong Web Site
http://www.seowphong.com
A website for free software
 and shareware

Simple multiple data types elements Sample code

pjAssemble = New PigJSon
With pjAssemble
	.AddEle("SiteName", "Seow Phong Web Site", True)    'The first element needs to be explicitly specified
	.AddEle("SiteUrl", "http://www.seowphong.com")  'The default is not the first element
	.AddEle("Describe", "A website for free software" & vbCrLf & " and shareware") 'The text contains a carriage return
	.AddEle("Rank", 168)
	.AddEle("VisitPerDay", CDec(168.88))
	.AddEle("VisitTimeStr", "8/8/2020")
	.AddEle("VisitTime", Now)
	.AddEle("VisitTimeGT", Now, False, False)   'Global time
	.AddSymbol(PigJSon.xpSymbolType.EleEndFlag)
	If .ParseJSON() = "OK" Then
		Debug.Print(.MainJSonStr)
		Debug.Print(.GetStrValue("SiteName"))
		Debug.Print(.GetStrValue("SiteUrl"))
		Debug.Print(.GetStrValue("Describe"))
		Debug.Print(.GetIntValue("Rank").ToString)
		Debug.Print(.GetDecValue("VisitPerDay").ToString)
		Debug.Print(.GetStrValue("VisitTimeStr"))
		Debug.Print(.GetDateValue("VisitTime").ToString)
		Debug.Print(.GetDateValue("VisitTimeGT", False).ToString)
	End If
End With

Return results

{"SiteName":"Seow Phong Web Site","SiteUrl":"http://www.seowphong.com","Describe":"A website for free software\r\n and shareware","Rank":"168","VisitPerDay":"168.88","VisitTimeStr":"8/8/2020","VisitTime":"1601242412742","VisitTimeGT":"1601213612755"}
Seow Phong Web Site
http://www.seowphong.com
A website for free software
 and shareware
168
168.88
8/8/2020
2020/9/27 21:33:32
2020/9/27 13:33:32

Simple array elements Sample code

pjArray = New PigJSon
With pjArray
	'In this way, the content of the array element will be escaped.
	.AddEle("", "Google", True)
	.AddEle("", "GitHub")
	.AddEle("", "Apache")
End With
pjAssemble = New PigJSon
With pjAssemble
	.AddEle("TotalSites", 3, True)
	.AddOneArrayEle("SitesList", pjArray.MainJSonStr)
	.AddSymbol(PigJSon.xpSymbolType.EleEndFlag)
	If .ParseJSON() = "OK" Then
		Debug.Print(.MainJSonStr)
		Debug.Print(.GetIntValue("TotalSites").ToString)
		Debug.Print(.GetStrValue("SitesList[0]"))
		Debug.Print(.GetStrValue("SitesList[1]"))
		Debug.Print(.GetStrValue("SitesList[2]"))
	End If
End With

Return results

{"TotalSites":"3","SitesList":["Google","GitHub","Apache"]}
3
Google
GitHub
Apache

Return results

{"TotalSites":"3","SitesList":["Google","GitHub","Apache"]}
3
Google
GitHub
Apache

complex array elements Sample code

pjOneCompany = New PigJSon
pjArray = New PigJSon
pjAssemble = New PigJSon
With pjAssemble
	.AddEle("Name", "Company products", True)
	.AddArrayEleBegin("CompanyProductList")
	With pjArray
		.Reset()
		.AddEle("", "Windows", True)
		.AddEle("", "SQL Server")
		.AddEle("", "Office")
		.AddEle("", "Azure")
	End With
	With pjOneCompany
		.Reset()
		.AddOneArrayEle("ProductList", pjArray.MainJSonStr, True)
		.AddEle("CompanyName", "Microsoft")
		.AddSymbol(PigJSon.xpSymbolType.EleEndFlag)
	End With
	.AddArrayEleValue(pjOneCompany.MainJSonStr, True)
	With pjArray
		.Reset()
		.AddEle("", "Chrome", True)
		.AddEle("", "YouTube")
		.AddEle("", "Android")
	End With
	With pjOneCompany
		.Reset()
		.AddEle("CompanyName", "Google", True)
		.AddOneArrayEle("ProductList", pjArray.MainJSonStr)
		.AddSymbol(PigJSon.xpSymbolType.EleEndFlag)
	End With
	.AddArrayEleValue(pjOneCompany.MainJSonStr)
	.AddSymbol(PigJSon.xpSymbolType.ArrayEndFlag)
	.AddEle("TotalCompanies", 2)
	.AddSymbol(PigJSon.xpSymbolType.EleEndFlag)
	If .ParseJSON() = "OK" Then
		Debug.Print(.MainJSonStr)
		Debug.Print(.GetStrValue("Name"))
		Debug.Print(.GetIntValue("TotalCompanies").ToString)
		Debug.Print(.GetStrValue("CompanyProductList[0].CompanyName"))
		Debug.Print(.GetStrValue("CompanyProductList[0].ProductList[2]"))
		Debug.Print(.GetStrValue("CompanyProductList[0].ProductList[3]"))
		Debug.Print(.GetStrValue("CompanyProductList[1].CompanyName"))
		Debug.Print(.GetStrValue("CompanyProductList[1].ProductList[1]"))
		Debug.Print(.GetStrValue("CompanyProductList[1].ProductList[2]"))
	End If
End With

Return results

{"Name":"Company products","CompanyProductList":[{"ProductList":["Windows","SQL Server","Office","Azure"],"CompanyName":"Microsoft"},{"CompanyName":"Google","ProductList":["Chrome","YouTube","Android"]}],"TotalCompanies":"2"}
Company products
2
Microsoft
Office
Azure
Google
YouTube
Android