vincentehsu Member Licensed User Longtime User Aug 10, 2016 #1 Code: {"Load_JobTitleResult":"[{\"EnterpriseID\":1,\"AttribName\":\"Test\",\"JobTitleID\":1,\"JobTitle\":\"Admin\"},{\"EnterpriseID\":1,\"AttribName\":\"Test\",\"JobTitleID\":8,\"JobTitle\":\"OP\"}]"} I don't know how to parse the josn collection,is there any sample code to do this?
Code: {"Load_JobTitleResult":"[{\"EnterpriseID\":1,\"AttribName\":\"Test\",\"JobTitleID\":1,\"JobTitle\":\"Admin\"},{\"EnterpriseID\":1,\"AttribName\":\"Test\",\"JobTitleID\":8,\"JobTitle\":\"OP\"}]"} I don't know how to parse the josn collection,is there any sample code to do this?
DonManfred Expert Licensed User Longtime User Aug 10, 2016 #2 Code: Dim parser As JSONParser parser.Initialize(<text>) Dim root As Map = parser.NextObject Dim Load_JobTitleResult As String = root.Get("Load_JobTitleResult") See http://basic4ppc.com:51042/json/index.html Edit: Why are the deeper jsondata have slashes? Upvote 0
Code: Dim parser As JSONParser parser.Initialize(<text>) Dim root As Map = parser.NextObject Dim Load_JobTitleResult As String = root.Get("Load_JobTitleResult") See http://basic4ppc.com:51042/json/index.html Edit: Why are the deeper jsondata have slashes?
vincentehsu Member Licensed User Longtime User Aug 10, 2016 #3 I don;t konw why,The services is built by .net. Code: Dim parser As JSONParser parser.Initialize(Job.GetString) Dim root As Map = parser.NextObject Dim Load_JobTitleResult As String = root.Get("Load_JobTitleResult") Log(Load_JobTitleResult) I just get [] Upvote 0
I don;t konw why,The services is built by .net. Code: Dim parser As JSONParser parser.Initialize(Job.GetString) Dim root As Map = parser.NextObject Dim Load_JobTitleResult As String = root.Get("Load_JobTitleResult") Log(Load_JobTitleResult) I just get []
vincentehsu Member Licensed User Longtime User Aug 10, 2016 #4 Check this WCF web service here HTML: http://125.227.11.94/MyTran/MyTranService.svc/load_jobtitle?int=1 Upvote 0
Check this WCF web service here HTML: http://125.227.11.94/MyTran/MyTranService.svc/load_jobtitle?int=1
DonManfred Expert Licensed User Longtime User Aug 10, 2016 #5 vincentehsu said: Check this WCF web service here Click to expand... Code: Dim parser As JSONParser parser.Initialize(<text>) Dim root As Map = parser.NextObject Dim Load_JobTitleResult As String = root.Get("Load_JobTitleResult") Upvote 0
vincentehsu said: Check this WCF web service here Click to expand... Code: Dim parser As JSONParser parser.Initialize(<text>) Dim root As Map = parser.NextObject Dim Load_JobTitleResult As String = root.Get("Load_JobTitleResult")
DonManfred Expert Licensed User Longtime User Aug 10, 2016 #6 - Replace the \ from the invalid json - remove the wrong placed " and then the parse can do the job. This is how the json should look like: { "Load_JobTitleResult": [{"EnterpriseID":1,"AttribName":"美麗","JobTitleID":1,"JobTitle":"企業管理員"},{"EnterpriseID":1,"AttribName":"美麗","JobTitleID":8,"JobTitle":"機車"}] } Click to expand... And this - correct json - can be parsed like this Code: Dim parser As JSONParser parser.Initialize(<text>) Dim root As Map = parser.NextObject Dim Load_JobTitleResult As List = root.Get("Load_JobTitleResult") For Each colLoad_JobTitleResult As Map In Load_JobTitleResult Dim JobTitleID As Int = colLoad_JobTitleResult.Get("JobTitleID") Dim AttribName As String = colLoad_JobTitleResult.Get("AttribName") Dim JobTitle As String = colLoad_JobTitleResult.Get("JobTitle") Dim EnterpriseID As Int = colLoad_JobTitleResult.Get("EnterpriseID") Next In fact the problems seems to be in the WCF web service! Last edited: Aug 10, 2016 Upvote 0
- Replace the \ from the invalid json - remove the wrong placed " and then the parse can do the job. This is how the json should look like: { "Load_JobTitleResult": [{"EnterpriseID":1,"AttribName":"美麗","JobTitleID":1,"JobTitle":"企業管理員"},{"EnterpriseID":1,"AttribName":"美麗","JobTitleID":8,"JobTitle":"機車"}] } Click to expand... And this - correct json - can be parsed like this Code: Dim parser As JSONParser parser.Initialize(<text>) Dim root As Map = parser.NextObject Dim Load_JobTitleResult As List = root.Get("Load_JobTitleResult") For Each colLoad_JobTitleResult As Map In Load_JobTitleResult Dim JobTitleID As Int = colLoad_JobTitleResult.Get("JobTitleID") Dim AttribName As String = colLoad_JobTitleResult.Get("AttribName") Dim JobTitle As String = colLoad_JobTitleResult.Get("JobTitle") Dim EnterpriseID As Int = colLoad_JobTitleResult.Get("EnterpriseID") Next In fact the problems seems to be in the WCF web service!