取 五个不同数字

zoujialan

编辑框1 有多行文本  从最底下开始取 五个号码   不能重复    取出来后 的数据合并成一行 并以小到大排序

宇智波·晓易

.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击


编辑框2.内容 ＝ 取5位不同 (编辑框1.内容)




.子程序 取5位不同, 文本型
.参数 要取的文本, 文本型
.局部变量 arr, 文本型, , "0"
.局部变量 I, 整数型
.局部变量 str, 文本型
.局部变量 int, 整数型, , "0"

arr ＝ 分割文本 (要取的文本, #换行符, )
.如果真 (取数组成员数 (arr) ＝ 0)
    返回 (“”)
.如果真结束
.循环判断首 ()
    .如果真 (寻找文本 (str, arr [取数组成员数 (arr) － I], , 假) ＝ -1)
        str ＝ str ＋ arr [取数组成员数 (arr) － I]
    .如果真结束
    I ＝ I ＋ 1
    .如果真 (I ＝ 取数组成员数 (arr))
        跳出循环 ()
    .如果真结束

.循环判断尾 (取文本长度 (str) ≠ 5)
.计次循环首 (取文本长度 (str), I)
    加入成员 (int, 到整数 (取文本中间 (str, I, 1)))
.计次循环尾 ()
数组排序 (int, 真)
str ＝ “”
.计次循环首 (取数组成员数 (int), I)
    str ＝ str ＋ 到文本 (int [I])
.计次循环尾 ()
返回 (str)

一直被误解

5JB的伸手党我不说话

zoujialan

一直被误解 发表于 2015-4-26 11:50
5JB的伸手党我不说话

不是想伸手   实在是不知道该怎么下手

.版本 2
.支持库 spec

.局部变量 开奖数组, 文本型, , "0"
.局部变量 开奖数字, 文本型, , "0"
.局部变量 开奖单个文本, 文本型, , "0"
.局部变量 开奖单个数字综合, 整数型
.局部变量 开奖次数, 整数型
.局部变量 计次, 整数型
.局部变量 计次1, 整数型
.局部变量 计次2, 整数型
.局部变量 文本, 文本型
.局部变量 开奖前1, 文本型
.局部变量 开奖前2, 文本型
.局部变量 开奖前3, 文本型
.局部变量 开奖前4, 文本型
.局部变量 开奖前5, 文本型
.局部变量 临时, 文本型

开奖数组 ＝ 分割文本 (编辑框1.内容, #换行符, )
开奖次数 ＝ 取数组成员数 (开奖数组)
.计次循环首 (开奖次数, 计次)
    开奖数字 ＝ 分割文本 (开奖数组 [计次], “ ”, )
    编辑框2.加入文本 (取文本左边 (开奖数字 [2], 1) ＋ #换行符)

    ' 加入成员 (文本, 取文本左边 (开奖数字 [2], 1))
    ' 调试输出 (文本)
.计次循环尾 ()
开奖单个文本 ＝ 分割文本 (编辑框2.内容, #换行符, )
开奖单个数字综合 ＝ 取数组成员数 (开奖单个文本) ＋ 1
开奖前1 ＝ “X”
开奖前2 ＝ “X”
开奖前3 ＝ “X”
开奖前4 ＝ “X”
开奖前5 ＝ “X”
清除数组 (全局数组)
.计次循环首 (取数组成员数 (开奖单个文本), 计次1)
    临时 ＝ 到文本 (开奖单个文本 [开奖单个数字综合 － 计次1])
    .如果真 (取文本长度 (临时) ≠ -1)

        .如果真 (取数组成员数 (全局数组) ＝ 5)
            跳出循环 ()
        .如果真结束



        .计次循环首 (取数组成员数 (全局数组), 计次2)
            .如果真 (临时 ≠ 全局数组 [计次2])
                加入成员 (全局数组, 临时)
            .如果真结束

        .计次循环尾 ()

    .如果真结束


.计次循环尾 ()
调试输出 (全局数组)

无夜

为什么用编辑框，不用列表框呢？

zoujialan

无夜 发表于 2015-4-26 11:56
为什么用编辑框，不用列表框呢？

因为数据很多  而且是处理后提取到的  我要的只是从最底下 开始 取5行不相同的数据  如果最底下五行有相同的 就向上提取一个  直到不重复的五个数字

zoujialan

一直被误解 发表于 2015-4-26 11:50
5JB的伸手党我不说话

搞定




.版本 2
.支持库 spec

.局部变量 开奖数组, 文本型, , "0"
.局部变量 开奖数字, 文本型, , "0"
.局部变量 开奖单个文本, 文本型, , "0"
.局部变量 开奖单个数字综合, 整数型
.局部变量 开奖次数, 整数型
.局部变量 计次, 整数型
.局部变量 计次1, 整数型
.局部变量 计次2, 整数型
.局部变量 文本, 文本型
.局部变量 开奖前1, 文本型
.局部变量 开奖前2, 文本型
.局部变量 开奖前3, 文本型
.局部变量 开奖前4, 文本型
.局部变量 开奖前5, 文本型
.局部变量 临时, 文本型
.局部变量 临时1, 文本型

清除数组 (全局数组)
临时1 ＝ “”
开奖单个文本 ＝ 分割文本 (编辑框1.内容, #换行符, )
开奖单个数字综合 ＝ 取数组成员数 (开奖单个文本) ＋ 1
.计次循环首 (取数组成员数 (开奖单个文本), 计次1)
    临时 ＝ 到文本 (开奖单个文本 [开奖单个数字综合 － 计次1])
    .如果真 (取文本长度 (临时1) ＝ 5)
        跳出循环 ()
    .如果真结束

    .如果真 (寻找文本 (临时1, 临时, , 真) ＝ -1)
        临时1 ＝ 临时1 ＋ 临时
    .如果真结束

.计次循环尾 ()
调试输出 (临时1)

zoujialan

宇智波·晓易 发表于 2015-4-26 12:25
.版本 2

.程序集 窗口程序集1

谢谢了  虽然  自己已经想出来了  和你这个一样   但是你回答的最详细