1.?易语言多语言运行????Զ?????г???Դ??
2.求易语言统计内容范围000000-999999出现的次数程序源码
?????Զ?????г???Դ??
月数不好定,因为每个月天数不一样。次运程老免费课程源码算到天就行了。行程序源社交求职源码
代码如下:
.版本 2
.支持库 spec
.子程序 _按钮1_被单击
.局部变量 运行时间,码易YHOST系统源码 整数型, , , 毫秒
运行时间 = 取启动时间 ()
调试输出 (取毫秒到天 (运行时间))
.子程序 取毫秒到天, 文本型
.参数 参_秒, 整数型
.局部变量 参_秒, 整数型
.局部变量 天, 整数型
.局部变量 小时, 整数型
.局部变量 分钟, 整数型
.局部变量 秒, 整数型
参_秒 = 取启动时间 () ÷
天 = 参_秒 ÷ ÷ ÷
小时 = (参_秒 - 天 × × ) ÷
分钟 = (参_秒 - 天 × × - 小时 × ) ÷
秒 = 参_秒 %
返回 (到文本 (天) + “天” + 到文本 (小时) + “小时” + 到文本 (分钟) + “分钟” + 到文本 (秒) + “秒”)
求易语言统计内容范围-出现的次数程序源码
.版本 2.支持库 RegEx
.子程序 _按钮_统计_被单击
.局部变量 文本组, 文本型, , "0"
.局部变量 分组内容, 文本型, , "0"
.局部变量 记录个数, 整数型, , "0"
.局部变量 是否存在, 逻辑型
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 文本, 文本型
.局部变量 个数, 整数型
.局部变量 正则, 正则表达式
正则.创建 (“[^0-9]+”, )
编辑框1.内容 = 正则.替换 (编辑框1.内容, “,”, 1, , 真, 真)
文本组 = 分割文本 (编辑框1.内容, “,”, )
.计次循环首 (取数组成员数 (文本组), i)
是否存在 = 假
.计次循环首 (取数组成员数 (分组内容), j)
.如果真 (分组内容 [j] = 文本组 [i])
是否存在 = 真
记录个数 [j] = 记录个数 [j] + 1
跳出循环 ()
.如果真结束
.计次循环尾 ()
.如果真 (是否存在 = 假)
加入成员 (记录个数, 1)
加入成员 (分组内容, 文本组 [i])
.如果真结束
.计次循环尾 ()
.如果真 (取数组成员数 (分组内容) = 0)
返回 ()
.如果真结束
编辑框2.内容 = “”
.计次循环首 (取数组成员数 (分组内容) - 1, i)
.变量循环首 (i + 1, 取数组成员数 (分组内容), 1, j)
.如果真 (记录个数 [i] > 记录个数 [j])
文本 = 分组内容 [i]
分组内容 [i] = 分组内容 [j]
分组内容 [j] = 文本
个数 = 记录个数 [i]
记录个数 [i] = 记录个数 [j]
记录个数 [j] = 个数
.如果真结束
.变量循环尾 ()
编辑框2.加入文本 (分组内容 [i] + “ 出现次数:” + 到文本 (记录个数 [i]) + #换行符)
.计次循环尾 ()
编辑框2.加入文本 (分组内容 [i] + “ 出现次数:” + 到文本 (记录个数 [i]) + #换行符)