|
发表于 2012-9-18 21:02:21
|
显示全部楼层
贵州省六盘水市
.版本 2
.支持库 spec
.子程序 _按钮1_被单击
组合框1.清空 ()
组合框1.内容 = “请选择脚本”
子程序1 (取运行目录 ())
信息框 (组合框1.取项目数 (), 0, )
.子程序 子程序1
.参数 参数目录, 文本型
.局部变量 i, 整数型, 静态
.局部变量 记录, 文本型
.如果真 (取文本右边 (参数目录, 1) ≠ “\”)
参数目录 = 参数目录 + “\”
.如果真结束
文件名 = 寻找文件 (参数目录 + “\*.txt”, )
.判断循环首 (文件名 ≠ “”)
分割文件名 = 分割文本 (文件名, “.”, )
组合框1.加入项目 (分割文件名 [1], )
i = i + 1
调试输出 (i)
目录 [i] = 参数目录 + 文件名
处理事件 ()
文件名 = 寻找文件 (, )
.判断循环尾 ()
文件目录 = 寻找文件 (参数目录 + “*.*”, #子目录)
.判断循环首 (文件目录 ≠ “”)
.如果真 (取文本左边 (文件目录, 1) ≠ “.”)
子程序1 (参数目录 + 文件目录)
.如果真结束
文件目录 = 寻找文件 (, #子目录)
处理事件 ()
.判断循环尾 ()
.子程序 _组合框1_列表项被选择
.局部变量 行号, 整数型
.局部变量 文件号, 整数型
.局部变量 临时文本, 文本型
列表框1.清空 ()
文件名 = 目录 [组合框1.现行选中项 + 1]
文件号 = 打开文件 (文件名, #读入, #无限制)
.如果真 (文件号 = 0)
信息框 (“脚本错误,请重新选择脚本!”, 0, “提示”)
返回 ()
.如果真结束
移到文件首 (文件号)
.判断循环首 (取反 (是否在文件尾 (文件号, 真)))
临时文本 = 删首尾空 (读入一行 (文件号))
列表框1.加入项目 (临时文本, )
.判断循环尾 ()
.如果真 (列表框1.取项目数 () > 0)
时钟1.时钟周期 = 300
|
|