前事不忘,后事之师,不忘国耻!

SAP SYBASE论坛中文社区技术服务

 找回密码
 站点注册

QQ登录

只需一步,快速开始

查看: 91|回复: 1
收起左侧

[PB9.X以前] PB可用的JSON纯PB代码实现

[复制链接]
ehxz 发表于 2020-10-8 08:44:55 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?站点注册

x
json1.jpg json.jpg

string  sInputJson  
n_cst_json ln_json

sInputJson ='[[{"2000":"001**消耗积分统计成功"},{"2000":"002**消耗积分统计成功"}][{"batchnumber":"1b8a45712f7682201664968acc805350","totalscore":"100","vgoocard":"001","event":[{"usedscore":"50","addtime":"1331366949","usedevent":"?ò???à?¢ò?°?"},{"usedscore":"50","addtime":"1331366949","usedevent":"buy gift 3"}]},{"batchnumber":"1b8a45712f7682201664968acc805350","totalscore":"100","vgoocard":"002","event":[{"usedscore":"100","addtime":"1331366949","usedevent":"?ò???Y3a?á???±"}]}]]'


parseobject p
p = ln_json.of_parse( sInputJson )
any pp
pp = p

long ll_lev1,ll_lev2
ll_lev1 = tv_1.InsertItemFirst(0,"Composers",1)         
ln_json.of_display(pp,tv_1,ll_lev1)

实测可以运行

jsonparse.rar (10.99 KB, 下载次数: 4)
你不共享给别人,谁会共享给你?
SYBASE论坛欢迎您能交换更多好的信息,资料,代码……
富强,民主,文明,和谐;自由,平等,公正,法治;爱国,敬业,诚信,友善!
SYBASEBBS - 免责申明1、欢迎访问“SYBASEBBS.COM”,本文内容及相关资源来源于网络,版权归版权方所有!本站原创内容版权归本站所有,请勿转载!
2、本文内容仅代表作者观点,不代表本站立场,作者自负,本站资源仅供学习研究,请勿非法使用,否则后果自负!请下载后24小时内删除!
3、本文内容,包括但不限于源码、文字、图片等,仅供参考。本站不对其安全性,正确性等作出保证。但本站会尽量审核会员发表的内容。
4、如本帖侵犯到任何版权问题,请立即告知本站 ,本站将及时删除并致以最深的歉意!客服邮箱:admin@sybasebbs.com
叫兽兽 发表于 2020-10-15 11:33:46 | 显示全部楼层
现在用Sailjson也是不错的
你不共享给别人,谁会共享给你?
SYBASE论坛欢迎您能交换更多好的信息,资料,代码……
富强,民主,文明,和谐;自由,平等,公正,法治;爱国,敬业,诚信,友善!
您需要登录后才可以回帖 登录 | 站点注册

本版积分规则

QQ|Archiver|手机版|SYBASE论坛中文社区 ( 鲁ICP备20019049号-5 )

GMT+8, 2020-10-23 07:49 , Processed in 0.018218 second(s), 10 queries , MemCached On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表