|
发表于 2012-6-23 18:32:09
|
显示全部楼层
广东省惠州市
.版本 2
.支持库 iext
.子程序 保存
.局部变量 文本, 文本型
.局部变量 i
.局部变量 班级, 文本型
.局部变量 姓名, 文本型
.局部变量 生日, 文本型
.局部变量 手机, 文本型
.局部变量 QQ, 文本型, , , QQ/MSN
.局部变量 星座, 文本型
.局部变量 住址, 文本型
.局部变量 理想, 文本型
.局部变量 爱好, 文本型
.局部变量 人生格言, 文本型
.局部变量 内容, 文本型
.计次循环首 (窗口2.超级列表框_主窗口.取表项数 (), i)
班级 = 窗口2.超级列表框_主窗口.取标题 (0, i)
姓名 = 窗口2.超级列表框_主窗口.取标题 (1, i)
生日 = 窗口2.超级列表框_主窗口.取标题 (2, i)
手机 = 窗口2.超级列表框_主窗口.取标题 (3, i)
QQ = 窗口2.超级列表框_主窗口.取标题 (4, i)
星座 = 窗口2.超级列表框_主窗口.取标题 (5, i)
住址 = 窗口2.超级列表框_主窗口.取标题 (6, i)
理想 = 窗口2.超级列表框_主窗口.取标题 (7, i)
爱好 = 窗口2.超级列表框_主窗口.取标题 (8, i)
人生格言 = 窗口2.超级列表框_主窗口.取标题 (9, i)
内容 = 内容 + 班级 + “----” + 姓名 + “----” + 班级 + “----” + 生日 + “----” + 手机 + “----” + QQ + “----” + 星座 + “----” + 住址 + “----” + 理想 + “----” + 爱好 + “----” + 人生格言 + #换行符
.计次循环尾 ()
.判断开始 (内容 ≠ “”)
.如果 (写到文件 (取运行目录 () + “\保存文档.txt”, 到字节集 (内容)) = 真)
信息框 (“保存文档.txt”, #信息图标, “成功”)
.否则
信息框 (“文件写出失败!”, #警告图标, “失败”)
.如果结束
.默认
信息框 (“没有成功文档!”, #警告图标, “失败”)
.判断结束
|
|