.如果真 (输入框 (“请输入类库名称”, “请输入类库名称”, 列表框1.取项目文本 (列表框1.现行选中项), name, , 主窗口))
.如果真 (name = “”)
返回 ()
.如果真结束
.计次循环首 (列表框1.取项目数 (), i)
.如果真 (列表框1.取项目文本 (i) = name)
信息框 (“类库函数名称发生重复,请重新命名”, 64, “提示”, )
.如果真结束
.计次循环尾 ()
列表框1.置项目文本 (列表框1.现行选中项, name)
x = 取随机数 (10000000, 999999999)
创建目录 (取运行目录 () + “\” + 到文本 (x))
写到文件 (取运行目录 () + “\” + 到文本 (x) + “\” + “name”, 到字节集 (编辑框1.内容))
写到文件 (取运行目录 () + “\” + 到文本 (x) + “\” + “information”, 到字节集 (编辑框2.内容))
写到文件 (取运行目录 () + “\” + 到文本 (x) + “\” + “code”, 到字节集 (编辑框3.内容))
创建目录 (取运行目录 () + “\” + 到文本 (x) + “\func”)
.计次循环首 (列表框1.取项目数 (), j)
写到文件 (取运行目录 () + “\” + 到文本 (x) + “\func\” + 列表框1.取项目文本 (j - 1), 类库信息 [列表框1.取项目数值 (j - 1)])
.计次循环尾 ()
ZIP压缩1.压缩 (取运行目录 () + “\” + 到文本 (x), 地址)
删除目录 (取运行目录 () + “\” + 到文本 (x))
.如果真 (高级表格1.取光标列号 () = 4)
n = getstr (高级表格1.取数据 (高级表格1.取光标行号 (), 4))
高级表格1.置数据 (高级表格1.取光标行号 (), 4, #表格常量.文本型, n)
按钮加入.获取焦点 ()