明浩_没事写了个倒计时时分秒任务执行 - 精易论坛

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

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

时钟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 />
返回 (结果文本)