【开源】ZJSON：跻身全球顶尖梯队的易语言极速 JSON

kyo9766

速度很快，感谢分享

sinewtec

支持开源~！感谢分享

woaini8023

JSON：跻身全球顶尖梯队的易语言极速 JSON

mfkjfidt

就爱你们这些大神

yaokui6659

解析15000条数组，每个数组30个参数，需要全部放进超级列表框，有没有什么快速办法，这踏马插入的太慢了
另外随着解析的时间增加，解析速度越来越慢.....从3000左右开始明显降低了



.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 kv, ZJSON
.局部变量 i, 整数型
.局部变量 a, 文本型
.局部变量 b, 整数型
.局部变量 c, 文本型
.局部变量 t1, 整数型
.局部变量 t2, 整数型
.局部变量 耗时秒, 双精度小数型
.局部变量 d, 整数型


t1 ＝ 取启动时间 ()
kv.构建_重置 ()
kv.构建_开始数组 (“Data”)
.计次循环首 (10000, i)
    kv.构建_开始对象 (“”)
    kv.构建_置整数 (“id”, i)
    kv.构建_置文本 (“username”, “user_” ＋ 到文本 (i))
    kv.构建_置文本 (“email”, “user” ＋ 到文本 (i) ＋ “@example.com”)
    kv.构建_置整数 (“age”, 18 ＋ i ％ 60)
    kv.构建_置逻辑 (“verified”, i ％ 2 ＝ 0)
    kv.构建_置小数 (“balance”, i × 1.5 ＋ 0.99)
    kv.构建_置文本 (“city”, 选择 (i ％ 5 ＝ 0, “Beijing”, 选择 (i ％ 5 ＝ 1, “Shanghai”, 选择 (i ％ 5 ＝ 2, “Guangzhou”, 选择 (i ％ 5 ＝ 3, “Shenzhen”, “Hangzhou”)))))
    kv.构建_置文本 (“bio”, “This is a sample biography text for user number ” ＋ 到文本 (i) ＋ “ which contains some reasonable length content.”)

    kv.构建_置整数 (“yid”, i)
    kv.构建_置文本 (“yusername”, “user_” ＋ 到文本 (i))
    kv.构建_置文本 (“yemail”, “user” ＋ 到文本 (i) ＋ “@example.com”)
    kv.构建_置整数 (“yage”, 18 ＋ i ％ 60)
    kv.构建_置逻辑 (“yverified”, i ％ 2 ＝ 0)
    kv.构建_置小数 (“ybalance”, i × 1.5 ＋ 0.99)
    kv.构建_置文本 (“ycity”, 选择 (i ％ 5 ＝ 0, “Beijing”, 选择 (i ％ 5 ＝ 1, “Shanghai”, 选择 (i ％ 5 ＝ 2, “Guangzhou”, 选择 (i ％ 5 ＝ 3, “Shenzhen”, “Hangzhou”)))))
    kv.构建_置文本 (“ybio”, “This is a sample biography text for user number ” ＋ 到文本 (i) ＋ “ which contains some reasonable length content.”)

    kv.构建_置整数 (“kid”, i)
    kv.构建_置文本 (“kusername”, “user_” ＋ 到文本 (i))
    kv.构建_置文本 (“kemail”, “user” ＋ 到文本 (i) ＋ “@example.com”)
    kv.构建_置整数 (“kage”, 18 ＋ i ％ 60)
    kv.构建_置逻辑 (“kverified”, i ％ 2 ＝ 0)
    kv.构建_置小数 (“kbalance”, i × 1.5 ＋ 0.99)
    kv.构建_置文本 (“kcity”, 选择 (i ％ 5 ＝ 0, “Beijing”, 选择 (i ％ 5 ＝ 1, “Shanghai”, 选择 (i ％ 5 ＝ 2, “Guangzhou”, 选择 (i ％ 5 ＝ 3, “Shenzhen”, “Hangzhou”)))))
    kv.构建_置文本 (“kbio”, “This is a sample biography text for user number ” ＋ 到文本 (i) ＋ “ which contains some reasonable length content.”)

    kv.构建_置整数 (“oid”, i)
    kv.构建_置文本 (“ousername”, “user_” ＋ 到文本 (i))
    kv.构建_置文本 (“oemail”, “user” ＋ 到文本 (i) ＋ “@example.com”)
    kv.构建_置整数 (“oage”, 18 ＋ i ％ 60)
    kv.构建_置逻辑 (“overified”, i ％ 2 ＝ 0)
    kv.构建_置小数 (“obalance”, i × 1.5 ＋ 0.99)
    kv.构建_置文本 (“ocity”, 选择 (i ％ 5 ＝ 0, “Beijing”, 选择 (i ％ 5 ＝ 1, “Shanghai”, 选择 (i ％ 5 ＝ 2, “Guangzhou”, 选择 (i ％ 5 ＝ 3, “Shenzhen”, “Hangzhou”)))))
    kv.构建_置文本 (“obio”, “This is a sample biography text for user number ” ＋ 到文本 (i) ＋ “ which contains some reasonable length content.”)

    kv.构建_结束对象 ()
.计次循环尾 ()
KV.构建_结束数组 ()

a ＝ kv.取JSON文本 ()


t2 ＝ 取启动时间 ()
耗时秒 ＝ (t2 － t1) × 1 ÷ 1000
.如果真 (耗时秒 ＜ 0.001)
    耗时秒 ＝ 0.001
.如果真结束
调试输出 (耗时秒)


kv.清空 ()
kv.载入JSON (a)

b ＝ kv.数组_取成员数 (“Data”)

t1 ＝ 取启动时间 ()
调试输出 (t1)
.计次循环首 (b, i)

    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    c ＝ kv.取文本 (“Data[” ＋ 到文本 (i － 1) ＋ “].username”)
    输出调试文本 (c)
.计次循环尾 ()

t2 ＝ 取启动时间 ()
耗时秒 ＝ (t2 － t1) × 1 ÷ 1000
.如果真 (耗时秒 ＜ 0.001)
    耗时秒 ＝ 0.001
.如果真结束
调试输出 (耗时秒)

gto250

支持开源~！感谢分享

XCold

感谢您为易语言添砖加瓦，666666666666666666

痴孖根

膜拜大佬无私分享

咸鱼666

支持开源~！感谢分享

nwzhi

感谢分享