从文本中读取内容按行显示修改后写回原文本

显示全部楼层 · 发表于 2010-4-25 17:37:38

从文本（附件中的文本）中读取内空，每个区域的第一行加入到列表框中（这一步已做好）然后在列表框中选中一项则该项及下面的属性依次按要求显示到相应位置
如果我修改了某个位置的内容则按确定后将修改的写回到原来的文本中
附部分代码
.版本 2

.程序集窗口程序集1

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

通用对话框1.打开 ()
编辑框1.内容＝通用对话框1.文件名
装备文档＝打开文件 (编辑框1.内容, , )
.判断循环首 (取反 (是否在文件尾 (装备文档, )))
文本＝读入一行 (装备文档)
列表框1.加入项目 (文本, )
.计次循环首 (54, 次数)
      文本＝读入一行 (装备文档)
      次数＝次数＋ 1
.计次循环尾 ()
.判断循环尾 ()

.子程序 _列表框1_列表项被选择
.局部变量文本1
.局部变量起始位置
.局部变量文本2

文本1 ＝列表框1.现行选中项
起始位置＝寻找文本 (装备文档, 文本1, , 真)
文本2 ＝分割文本 (起始位置, #换行符, )

“下面怎么写？实在写不出了”
请高人帮下！！！谢谢！点击进入下载－装备修改器.e
点击进入下载－ItemList.txt