提取双引号内数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 提取双引号内数据

共有2573人关注过本帖树形打印复制链接主题：提取双引号内数据

zoyong

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：656 积分：7786 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2018/8/9 12:22:00 [只看该作者]

If r Is Nothing Then r = DataTables("微信审批表报销").AddNew()

        r("单据类型") = ja(i)("spname").ToString()   '审批名称(请假,报销,自定义审批名称)
        r("审批编号") = ja(i)("sp_num").ToString()   '审批单号
        r("申请部门") = ja(i)("apply_org").ToString()   '申请人部门
        r("申请人") = ja(i)("apply_name").ToString()     '申请人姓名
        r("审批状态") = ja(i)("sp_status").ToString()    '审批状态:1审批中;2 已通过;3已驳回;4已取消;6通过后撤销;10已支付
        r("审批人") = ja(i)("approval_name").ToString().Replace("""","").Replace("[","").Replace("]","").Replace(vblf,"")     '审批人姓名
        r("提交时间") = ja(i)("apply_time").ToString()   '审批单提交时间
        r("附件") = ja(i)("mediaids").ToString()         '审批的附件media_id,可使用media/get获取附件
        r("报销类型") = ja(i)("expense").ToString()         '报销类型
        r("userid") = ja(i)("apply_user_id").ToString()   '审批单提交者的userid
        r("报销金额") = ja(i)("sums").ToString() ‘报销金额

红色代码无效

[此贴子已经被作者于2018/8/9 12:26:00编辑过]

有点甜

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/8/9 14:34:00 [只看该作者]

1、msgbox(ja(i)("sums").ToString()) 弹出是否正确？

2、你的json数据是什么？贴出可以测试的代码。

zoyong

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：656 积分：7786 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2018/8/14 16:38:00 [只看该作者]

”mediaids“ 中下载的

数据是“[

"WWCISP_HjspiXUrSR9E3_MbxQCfuUPGZd2-J2XgwzbAh5l0rKpWX43FbMYyIQDRbA4iQnzY_PfUBPu2rXe81avzL3mtGFtK1TO70GIAI9yp2F62iwsR5O497wF1swSmJjTrICJWY7QW57keTqIiKHuVPy4kbFM4I1Px1DQ61bMSCL2yoh9oSfPhSSvYPkMMApuURWqieFTtPrKo5Hh-BXk-wIfxCdC7v7ZzWJRcCX_bxck15sI",

"WWCISP_HjspiXUrSR9E3_MbxQCfuRDRGIjB3MPExnlFgi2TSDeRSnTlDPcx_cbyoNAdG73kaadXzUTCCZ68IvEXrbdhSiMnd8GKUQzhqvD24jLNGJsM9iCuoAG05AWsptUF_AG-LPNXDU1jnTYg8Y72TjHIl-rZ2-fpXSmGDTkEORO1MRYgH5_XrHK8HyZAaAbQDTZAcWaQwAerLfu3_t6IsqHB1_TE74dyNnIyFs4DtB9kLt0"

]

现在怎样转换成图片

有点甜

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/8/14 16:52:00 [只看该作者]

1、api文档发出来看看；

2、mediaids保存的是图片的id号？那肯定还有api根据id号下载图片的。

zoyong

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：656 积分：7786 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2018/8/15 14:14:00 [只看该作者]

"mediaids" 下载后的数据是下面的字段，这个字段是不是就是素材ID

"WWCISP_ZB8EGg3teu7YppLlo4H7IS1n1Oner_bZDSE-eobzrvVdmvsNQH5a7wU1TfvchdPNkHP33lqsL-13DxvUSKnjiL916_3o1bwefH75f8ZCVci4IjTOF2ng_FI9PJAv3f5j"

Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/material/get?access_token={0}&media_id={1}"

Dim atk As String = Functions.Execute("GetQYAccessToken2") 'AccessToken

Dim mid As String = "WWCISP_ZB8EGg3teu7YppLlo4H7IS1n1Oner_bZDSE-eobzrvVdmvsNQH5a7wU1TfvchdPNkHP33lqsL-13DxvUSKnjiL916_3o1bwefH75f8ZCVci4IjTOF2ng_FI9PJAv3f5j" '要获取素材的ID

Dim hc As new HttpClient(CExp(ur, atk, mid))

Dim fl As String = "c:\data\abc.jpg" '要保存为的本地文件

If hc.GetFile(fl) Then

If hc.ResponseContentType.StartsWith("application/json") Then

MessageBox.Show(Filesys.ReadAllText(fl))

FileSys.DeleteFile(fl) '删除文件

Else

MessageBox.Show("图片素材下载成功!")

End If

Else

MessageBox.Show("图片素材下载失败!")

End If

.NET Framework 版本：2.0.50727.8789

Foxtable 版本：2018.7.28.1

错误所在事件：

详细错误信息：

远程服务器返回错误: (404) 未找到。

[此贴子已经被作者于2018/8/15 14:16:10编辑过]

有点甜

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/8/15 14:23:00 [只看该作者]

对应的api说明贴出来；api对应的网址发出来。

zoyong

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：656 积分：7786 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2018/8/15 14:28:00 [只看该作者]

https://work.weixin.qq.com/api/doc#11228

有点甜

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/8/15 14:54:00 [只看该作者]

执行下面代码，替换成自己的函数和id，看弹出什么。

Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/material/get?access_token={0}&media_id={1}"
Dim atk As String = Functions.Execute("GetQYAccessToken") 'AccessToken
Dim mid As String = "2Tb6YJ_zqB3FXrUdJRcco6Ck6CHuL4fbLO2u7tB3_yoiEeiJS3jvlMVzpRoE3KcEi" '要获取素材的ID
Dim hc As new HttpClient(CExp(ur, atk, mid))
Dim obj = hc.GetData
msgbox(hc.ResponseContentType)