数组重复的问题

杜拉拉的蕾丝

  

数据类型名	公开	备 注
数据类型1
成员名	类 型	传址	数组	备 注
name	文本型
count	双精度小数型

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
sj	数据类型1	0

子程序名	返回值类型	公开	备 注
_按钮1_被单击

启动线程 (&开始, , )

子程序名	返回值类型	公开	备 注
开始

变量名	类 型	静态	数组	备 注
ju_sj	数据类型1
i	整数型
name	文本型
count	双精度小数型

计次循环首 (1000, i)
ju_sj.name ＝ 文本_取随机范围数字 (1, 99)
ju_sj.count ＝ 到数值 (文本_取随机数字 (2, 0))
加入成员 (sj, ju_sj)
计次循环尾 ()
' name 肯定有重复的，怎么把重复的name 的count 相加
' 最后只输出唯一的一个name,及相加后的count

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> <br /> .数据类型 数据类型1<br />     .成员 name, 文本型<br />     .成员 count, 双精度小数型<br /> <br /> <br /> .版本 2<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 sj, 数据类型1, , "0"<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 启动线程 (&开始, , )<br /> <br /> <br /> .子程序 开始<br /> .局部变量 ju_sj, 数据类型1<br /> .局部变量 i, 整数型<br /> .局部变量 name, 文本型<br /> .局部变量 count, 双精度小数型<br /> <br /> .计次循环首 (1000, i)<br />     ju_sj.name ＝ 文本_取随机范围数字 (1, 99)<br />     ju_sj.count ＝ 到数值 (文本_取随机数字 (2, 0))<br />     加入成员 (sj, ju_sj)<br /> .计次循环尾 ()<br /> ' name 肯定有重复的，怎么把重复的name 的count 相加<br /> ' 最后只输出唯一的一个name,及相加后的count

输出的数组是name：1-99 及其对应 相加后的count
怎么快速的处理吖？麻烦各位大大了 ，谢谢！


补充内容 (2023-5-6 23:31):
加入成员 (sj, ju_sj)   这里面的 sj 是个程序集 数组变量

b0y

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
sj	数据类型1	0

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
_按钮1_被单击

启动线程 (&开始, , )

子程序名	返回值类型	公开	备 注
开始

变量名	类 型	静态	数组	备 注
ju_sj	数据类型1
i	整数型
name	文本型
count	双精度小数型

计次循环首 (1000, i)
ju_sj.name ＝ 文本_取随机范围数字 (1, 99)
ju_sj.count ＝ 到数值 (文本_取随机数字 (2, 0))
添加类型 (ju_sj)
计次循环尾 ()
计次循环首 (取数组成员数 (sj), i)
调试输出 (sj [i].name, sj [i].count)
计次循环尾 ()
调试输出 (取数组成员数 (sj))
' name 肯定有重复的，怎么把重复的name 的count 相加
' 最后只输出唯一的一个name,及相加后的count

子程序名	返回值类型	公开	备 注
添加类型
参数名	类 型	参考	可空	数组	备 注
_js	数据类型1

变量名	类 型	静态	数组	备 注
i
bool	逻辑型

计次循环首 (取数组成员数 (sj), i)
如果真 (sj [i].name ＝ _js.name)
bool ＝ 真
sj [i].count ＝ sj [i].count ＋ _js.count
跳出循环 ()

计次循环尾 ()
如果真 (取反 (bool))
加入成员 (sj, _js)

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 sj, 数据类型1, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 启动线程 (&开始, , )<br /> <br /> .子程序 开始<br /> .局部变量 ju_sj, 数据类型1<br /> .局部变量 i, 整数型<br /> .局部变量 name, 文本型<br /> .局部变量 count, 双精度小数型<br /> <br /> .计次循环首 (1000, i)<br />     ju_sj.name ＝ 文本_取随机范围数字 (1, 99)<br />     ju_sj.count ＝ 到数值 (文本_取随机数字 (2, 0))<br />     添加类型 (ju_sj)<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (sj), i)<br />     调试输出 (sj <i>.name, sj <i>.count)<br /> .计次循环尾 ()<br /> 调试输出 (取数组成员数 (sj))<br /> <br /> ' name 肯定有重复的，怎么把重复的name 的count 相加<br /> ' 最后只输出唯一的一个name,及相加后的count<br /> <br /> .子程序 添加类型<br /> .参数 _js, 数据类型1<br /> .局部变量 i<br /> .局部变量 bool, 逻辑型<br /> <br /> .计次循环首 (取数组成员数 (sj), i)<br />     .如果真 (sj <i>.name ＝ _js.name)<br />         bool ＝ 真<br />         sj <i>.count ＝ sj <i>.count ＋ _js.count<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (取反 (bool))<br />     加入成员 (sj, _js)<br /> .如果真结束

狐狸黑斯

要不换其他的？ 比如json或者e2ee存取键值表之类的

虚拟易友

把name=i 就有1000个不重复的name了

b0y

每次加都先枚举一遍寻找相同的,,还能有什么快速方法.

要么就用json之类的

狐狸黑斯

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
sj	zyJsonDocument

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

sj.创建 (, , , )
启动线程 (&子程序1, , )

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
name	文本型
count	双精度小数型

计次循环首 (1000, )
name ＝ 文本_取随机范围数字 (1, 99, )
count ＝ 到数值 (文本_取随机数字 (2, 0))
sj.置整数 (name ＋ “.count”, sj.取整数 (name ＋ “.count”) ＋ count)
计次循环尾 ()
调试输出 (sj.到文本 (, , , ))

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 sj, zyJsonDocument<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> sj.创建 (, , , )<br /> 启动线程 (&子程序1, , )<br /> <br /> .子程序 子程序1<br /> .局部变量 name, 文本型<br /> .局部变量 count, 双精度小数型<br /> <br /> <br /> .计次循环首 (1000, )<br />     name ＝ 文本_取随机范围数字 (1, 99, )<br />     count ＝ 到数值 (文本_取随机数字 (2, 0))<br />     sj.置整数 (name ＋ “.count”, sj.取整数 (name ＋ “.count”) ＋ count)<br /> .计次循环尾 ()<br /> 调试输出 (sj.到文本 (, , , ))

用的zyjson
【搬运】zyJson模块含源码，2022年新版
https://bbs.125.la/forum.php?mod=viewthread&tid=14719783
(出处: 精易论坛)

那小子少跟弦

我一般都是直接队列去重...快慢不说,主要感觉简单一点

明天自然醒

  

子程序名	返回值类型	公开	备 注
开始

变量名	类 型	静态	数组	备 注
ju_sj	数据类型1
sj	数据类型1		0
flag	整数型		99
act	逻辑型		99
i	整数型
name	文本型
count	整数型
name_int	整数型
head	整数型

重定义数组 (ju_sj, 假, 1000)
置随机数种子 ()
计次循环首 (1000, i)
name_int ＝ 取随机数 (1, 99)
ju_sj [i].name ＝ 到文本 (name_int)
ju_sj [i].count ＝ 取随机数 (0, 99)
act [name_int] ＝ 真
flag [name_int] ＝ flag [name_int] ＋ ju_sj [i].count
计次循环尾 ()
重定义数组 (ju_sj, 假, 100)
计次循环首 (取数组成员数 (flag), i)
如果真 (act [i])
head ＝ head ＋ 1
ju_sj [head].name ＝ 到文本 (i)
ju_sj [head].count ＝ flag [i]

计次循环尾 ()
重定义数组 (ju_sj, 真, head)

.版本 2<br /> <br /> .子程序 开始<br /> .局部变量 ju_sj, 数据类型1<br /> .局部变量 sj, 数据类型1, , "0"<br /> .局部变量 flag, 整数型, , "99"<br /> .局部变量 act, 逻辑型, , "99"<br /> .局部变量 i, 整数型<br /> .局部变量 name, 文本型<br /> .局部变量 count, 整数型<br /> .局部变量 name_int, 整数型<br /> .局部变量 head, 整数型<br /> <br /> <br /> <br /> 重定义数组 (ju_sj, 假, 1000)<br /> 置随机数种子 ()<br /> .计次循环首 (1000, i)<br />     name_int ＝ 取随机数 (1, 99)<br />     ju_sj <i>.name ＝ 到文本 (name_int)<br />     ju_sj <i>.count ＝ 取随机数 (0, 99)<br /> <br />     act [name_int] ＝ 真<br />     flag [name_int] ＝ flag [name_int] ＋ ju_sj <i>.count<br /> .计次循环尾 ()<br /> <br /> 重定义数组 (ju_sj, 假, 100)<br /> .计次循环首 (取数组成员数 (flag), i)<br />     .如果真 (act <i>)<br />         head ＝ head ＋ 1<br />         ju_sj [head].name ＝ 到文本 (i)<br />         ju_sj [head].count ＝ flag <i><br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 重定义数组 (ju_sj, 真, head)

补充内容 (2023-5-7 00:40):
ju_sj 全部换成 sj

风清云游

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
sj	数据类型1	99

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

子程序1 ()
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
a
b
c
d			99
e

置随机数种子 ()
计次循环首 (1000, )
a ＝ 取随机数 (1, 99)
b ＝ 取随机数 (2, 2)  ' 固定2 方便观测结果
c ＝ d [a]
如果 (c ＝ 0)
e ＝ e ＋ 1
d [a] ＝ e
sj [e].name ＝ 到文本 (a)
sj [e].count ＝ b
sj [c].count ＝ sj [c].count ＋ b

计次循环尾 ()
重定义数组 (sj, 真, e)
' 输出结果
计次循环首 (e, a)
调试输出 (sj [a].name, sj [a].count)
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> .程序集变量 sj, 数据类型1, , "99"<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 子程序1 ()<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 子程序1<br /> .局部变量 a<br /> .局部变量 b<br /> .局部变量 c<br /> .局部变量 d, , , "99"<br /> .局部变量 e<br /> <br /> 置随机数种子 ()<br /> .计次循环首 (1000, )<br />     a ＝ 取随机数 (1, 99)<br />     b ＝ 取随机数 (2, 2)  ' 固定2 方便观测结果<br />     c ＝ d [a]<br />     .如果 (c ＝ 0)<br />         e ＝ e ＋ 1<br />         d [a] ＝ e<br />         sj [e].name ＝ 到文本 (a)<br />         sj [e].count ＝ b<br />     .否则<br />         sj [c].count ＝ sj [c].count ＋ b<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 重定义数组 (sj, 真, e)<br /> <br /> ' 输出结果<br /> .计次循环首 (e, a)<br />     调试输出 (sj [a].name, sj [a].count)<br /> .计次循环尾 ()