.版本 2

.程序集 窗口程序集_启动窗口

.程序集变量 当前目录, 文本型

.子程序 __启动窗口_d创建完毕

当前目录 ＝ 取当前目录 () ＋ “\”

.子程序 _按钮1_被单击

.局部变量 cps, CPS数据文件类

cps.初始化 (, , 进度条1)

cps.制作数据 (当前目录 ＋ “11”, “1.cps”)

编辑框操作 (“将文件打包成1.cps”)

.子程序 _按钮2_被单击

.局部变量 cps, CPS数据文件类

.局部变量 文件组, 文本型, , "0"

.局部变量 i, 整数型

.局部变量 总内容, 文本型

cps.初始化 (, , 进度条1)

cps.读取数据 (“1.cps”, 文件组)

总内容 ＝ “”

.计次循环首 (取数组成员数 (文件组), i)

    .如果 (i ＝ 1)

        总内容 ＝ 文件组 [i]

    .否则

        总内容 ＝ 总内容 ＋ #换行符 ＋ 文件组 [i]

    .如果结束

.计次循环尾 ()

编辑框操作 (“一共有文件为：” ＋ #换行符 ＋ 总内容)

.子程序 _按钮3_被单击

.局部变量 cps, CPS数据文件类

.局部变量 文件组, 文本型, , "0"

.局部变量 i, 整数型

.局部变量 总内容, 文本型

cps.初始化 (, , 进度条1)

cps.读取数据 (“1.cps”)

图片框操作 (cps.根据文件名读取数据 (“2.jpg”))

.子程序 _按钮4_被单击

.局部变量 cps, CPS数据文件类

cps.初始化 (, , 进度条1)

cps.读取数据 (“1.cps”)

图片框操作 (cps.根据ID读取数据 (4))

.子程序 编辑框操作

.参数 内容, 文本型

图片框1.可视 ＝ 假

编辑框1.可视 ＝ 真

编辑框1.宽度 ＝ 320

编辑框1.高度 ＝ 480

编辑框1.内容 ＝ 内容

.子程序 图片框操作

.参数 图片内容, 字节集

编辑框1.可视 ＝ 假

图片框1.可视 ＝ 真

图片框1.宽度 ＝ 320

图片框1.高度 ＝ 480

图片框1.图片 ＝ 图片内容

.子程序 _按钮5_被单击

.局部变量 cps, CPS数据文件类

cps.初始化 (, , 进度条1)

cps.读取数据 (“1.cps”)

编辑框操作 (到文本 (cps.根据文件名读取数据 (“1.txt”)))

.子程序 _按钮6_被单击

.局部变量 cps, CPS数据文件类

cps.初始化 (, , 进度条1)

cps.读取数据 (“1.cps”)

编辑框操作 (到文本 (cps.根据文件名读取数据 (“数据.txt”)))