易语言里怎么取连续重复的数字?

易语言里怎么取连续重复的数字?,第1张

在本篇文章里小编给大家带来的一篇关于易语言统计重复数教学内容,有兴趣的朋友们可以学习下。

比如1 2 3 3 5 4 6 5 4 8 7 3 2这么多数字想取重复数据,并统计重复次数,可以用易语言编程来实现。

1、易语言新建程序

2、新建一个Windows窗口程序

3、如下图所示,亲建2个编辑框,1个选择框,1个按钮,并做好相应排版。

4、双击取重复按钮,并编写如下代码:

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849

.版本 2 .支持库 EDataStructure .局部变量 zcf, 文本型, , "0" .局部变量 i, 整数型 .局部变量 ii, 整数型 .局部变量 个数, 整数型 .局部变量 节点, 节点 zcf = 分割文本 (编辑框1.内容, #换行符, ) .计次循环首 (取数组成员数 (zcf), i)  个数 = 0  .计次循环首 (取数组成员数 (zcf), ii)   .如果真 (zcf [i] = zcf [ii])    个数 = 个数 + 1   .如果真结束  .计次循环尾 ()  .如果真 (节点.加入属性 (到文本 (zcf [i]), 0))   .如果真 (个数 ≠ 1)    .如果 (选择框2.选中 = 真)     编辑框2.加入文本 (zcf [i] + “----重复” + 到文本 (个数) + “次” + #换行符)    .否则     编辑框2.加入文本 (zcf [i] + #换行符)    .如果结束   .如果真结束  .如果真结束 .计次循环尾 ()

5、编译试运行,在编辑框1里面加入一组含重复项数据,选择看重复项选择框,点击取重复按钮,重复数据与重复次数就出现在右边的编辑框了,是不是很简单,如果有帮到您,请点击左下角的投票哦,希望大家能从本经验中学到知识收获快乐。

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

_按钮2_被单击 ()

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

.局部变量 分割数据, 文本型, , "0"

.局部变量 数字分割, 文本型, , "0"

.局部变量 重复次数, 整数型

.局部变量 判断结果, 文本型

.局部变量 ii, 整数型

.局部变量 i, 整数型

编辑框2.内容 = “”

分割数据 = 分割文本 (编辑框1.内容, #换行符, )

.计次循环首 (取数组成员数 (分割数据), i)

清除数组 (数字分割)

.计次循环首 (取文本长度 (分割数据 [i]), ii)

加入成员 (数字分割, 取文本中间 (分割数据 [i], ii, 1))

.计次循环尾 ()

判断结果 = “”

.判断循环首 (取数组成员数 (数字分割) > 0)

重复次数 = 1

.变量循环首 (取数组成员数 (数字分割), 2, -1, ii)

.如果真 (数字分割 [ii] = 数字分割 [1])

删除成员 (数字分割, ii, 1)

重复次数 = 重复次数 + 1

.如果真结束

.变量循环尾 ()

.如果真 (重复次数 > 1)

判断结果 = 判断结果 + 数字分割 [1] + “重复=” + 到文本 (重复次数) + “次,”

.如果真结束

删除成员 (数字分割, 1, 1)

.判断循环尾 ()

.如果 (判断结果 = “”)

编辑框2.加入文本 (“无重复” + #换行符)

.否则

编辑框2.加入文本 (判断结果 + #换行符)

.如果结束

.计次循环尾 ()

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

.局部变量 加入文本, 文本型

编辑框1.内容 = “”

编辑框2.内容 = “”

置随机数种子 ()

.计次循环首 (10, )

加入文本 = “”

.计次循环首 (5, )

加入文本 = 加入文本 + 到文本 (取随机数 (0, 9))

.计次循环尾 ()

编辑框1.加入文本 (加入文本 + #换行符)

.计次循环尾 ()


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/sjk/10859729.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-11
下一篇 2023-05-11

发表评论

登录后才能评论

评论列表(0条)

保存