对比自身取相同数（非全循环）

lookaman

一组数据内，取任意位，取任意相同数，（非全循环）可以避免每条数据都循环对比，减少了时间



非全循环对比自身取相同.e (9.4 KB, 下载次数: 9)

2023-3-1 10:20 上传

点击文件名下载附件
下载积分: 精币 -2 枚

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

' 说明：（取任意位，取任意相同数，可以避免每条数据都循环对比，减少了时间）
' 1、先把原始数据拆成数组（取1）
' 2、通过（开始位）（结束位）取出对应的字符串，存入一个数组（取2）
' 3、（取2）从第一个开始比较，有相同的，把对应下标写入存下标的数组（下标数组）
' 4、有3个相同时，把值写入结果数组；通过下标数组把（取2）内对应位置的值置为gogogo（置成啥都行，但要上下对应），用作下次判断此值是否需要做为欲比数进行比较；再把下标数组清空
' 5、最后把结果数组输出就可以了

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

变量名	类 型	静态	数组	备 注
开始位	文本型
结束位	文本型
取1	文本型		0
取2	文本型		0
取1总数	整数型
计次1	整数型
计次2	整数型
欲比数	文本型			欲比较的数
相等	整数型		0
最后结果	文本型		0
计次下标	整数型

开始位 ＝ 到文本 (到整数 (开始位_编辑框3.内容) × 2 ＋ 到整数 (开始位_编辑框3.内容) － 2)  ' 开始位
结束位 ＝ 到文本 (到整数 (结束位_编辑框4.内容) × 2 ＋ 到整数 (结束位_编辑框4.内容) － 1)  ' 结束位
取1 ＝ 分割文本 (欲提取_编辑框1.内容, #换行符, )  ' 每行内容，存入到 取1 数组
取1总数 ＝ 取数组成员数 (取1)
计次循环首 (取1总数, 计次1)  ' 通过头、尾将欲比较字符放到一个新的数组（取2）
加入成员 (取2, 取文本中间 (取1 [计次1], 到整数 (开始位), 到整数 (结束位) － 到整数 (开始位) ＋ 1))
计次循环尾 ()
计次循环首 (取数组成员数 (取2), 计次1)  ' 只判断取2内的数组
清除数组 (相等)
欲比数 ＝ 取2 [计次1]  ' 欲比较的数
加入成员 (相等, 计次1)  ' 将 欲比数 下标写入到 相等 数组中
如果真 (欲比数 ≠ “gogogo”)  ' 为 gogogo 时表示此数据比较过，作用就是筛选是否为比较过的相同数。
计次循环首 (取1总数 － 计次1, 计次2)
如果真 (文本比较 (欲比数, 取2 [计次1 ＋ 计次2], 真) ＝ 0)  ' 欲比数 依次与剩余数相比
加入成员 (相等, 计次1 ＋ 计次2)  ' 将 相等数 的下标写入到 相同 数组当中

计次循环尾 ()
如果真 (取数组成员数 (相等) ＞ 到数值 (相同数_编辑框.内容) － 1)  ' 相同数组内有 3 个及以上相等的,或任意相等的
加入成员 (最后结果, 欲比数)  ' 将 欲比数 写入到 最后结果 数组，准备最后输出
计次循环首 (取数组成员数 (相等), 计次下标)
取2 [相等 [计次下标]] ＝ “gogogo”  ' 将有3个以上相等的，在 取2 数组内对应位置的内容，置为 gogogo
计次循环尾 ()

欲比数 ＝ “”
计次循环尾 ()
结果_编辑框2.内容 ＝ “”
计次循环首 (取数组成员数 (最后结果), 计次1)
结果_编辑框2.内容 ＝ 结果_编辑框2.内容 ＋ “----------------” ＋ #换行符 ＋ 最后结果 [计次1]
计次循环尾 ()
开始位 ＝ “”
结束位 ＝ “”
欲比数 ＝ “”
清除数组 (取1)
清除数组 (取2)
清除数组 (相等)
清除数组 (最后结果)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> ' 说明：（取任意位，取任意相同数，可以避免每条数据都循环对比，减少了时间）<br /> <br /> ' 1、先把原始数据拆成数组（取1）<br /> <br /> ' 2、通过（开始位）（结束位）取出对应的字符串，存入一个数组（取2）<br /> <br /> ' 3、（取2）从第一个开始比较，有相同的，把对应下标写入存下标的数组（下标数组）<br /> <br /> ' 4、有3个相同时，把值写入结果数组；通过下标数组把（取2）内对应位置的值置为gogogo（置成啥都行，但要上下对应），用作下次判断此值是否需要做为欲比数进行比较；再把下标数组清空<br /> <br /> ' 5、最后把结果数组输出就可以了<br /> <br /> <br /> .子程序 _提取_按钮2_被单击<br /> .局部变量 开始位, 文本型<br /> .局部变量 结束位, 文本型<br /> .局部变量 取1, 文本型, , "0"<br /> .局部变量 取2, 文本型, , "0"<br /> .局部变量 取1总数, 整数型<br /> .局部变量 计次1, 整数型<br /> .局部变量 计次2, 整数型<br /> .局部变量 欲比数, 文本型, , , 欲比较的数<br /> .局部变量 相等, 整数型, , "0"<br /> .局部变量 最后结果, 文本型, , "0"<br /> .局部变量 计次下标, 整数型<br /> <br /> <br /> 开始位 ＝ 到文本 (到整数 (开始位_编辑框3.内容) × 2 ＋ 到整数 (开始位_编辑框3.内容) － 2)  ' 开始位<br /> 结束位 ＝ 到文本 (到整数 (结束位_编辑框4.内容) × 2 ＋ 到整数 (结束位_编辑框4.内容) － 1)  ' 结束位<br /> <br /> 取1 ＝ 分割文本 (欲提取_编辑框1.内容, #换行符, )  ' 每行内容，存入到 取1 数组<br /> 取1总数 ＝ 取数组成员数 (取1)<br /> <br /> .计次循环首 (取1总数, 计次1)  ' 通过头、尾将欲比较字符放到一个新的数组（取2）<br /> <br />     加入成员 (取2, 取文本中间 (取1 [计次1], 到整数 (开始位), 到整数 (结束位) － 到整数 (开始位) ＋ 1))<br /> <br /> .计次循环尾 ()<br /> <br /> .计次循环首 (取数组成员数 (取2), 计次1)  ' 只判断取2内的数组<br />     清除数组 (相等)<br /> <br />     欲比数 ＝ 取2 [计次1]  ' 欲比较的数<br />     加入成员 (相等, 计次1)  ' 将 欲比数 下标写入到 相等 数组中<br /> <br />     .如果真 (欲比数 ≠ “gogogo”)  ' 为 gogogo 时表示此数据比较过，作用就是筛选是否为比较过的相同数。<br />         .计次循环首 (取1总数 － 计次1, 计次2)<br /> <br />             .如果真 (文本比较 (欲比数, 取2 [计次1 ＋ 计次2], 真) ＝ 0)  ' 欲比数 依次与剩余数相比<br />                 加入成员 (相等, 计次1 ＋ 计次2)  ' 将 相等数 的下标写入到 相同 数组当中<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br /> <br />         .如果真 (取数组成员数 (相等) ＞ 到数值 (相同数_编辑框.内容) － 1)  ' 相同数组内有 3 个及以上相等的,或任意相等的<br /> <br />             加入成员 (最后结果, 欲比数)  ' 将 欲比数 写入到 最后结果 数组，准备最后输出<br /> <br />             .计次循环首 (取数组成员数 (相等), 计次下标)<br /> <br />                 取2 [相等 [计次下标]] ＝ “gogogo”  ' 将有3个以上相等的，在 取2 数组内对应位置的内容，置为 gogogo<br /> <br />             .计次循环尾 ()<br /> <br />         .如果真结束<br /> <br />     .如果真结束<br />     欲比数 ＝ “”<br /> <br /> .计次循环尾 ()<br /> <br /> 结果_编辑框2.内容 ＝ “”<br /> .计次循环首 (取数组成员数 (最后结果), 计次1)<br />     结果_编辑框2.内容 ＝ 结果_编辑框2.内容 ＋ “----------------” ＋ #换行符 ＋ 最后结果 [计次1]<br /> .计次循环尾 ()<br /> 开始位 ＝ “”<br /> 结束位 ＝ “”<br /> 欲比数 ＝ “”<br /> 清除数组 (取1)<br /> 清除数组 (取2)<br /> 清除数组 (相等)<br /> 清除数组 (最后结果)

无极

        支持开源~！感谢分享

无极

        支持开源~！感谢分享

张张利利

取任意相同数

a019872140

牛逼66777777766666666666666666

396384183

楼主辛苦了，谢谢楼主，感谢楼主分享，楼主好人一生平安！！！

一指温柔

感谢分享

凉忆亦凉心

666666666666666

亿万

感谢分享 支持开源 ！

13012145633

感谢分享 支持开源 ！