明浩_没事写了个倒计时时分秒任务执行

王者路太艰难

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

时钟1.时钟周期 ＝ 1000

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
局_表索引	整数型
局_倒数时	整数型
局_倒数分	整数型
局_倒数秒	整数型
局_倒数时间	文本型
局_倒计时	文本型

计次循环首 (超级列表框1.取表项数 (), 局_表索引)
判断 (超级列表框1.取标题 (局_表索引 － 1, 1) ＝ “”)
超级列表框1.置标题 (局_表索引 － 1, 1, 超级列表框1.取标题 (局_表索引 － 1, 0))
判断 (超级列表框1.取标题 (局_表索引 － 1, 1) ＝ “00:00:00”)
' 这里写执行定时任务操作
调试输出 (“执行定时操作”)
' 如不再执行那千万要改表项标题


局_倒数时间 ＝ 超级列表框1.取标题 (局_表索引 － 1, 1)
局_倒数时 ＝ 到整数 (文本_取左边 (局_倒数时间, “:”))
局_倒数分 ＝ 到整数 (文本_取出中间文本 (局_倒数时间, “:”, “:”))
局_倒数秒 ＝ 到整数 (文本_取右边 (局_倒数时间, 到文本 (局_倒数分) ＋ “:”))
判断 (局_倒数秒 ＝ 0)
局_倒数秒 ＝ 59
判断 (局_倒数分 ≠ 0)
局_倒数分 ＝ 局_倒数分 － 1
返回 ()

局_倒数秒 ＝ 局_倒数秒 － 1
判断 (局_倒数分 ＝ 0 且 局_倒数时 ≠ 0)
局_倒数分 ＝ 59
局_倒数时 ＝ 局_倒数时 － 1



局_倒计时 ＝ 选择 (局_倒数时 ＜ 10, “0”, “”) ＋ 到文本 (局_倒数时) ＋ “:” ＋ 选择 (局_倒数分 ＜ 10, “0”, “”) ＋ 到文本 (局_倒数分) ＋ “:” ＋ 选择 (局_倒数秒 ＜ 10, “0”, “”) ＋ 到文本 (局_倒数秒)
超级列表框1.置标题 (局_表索引 － 1, 1, 局_倒计时)

计次循环尾 ()

子程序名	返回值类型	公开	备 注
文本_取右边	文本型		从文本的右边按 欲寻找的文本 开始寻找, 取行右边 (“1234567890”, “5”, 1, 真)
参数名	类 型	参考	可空	数组	备 注
被查找的文本	文本型				被查找的文本
欲寻找的文本	文本型				欲寻找的文本
起始寻找位置	整数型				欲寻找的文本的起始寻找位置,一般情况都留空
是否区分大小写	逻辑型				默认为假,区分大小写

变量名	类 型	静态	数组	备 注
找到的位置	整数型
结果文本	文本型

如果真 (起始寻找位置 ≤ 0 或 是否为空 (起始寻找位置) ＝ 真)
起始寻找位置 ＝ 1
找到的位置 ＝ 倒找文本 (被查找的文本, 欲寻找的文本, , 是否区分大小写)
如果真 (找到的位置 ＝ -1)
返回 (“”)
结果文本 ＝ 取文本右边 (被查找的文本, 取文本长度 (被查找的文本) － 取文本长度 (欲寻找的文本) － 找到的位置 ＋ 1)
返回 (结果文本)

子程序名	返回值类型	公开	备 注
文本_取出中间文本	文本型		比如：欲取全文本为“12345”,现在要取出“3”，<3>的前面为“2”，<3>的后面为“4”。
参数名	类 型	参考	可空	数组	备 注
欲取全文本	文本型				比如：欲取全文本为 12345
前面文本	文本型				3的前面为“2”，引号直接用 #引号，如："[color=#引号red#引号]"
后面文本	文本型				3的后面为“4”，引号直接用 #引号，如："[color=#引号red#引号]"
起始搜寻位置	整数型				可空。1为首位置，2为第2个位置，如此类推，如果被省略，则“寻找字节集”命令默认从首部开始，“倒找字节集”命令默认从尾部开始。
是否区分大小写	逻辑型				可空。初始值为“假”。假 = 不区分    真 = 区分大小写。

变量名	类 型	静态	数组	备 注
局_位置	整数型
局_位置1	整数型
局_前面文本	文本型
局_后面文本	文本型

局_前面文本 ＝ 子文本替换 (前面文本, “#引号”, #引号, , , 真)
局_后面文本 ＝ 子文本替换 (后面文本, “#引号”, #引号, , , 真)
是否区分大小写 ＝ 取反 (是否区分大小写)
局_位置 ＝ 寻找文本 (欲取全文本, 局_前面文本, 起始搜寻位置, 是否区分大小写)
如果真 (局_位置 ≠ -1)
局_位置 ＝ 局_位置 ＋ 取文本长度 (局_前面文本)
局_位置1 ＝ 寻找文本 (欲取全文本, 局_后面文本, 局_位置, 是否区分大小写)
如果真 (局_位置 ＝ -1 或 局_位置1 ＝ -1)
返回 (“”)
返回 (取文本中间 (欲取全文本, 局_位置, 局_位置1 － 局_位置))

子程序名	返回值类型	公开	备 注
文本_取左边	文本型		从文本的左边按 欲寻找的文本 开始寻找
参数名	类 型	参考	可空	数组	备 注
被查找的文本	文本型				被查找的文本
欲寻找的文本	文本型				欲寻找的文本
起始寻找位置	整数型				欲寻找的文本的起始寻找位置
是否区分大小写	逻辑型				默认为假区分大小写

变量名	类 型	静态	数组	备 注
找到的位置	整数型
结果文本	文本型

如果真 (起始寻找位置 ≤ 0)
起始寻找位置 ＝ 1
找到的位置 ＝ 寻找文本 (被查找的文本, 欲寻找的文本, 起始寻找位置, 是否区分大小写)
如果真 (找到的位置 ＝ -1)
返回 (“”)
结果文本 ＝ 取文本左边 (被查找的文本, 找到的位置 － 1)
返回 (结果文本)

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 时钟1.时钟周期 ＝ 1000<br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 局_表索引, 整数型<br /> .局部变量 局_倒数时, 整数型<br /> .局部变量 局_倒数分, 整数型<br /> .局部变量 局_倒数秒, 整数型<br /> .局部变量 局_倒数时间, 文本型<br /> .局部变量 局_倒计时, 文本型<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), 局_表索引)<br />     .判断开始 (超级列表框1.取标题 (局_表索引 － 1, 1) ＝ “”)<br />         超级列表框1.置标题 (局_表索引 － 1, 1, 超级列表框1.取标题 (局_表索引 － 1, 0))<br />     .判断 (超级列表框1.取标题 (局_表索引 － 1, 1) ＝ “00:00:00”)<br />         ' 这里写执行定时任务操作<br />         调试输出 (“执行定时操作”)<br />         ' 如不再执行那千万要改表项标题<br />     .默认<br /> <br />         局_倒数时间 ＝ 超级列表框1.取标题 (局_表索引 － 1, 1)<br /> <br />         局_倒数时 ＝ 到整数 (文本_取左边 (局_倒数时间, “:”))<br />         局_倒数分 ＝ 到整数 (文本_取出中间文本 (局_倒数时间, “:”, “:”))<br />         局_倒数秒 ＝ 到整数 (文本_取右边 (局_倒数时间, 到文本 (局_倒数分) ＋ “:”))<br />         .判断开始 (局_倒数秒 ＝ 0)<br />             局_倒数秒 ＝ 59<br />             .判断开始 (局_倒数分 ≠ 0)<br />                 局_倒数分 ＝ 局_倒数分 － 1<br />             .默认<br />                 返回 ()<br />             .判断结束<br /> <br />         .默认<br />             局_倒数秒 ＝ 局_倒数秒 － 1<br />         .判断结束<br />         .判断开始 (局_倒数分 ＝ 0 且 局_倒数时 ≠ 0)<br />             局_倒数分 ＝ 59<br />             局_倒数时 ＝ 局_倒数时 － 1<br />         .默认<br /> <br />         .判断结束<br /> <br />         局_倒计时 ＝ 选择 (局_倒数时 ＜ 10, “0”, “”) ＋ 到文本 (局_倒数时) ＋ “:” ＋ 选择 (局_倒数分 ＜ 10, “0”, “”) ＋ 到文本 (局_倒数分) ＋ “:” ＋ 选择 (局_倒数秒 ＜ 10, “0”, “”) ＋ 到文本 (局_倒数秒)<br /> <br />         超级列表框1.置标题 (局_表索引 － 1, 1, 局_倒计时)<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 文本_取右边, 文本型, 公开, 从文本的右边按 欲寻找的文本 开始寻找, 取行右边 (“1234567890”, “5”, 1, 真)<br /> .参数 被查找的文本, 文本型, , 被查找的文本<br /> .参数 欲寻找的文本, 文本型, , 欲寻找的文本<br /> .参数 起始寻找位置, 整数型, 可空, 欲寻找的文本的起始寻找位置,一般情况都留空<br /> .参数 是否区分大小写, 逻辑型, 可空, 默认为假,区分大小写<br /> .局部变量 找到的位置, 整数型<br /> .局部变量 结果文本, 文本型<br /> <br /> .如果真 (起始寻找位置 ≤ 0 或 是否为空 (起始寻找位置) ＝ 真)<br />     起始寻找位置 ＝ 1<br /> .如果真结束<br /> 找到的位置 ＝ 倒找文本 (被查找的文本, 欲寻找的文本, , 是否区分大小写)<br /> .如果真 (找到的位置 ＝ -1)<br />     返回 (“”)<br /> .如果真结束<br /> 结果文本 ＝ 取文本右边 (被查找的文本, 取文本长度 (被查找的文本) － 取文本长度 (欲寻找的文本) － 找到的位置 ＋ 1)<br /> 返回 (结果文本)<br /> <br /> .子程序 文本_取出中间文本, 文本型, 公开, 比如：欲取全文本为“12345”,现在要取出“3”，<3>的前面为“2”，<3>的后面为“4”。<br /> .参数 欲取全文本, 文本型, , 比如：欲取全文本为 12345<br /> .参数 前面文本, 文本型, , 3的前面为“2”，引号直接用 #引号，如："[color=#引号red#引号]"<br /> .参数 后面文本, 文本型, , 3的后面为“4”，引号直接用 #引号，如："[color=#引号red#引号]"<br /> .参数 起始搜寻位置, 整数型, 可空, 可空。1为首位置，2为第2个位置，如此类推，如果被省略，则“寻找字节集”命令默认从首部开始，“倒找字节集”命令默认从尾部开始。<br /> .参数 是否区分大小写, 逻辑型, 可空, 可空。初始值为“假”。假 = 不区分    真 = 区分大小写。<br /> .局部变量 局_位置, 整数型<br /> .局部变量 局_位置1, 整数型<br /> .局部变量 局_前面文本, 文本型<br /> .局部变量 局_后面文本, 文本型<br /> <br /> 局_前面文本 ＝ 子文本替换 (前面文本, “#引号”, #引号, , , 真)<br /> 局_后面文本 ＝ 子文本替换 (后面文本, “#引号”, #引号, , , 真)<br /> 是否区分大小写 ＝ 取反 (是否区分大小写)<br /> 局_位置 ＝ 寻找文本 (欲取全文本, 局_前面文本, 起始搜寻位置, 是否区分大小写)<br /> .如果真 (局_位置 ≠ -1)<br />     局_位置 ＝ 局_位置 ＋ 取文本长度 (局_前面文本)<br /> .如果真结束<br /> 局_位置1 ＝ 寻找文本 (欲取全文本, 局_后面文本, 局_位置, 是否区分大小写)<br /> .如果真 (局_位置 ＝ -1 或 局_位置1 ＝ -1)<br />     返回 (“”)<br /> .如果真结束<br /> 返回 (取文本中间 (欲取全文本, 局_位置, 局_位置1 － 局_位置))<br /> <br /> .子程序 文本_取左边, 文本型, 公开, 从文本的左边按 欲寻找的文本 开始寻找<br /> .参数 被查找的文本, 文本型, , 被查找的文本<br /> .参数 欲寻找的文本, 文本型, , 欲寻找的文本<br /> .参数 起始寻找位置, 整数型, 可空, 欲寻找的文本的起始寻找位置<br /> .参数 是否区分大小写, 逻辑型, 可空, 默认为假区分大小写<br /> .局部变量 找到的位置, 整数型<br /> .局部变量 结果文本, 文本型<br /> <br /> .如果真 (起始寻找位置 ≤ 0)<br />     起始寻找位置 ＝ 1<br /> .如果真结束<br /> 找到的位置 ＝ 寻找文本 (被查找的文本, 欲寻找的文本, 起始寻找位置, 是否区分大小写)<br /> .如果真 (找到的位置 ＝ -1)<br />     返回 (“”)<br /> .如果真结束<br /> 结果文本 ＝ 取文本左边 (被查找的文本, 找到的位置 － 1)<br /> 返回 (结果文本)

明浩倒计时.e (9.38 KB, 下载次数: 53)

2021-3-5 22:05 上传

点击文件名下载附件

你太孤傲

        新技能已get√

神话传说001

支持开源~！感谢分享

lx1015

支持开源~！感谢分享

zjjwhj

支持开源~！感谢分享

zzzyf

#在这里快速回复#        新技能已get√

sinewtec

支持开源~！感谢分享

火丧忠犬

支持一下                                 

huoshanlangzhe

6666666666666666666

噢噢

学习一下谢谢