马上注册，结交更多易友，享用更多功能，让你轻松玩转觅风论坛。
您需要 登录 才可以下载或查看，没有账号？立即注册
x
.版本 2
.支持库 iext
.程序集 窗口程序集_窗口1
.程序集变量 配置文件号, 整数型
.程序集变量 关键词分割, 文本型, , "0"
.程序集变量 计次A, 整数型
.子程序 _编辑框1_获得焦点
透明标签2.标题 ＝ “关键词重复检测中...”
.子程序 _编辑框2_获得焦点
编辑框2.文本颜色 ＝ #黑色
编辑框2.内容 ＝ “”
.子程序 _编辑框2_失去焦点
.如果真 (编辑框2.内容 ≠ “” 且 编辑框2.内容 ≠ “<这里填写收到关键词要回复的内容>”)
返回 ()
.如果真结束
编辑框2.文本颜色 ＝ #灰色
编辑框2.内容 ＝ “<这里填写收到关键词要回复的内容>”
.子程序 _按钮1_被单击
.如果真 (编辑框1.内容 ＝ “”)
信息框 (“请输入关键词!”, 0, , )
返回 ()
.如果真结束
.如果真 (编辑框2.内容 ＝ “” 或 编辑框2.内容 ＝ “<这里填写收到关键词要回复的内容>”)
信息框 (“请输入回复关键词的内容!”, 0, , )
返回 ()
.如果真结束
透明标签2.标题 ＝ “写入成功!重启软件生效!”
写配置项 (取运行目录 () ＋ “\word.ini”, 编辑框1.内容, “回复内容”, 编辑框2.内容)
_窗口1_创建完毕 ()
.子程序 _窗口1_创建完毕
超级列表框1.全部删除 ()
.判断开始 (文件是否存在 (取运行目录 () ＋ “\word.ini”) ＝ 真)
配置文件号 ＝ 打开文件 (取运行目录 () ＋ “\word.ini”, , )
关键词分割 ＝ 分割文本 (读入文本 (配置文件号, ), #换行符, )
.计次循环首 (取数组成员数 (关键词分割), 计次A)
输出调试文本 (关键词分割 [计次A])
.如果真 (寻找文本 (关键词分割 [计次A], “[”, , 假) ≠ -1)
超级列表框1.插入表项 (0, 到文本 (超级列表框1.取表项数 () ＋ 1), , , , )
超级列表框1.置标题 (0, 1, 文本_取出中间文本 (关键词分割 [计次A], “[”, “]”))
.如果真结束
.计次循环尾 ()
.默认
.判断结束
模块_超级列表框排序 (超级列表框1, 0)
.子程序 _超级列表框1_右键单击表项
弹出菜单 (操作, , )
.子程序 _查看回复内容_被选择
编辑框1.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)
编辑框2.内容 ＝ 读配置项 (取运行目录 () ＋ “\word.ini”, 编辑框1.内容, “回复内容”, )
编辑框2.文本颜色 ＝ #黑色
.子程序 _窗口1_将被销毁
关闭文件 (配置文件号)
.子程序 _超级列表框1_左键单击表项
输出调试文本 (超级列表框1.现行选中项)
|
