文本合成器

703046409

.版本 2
.支持库 xplib
.支持库 iext
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
XP风格 (2)

.子程序 _按钮1_被单击
.局部变量 文件号, 整数型
通用对话框1.打开 ()
编辑框1.内容 ＝ 通用对话框1.文件名
文件号 ＝ 打开文件 (编辑框1.内容, #改读, )
超级列表框1.全部删除 ()
.判断循环首 (是否在文件尾 (文件号, ) ＝ 假)
    超级列表框1.插入表项 (, 读入一行 (文件号), , , , )
.判断循环尾 ()
关闭文件 (文件号)

.子程序 _按钮2_被单击
.局部变量 文件号, 整数型
通用对话框2.打开 ()
编辑框2.内容 ＝ 通用对话框2.文件名
文件号 ＝ 打开文件 (编辑框2.内容, #改读, )
超级列表框2.全部删除 ()
.判断循环首 (是否在文件尾 (文件号, ) ＝ 假)
    超级列表框2.插入表项 (, 读入一行 (文件号), , , , )
.判断循环尾 ()
关闭文件 (文件号)
.子程序 _按钮6_被单击
.局部变量 m, 整数型
.局部变量 temp1, 文本型
.局部变量 n, 整数型
.局部变量 temp2, 文本型
.局部变量 文件号3, 整数型
文件号3 ＝ 打开文件 (取运行目录 () ＋ “\合成结果.txt”, #重写, )
超级列表框3.全部删除 ()
.计次循环首 (超级列表框1.取表项数 (), m)
    temp1 ＝ 超级列表框1.取标题 (m － 1, )
    .计次循环首 (超级列表框2.取表项数 (), n)
        temp2 ＝ temp1 ＋ 超级列表框2.取标题 (n － 1, ) ＋ #换行符
        超级列表框3.插入表项 (, temp2, , , , )
        写出文本 (文件号3, temp2)
    .计次循环尾 ()
.计次循环尾 ()




哪个环节出错

duanyijun

感谢分享，很给力！~

lyw1989

666666666666666666