【驱动易语言源码】【牛回头公式源码】【开放系统源码】易语言多次运行程序源码_易语言多线程老是重复运行
1.?易语言多语言运行????Զ?????г???Դ??
2.求易语言统计内容范围000000-999999出现的次数程序源码
?????Զ?????г???Դ??
月数不好定，因为每个月天数不一样。次运程老驱动易语言源码算到天就行了。行程序源牛回头公式源码
代码如下：
.版本 2
.支持库 spec
.子程序 _按钮1_被单击
.局部变量 运行时间,码易开放系统源码 整数型, , , 毫秒
运行时间 ＝ 取启动时间 ()
调试输出 (取毫秒到天 (运行时间))
.子程序 取毫秒到天, 文本型
.参数 参_秒, 整数型
.局部变量 参_秒, 整数型
.局部变量 天, 整数型
.局部变量 小时, 整数型
.局部变量 分钟, 整数型
.局部变量 秒, 整数型
参_秒 ＝ 取启动时间 () ÷
天 ＝ 参_秒 ÷ ÷ ÷
小时 ＝ (参_秒 － 天 × × ) ÷
分钟 ＝ (参_秒 － 天 × × － 小时 × ) ÷
秒 ＝ 参_秒 ％
返回 (到文本 (天) ＋ “天” ＋ 到文本 (小时) ＋ “小时” ＋ 到文本 (分钟) ＋ “分钟” ＋ 到文本 (秒) ＋ “秒”)
求易语言统计内容范围-出现的次数程序源码
.版本 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]) ＋ #换行符)
