2013-09-18
展开全部
.版本 2.支持库 iext
.程序集 窗口程序集1
.子程序 _按钮1_被单击, , , 导入文本到超级列表框 实例
.局部变量 导入文本, 文本型
.局部变量 处理文本, 文本型, , "0"
.局部变量 索引, 整数型
.局部变量 n, 整数型
.如果真(通用对话框1.打开)
导入文本 = 到文本 (读入文件 (通用对话框1.文件名))
处理文本 = 分割文本 (导入文本, “|”, )
.计次循环首 (取数组成员数 (处理文本), n)
索引 = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 处理文本 [1])
超级列表框1.置标题 (索引, 1, 处理文本 [2])
.计次循环尾 ()
.如果真结束
.子程序 _按钮2_被单击, , , 保存编辑内容
写到文件 (取运行目录 () + “\eyybbs.txt”, 到字节集 (编辑框1.内容))
.程序集 窗口程序集1
.子程序 _按钮1_被单击, , , 导入文本到超级列表框 实例
.局部变量 导入文本, 文本型
.局部变量 处理文本, 文本型, , "0"
.局部变量 索引, 整数型
.局部变量 n, 整数型
.如果真(通用对话框1.打开)
导入文本 = 到文本 (读入文件 (通用对话框1.文件名))
处理文本 = 分割文本 (导入文本, “|”, )
.计次循环首 (取数组成员数 (处理文本), n)
索引 = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 处理文本 [1])
超级列表框1.置标题 (索引, 1, 处理文本 [2])
.计次循环尾 ()
.如果真结束
.子程序 _按钮2_被单击, , , 保存编辑内容
写到文件 (取运行目录 () + “\eyybbs.txt”, 到字节集 (编辑框1.内容))
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询