这估计是全论坛最完美的多任务匿名通道

Cobra

模块也不知道是谁开源的，忘记在哪儿下载的了，先谢谢了！
在模块上增加了Ctrl+C中断任务的功能，然后自己写了一个多任务的例子！
话不多说了，看源码！

Cobra

@wjswzj0

  

子程序名	返回值类型	公开	备 注
_命令_字符输入	整数型
参数名	类 型	参考	可空	数组	备 注
字符代码	整数型

判断 (字符代码 ＝ #退格键 )
命令.起始选择位置 ＝ -1
判断 (文本行 ≠ “”)
判断 (文本_是否为汉字2 (取文本右边 (文本行, 2)) 且 取文本长度 (文本行) ＞ 1)
文本行 ＝ 取文本左边 (文本行, 取文本长度 (文本行) － 2)
文本行 ＝ 取文本左边 (文本行, 取文本长度 (文本行) － 1)

返回 (0)

判断 (字符代码 ＝ #回车键 )
判断 (到小写 (文本行) ＝ “cls”)
命令.内容 ＝ “”
管道组 [CmdList.取表项数值 (CmdList.现行选中项)].内容 ＝ “”
管道组 [CmdList.取表项数值 (CmdList.现行选中项)].管道.写出一行 (“”)
管道组 [CmdList.取表项数值 (CmdList.现行选中项)].管道.写出一行 (文本行)
文本行 ＝ “”
文本行 ＝ 文本行 ＋ 字符 (到字节 (字符代码))

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _命令_字符输入, 整数型<br /> .参数 字符代码, 整数型<br /> <br /> .判断开始 (字符代码 ＝ #退格键)<br />     命令.起始选择位置 ＝ -1<br />     .判断开始 (文本行 ≠ “”)<br />         .判断开始 (文本_是否为汉字2 (取文本右边 (文本行, 2)) 且 取文本长度 (文本行) ＞ 1)<br />             文本行 ＝ 取文本左边 (文本行, 取文本长度 (文本行) － 2)<br />         .默认<br />             文本行 ＝ 取文本左边 (文本行, 取文本长度 (文本行) － 1)<br />         .判断结束<br /> <br />     .默认<br />         返回 (0)<br />     .判断结束<br /> <br /> .判断 (字符代码 ＝ #回车键)<br />     .判断开始 (到小写 (文本行) ＝ “cls”)<br />         命令.内容 ＝ “”<br />         管道组 [CmdList.取表项数值 (CmdList.现行选中项)].内容 ＝ “”<br />         管道组 [CmdList.取表项数值 (CmdList.现行选中项)].管道.写出一行 (“”)<br />     .默认<br />         管道组 [CmdList.取表项数值 (CmdList.现行选中项)].管道.写出一行 (文本行)<br />     .判断结束<br />     文本行 ＝ “”<br /> .默认<br />     文本行 ＝ 文本行 ＋ 字符 (到字节 (字符代码))<br /> .判断结束

中文退格问题修复，请取重要位置的代码，这个我移到别的项目上了，有些地方不一样，比如列表换成高级列表框了

鸿运

谁能说说这是干啥用的

飞翔蓝天

感谢分享好东西，有时候需要使用的时候很方便

kingchain

        支持开源~！感谢分享

光影魔术

感谢分享源码

yezirun888

666666666666666666666666666666666666666666666666666666666666666666666666666666666

小虎来了

感谢分享啊

王刚123456

完美，，厉害

ptqy123

支持开源~！感谢

就是那个秋

支持开源~！感谢分享