Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这样的数组怎么解析啊


  共有7198人关注过本帖树形打印复制链接

主题：这样的数组怎么解析啊
帅哥哟，离线，有人找我吗？
aidimeng
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：803 积分：7707 威望：0 精华：0 注册：2015/9/14 14:26:00 		这样的数组怎么解析啊  发帖心情 Post By：2022/10/21 11:52:00 [只看该作者]

{
  "n_a_s": 1,
  "atts": [
    {
      "id": null,
      "reference": "1",
      "subReference": "1",
      "category": 0,
      "type": 0,
      "filename": "1.pdf",
      "mimeType": "application/octet-stream",
      "createdate": "2022-10-21 11:51",
      "size": "453178",
      "description": null,
      "fileUrl": "9065831156402834398",
      "extension": "pdf",
      "icon": "pdf.gif",
      "iconFont": "pdf",
      "genesisId": null,
      "sort": 0,
      "officeTransformEnable": "disable",
      "obsObjectKey": "",
      "secretLevel": null,
      "secretLevelName": null,
      "canBrowse": 1,
      "v": "8e2f4840f0b8b07c983aeff6d751cabb",
      "allowTrans": true,
      "transValue": {
        "isWpsOnlineEnable": false,
        "isAllowTrans": true
      },
      "wpsOnlineEnable": false,
      "new": true,
      "extraMap": {}
    }
  ]
}
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110810 积分：563988 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/10/21 11:57:00 [只看该作者]

http://www.foxtable.com/mobilehelp/topics/0140.htm

Dim json As String  = "{""n_a_s""..........
Dim jo As JObject = JObject.Parse(json)
msgbox(jo("n_a_s").tostring)
Dim ja As JArray = jo("atts")
For i As Integer = 0 To ja.Count - 1
   Output.Show(ja(i)("filename").ToString)
Next
 回到顶部
帅哥哟，离线，有人找我吗？
aidimeng
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：803 积分：7707 威望：0 精华：0 注册：2015/9/14 14:26:00 		  发帖心情 Post By：2022/10/21 12:25:00 [只看该作者]

牛叉

 回到顶部
帅哥哟，离线，有人找我吗？
aidimeng
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：803 积分：7707 威望：0 精华：0 注册：2015/9/14 14:26:00 		  发帖心情 Post By：2022/10/21 13:12:00 [只看该作者] 

thirdAttachments" : [
                {
                    "subReference":8451540374587001174,
                    "fileUrl":-7390855572027915259,
                    "sort":1
                },
                {
                    "subReference":8451540374587001174,
                    "fileUrl":-7390855572027915268,
                    "sort":2
                }
            ]
在httpclint中 这样的数组 怎么提交啊 可否与json一样jo("thirdAttachments")("fileUrl") = fileurl
[此贴子已经被作者于2022/10/21 13:17:32编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110810 积分：563988 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/10/21 13:38:00 [只看该作者]

http://www.foxtable.com/mobilehelp/topics/0167.htm，学学里面生成json数组的用法

 回到顶部
帅哥哟，离线，有人找我吗？
aidimeng
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：803 积分：7707 威望：0 精华：0 注册：2015/9/14 14:26:00 		  发帖心情 Post By：2022/11/1 11:11:00 [只看该作者]

"formsonxx2":[
                {
                    "商品名称":"键盘",
                    "实际单价":21,
                    "到货时间":"2018-06-19"
                     “物品图片”：附件类型--一个数组

                },
                {
                    "商品名称":"键盘",
                    "实际单价":30,
                    "到货时间":"2018-06-19"
                  “物品图片”：附件类型--一个数组
                }],
想实现上面 数组下包含 数组的形式
Dim ja2 As New JArray
 jo("data")("data")("formson_3709") = ja2
 ja2.add(New JObject)
 ja2(0)("事实描述") = "12312312231"
Dim ja As New JArray
jo("data")("data")("formson_3709")("field3") = ja
 ja(0)("fileUrl") = fileurl
这样提交总是报错
 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110810 积分：563988 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/11/1 11:18:00 [只看该作者]

jo("data")("data")("formson_3709")("field3") = ja
ja.add(New JObject)
 ja(0)("fileUrl") = fileurl
 回到顶部
帅哥哟，离线，有人找我吗？
aidimeng
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：803 积分：7707 威望：0 精华：0 注册：2015/9/14 14:26:00 		  发帖心情 Post By：2022/11/1 11:23:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20221101112214.png
图片点击可在新窗口打开查看
有报错
 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110810 积分：563988 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/11/1 11:29:00 [只看该作者]

完整代码

 回到顶部
帅哥哟，离线，有人找我吗？
aidimeng
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：803 积分：7707 威望：0 精华：0 注册：2015/9/14 14:26:00 		  发帖心情 Post By：2022/11/1 12:03:00 [只看该作者]

Dim hc As New HttpClient("http://10.32.195.238:90/seeyon/rest/bpm/process/start")

Dim xxtoken As String = Functions.Execute("token").ToString
hc.Headers.Add("token", xxtoken)
Dim fileurl As Long = Functions.Execute("upload")
Dim url As String = "http://10.32.195.238:90/seeyon/rest/bpm/process/start"
Dim jo As New JObject
jo("appName") = "collaboration" '固定值 
jo("transfertype") = "json"

jo("data") = New jobject
 jo("data")("templateCode") = "H00002" '流程编号
 jo("data")("draft") = "1" '1草稿 0 发送
 Dim ja1 As New JArray
jo("data")("attachments") = ja1
ja1.Add(fileurl)
 

jo("data")("data") = New jobject
jo("data")("data")("formmain_3708") = New JObject 'formmain_0247 流程数据表名
jo("data")("data")("formmain_3708")("发起人") = "哈哈哈"
'jo("data")("data")("formmain_3709")("用工类型") = "合同工"
 '//附件数组
Dim ja2 As New JArray
 jo("data")("data")("formson_3709") = ja2
 ja2.add(New JObject)
 ja2(0)("事实描述") = "12312312231"
Dim ja As New JArray
jo("data")("data")("formson_3709")("field3") = ja
ja.add(New JObject)
 ja(0)("fileUrl") = fileurl


 


 
  hc.C
hc.Content = jo.ToString
Dim ret As String = hc.GetData()
Dim jo1 As JObject = JObject.Parse(ret)

 Output.Show(jo.ToString)
[此贴子已经被作者于2022/11/1 12:11:41编辑过]
 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询