1.?易语言数源码易语言查易语言程????????ݿ??ѯͳ??Դ??
2.求易语言统计内容范围000000-999999出现的次数程序源码

?????????ݿ??ѯͳ??Դ??

       月数不好定，因为每个月天数不一样。据库据代易程序源码算到天就行了。查询成源directbytebuffer源码

       代码如下：

       .版本 2

       .支持库 spec

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

       .局部变量 运行时间,统计googledir源码 整数型, , , 毫秒

       运行时间 ＝ 取启动时间 ()

       调试输出 (取毫秒到天 (运行时间))

       .子程序 取毫秒到天, 文本型

       .参数 参_秒, 整数型

       .局部变量 参_秒, 整数型

       .局部变量 天, 整数型

       .局部变量 小时, 整数型

       .局部变量 分钟, 整数型

       .局部变量 秒, 整数型

       参_秒 ＝ 取启动时间 () ÷

       天 ＝ 参_秒 ÷ ÷ ÷

       小时 ＝ (参_秒 － 天 × × ) ÷

       分钟 ＝ (参_秒 － 天 × × － 小时 × ) ÷

       秒 ＝ 参_秒 ％

       返回 (到文本 (天) ＋ “天” ＋ 到文本 (小时) ＋ “小时” ＋ 到文本 (分钟) ＋ “分钟” ＋ 到文本 (秒) ＋ “秒”)

求易语言统计内容范围-出现的次数程序源码

       .支持库 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]) ＋ #换行符)