取编辑框前5位不相同的数到另外一个编辑框

笑红尘゛

LZ我可以给一个思路你。先删除重复文本。然后 用取文本左边（） 就可以实现了

洃铯‰感伤

用精易模块。

天中小和尚

测试.zip (144.68 KB, 下载次数: 7)

2013-10-13 19:08 上传

点击文件名下载附件
精易模块

御风软件

无模块，纯源码，复制到易语言即可使用

[e]
.版本 2
.支持库 spec

.局部变量 文本, 文本型
.局部变量 N, 整数型
.局部变量 位数, 整数型
.局部变量 欲取位数, 整数型
.局部变量 数量, 整数型
.局部变量 一个数字, 文本型
.局部变量 全部数字, 文本型

文本 ＝ “11223586898526”
欲取位数 ＝ 5
数量 ＝ 取文本长度 (文本)
.计次循环首 (数量, N)
    一个数字 ＝ 取文本中间 (文本, N, 1)
    .如果真 (寻找文本 (全部数字, 一个数字, , 假) ＝ -1)
        全部数字 ＝ 全部数字 ＋ 一个数字
        .如果真 (取文本长度 (全部数字) ＝ 欲取位数)
            调试输出 (全部数字)
            跳出循环 ()
        .如果真结束

    .如果真结束

.计次循环尾 ()
[/e]

SourceCode

[e]
.版本 2

.子程序 _按钮1_被单击
.局部变量 次数
.局部变量 计次
.局部变量 临时文本, 文本型

次数 ＝ 取文本长度 (编辑框1.内容)
.计次循环首 (次数, 计次)
    .判断开始 (寻找文本 (临时文本, 取文本中间 (编辑框1.内容, 计次, 1), , 假) ＝ -1)
        临时文本 ＝ 临时文本 ＋ 取文本中间 (编辑框1.内容, 计次, 1)
    .默认

    .判断结束

.计次循环尾 ()
编辑框2.内容 ＝ 取文本左边 (临时文本, 5)
[/e]

补充内容 (2013-10-13 19:50):
把“默认”去掉

SourceCode

上传源码吧   

残疾人的心声

用冒泡算法吧!