对比自身取相同数（非全循环） - 精易论坛

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

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

' 说明：（取任意位，取任意相同数，可以避免每条数据都循环对比，减少了时间）
' 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 />
清除数组 (最后结果)