把编辑框的内容保存到已有的TXT文件中，要求每个编辑框的内容对应TXT中内容覆盖

君不见

.版本 2
.支持库 shell
.程序集 窗口程序集1
.程序集变量 文件号, 整数型
.程序集变量 文本, 文本型
.程序集变量 文本sz, 文本型, , "0"
.程序集变量 文本bf, 文本型
.子程序 _按钮1_被单击
文件号 ＝ 打开文件 (取运行目录 () ＋ “\1.txt”, , )
文本bf ＝ 读入文本 (文件号, )
文本 ＝ 读入文本 (文件号, )
文本sz ＝ 分割文本 (文本, #换行符, )

.如果真 (编辑框1.内容 ≠ “”)
    删除成员 (文本sz, 1, )
    插入成员 (文本sz, 1, 编辑框1.内容)
.如果真结束
.如果真 (编辑框2.内容 ≠ “”)
    删除成员 (文本sz, 2, )
    插入成员 (文本sz, 2, 编辑框2.内容)
.如果真结束
.如果真 (编辑框3.内容 ≠ “”)
    删除成员 (文本sz, 3, )
    插入成员 (文本sz, 3, 编辑框3.内容)
.如果真结束
关闭文件 (文件号)
写到文件 (取运行目录 () ＋ “\1.txt”, 到字节集 (文本sz [1] ＋ #换行符 ＋ 文本sz [2] ＋ #换行符 ＋ 文本sz [3] ＋ #换行符))
执行 (, 取运行目录 () ＋ “\1.txt”, , , )
.子程序 _按钮2_被单击
关闭文件 (文件号)
写到文件 (取运行目录 () ＋ “\1.txt”, 到字节集 (文本bf))
执行 (, 取运行目录 () ＋ “\1.txt”, , , )

幻彩の

如果第一次什么也没输入默认保存一个空格
源码.zip (1.31 KB, 下载次数: 3)

2013-11-21 20:14 上传

点击文件名下载附件

hbykey

小逸老师 发表于 2013-11-21 19:18
给你做好了，上传给你

你辛苦啦，不过20楼、21楼、22楼都比较简单的实现的要求。

hbykey

君不见 发表于 2013-11-21 20:11
.版本 2
.支持库 shell
.程序集 窗口程序集1

你辛苦啦

hbykey

幻彩の 发表于 2013-11-21 20:14
如果第一次什么也没输入默认保存一个空格

你辛苦啦

本文章来自：精易论坛(http://bbs.125.la/thread-13684806-2-1.html）请保留此链接, 感谢!