.版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 文本组, 文本型, , "0"
.程序集变量 文本, 文本型
.程序集变量 计次, 整数型
.子程序 __启动窗口_创建完毕
标签1.是否自动折行 ＝ 真
标签1.标题 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\文本文档.txt”))
.子程序 _按钮1_被单击
文本组 ＝ 分割文本 (标签1.标题, #换行符, )
文本 ＝ “”
.如果真 (编辑框1.内容 ＝ “”)
返回 ()
.如果真结束
.计次循环首 (取数组成员数 (文本组), 计次)
.如果真 (文本组 [计次] ＝ “”)
到循环尾 ()
.如果真结束
.如果真 (寻找文本 (文本组 [计次], 编辑框1.内容, , 假) ≠ -1)
文本组 [计次] ＝ “”
.如果真 (计次 － 1 ≥ 1)
文本组 [计次 － 1] ＝ “”
.如果真结束
.如果真 (计次 ＋ 1 ≤ 取数组成员数 (文本组))
文本组 [计次 ＋ 1] ＝ “”
.如果真结束
.如果真结束
.计次循环尾 ()
.计次循环首 (取数组成员数 (文本组), 计次)
.如果真 (文本组 [计次] ≠ “”)
文本 ＝ 文本 ＋ 文本组 [计次] ＋ #换行符
.如果真结束
.计次循环尾 ()
标签1.标题 ＝ 文本
写到文件 (取运行目录 () ＋ “\新建.txt”, 到字节集 (文本))
你这个文本是在文件里还是在别的什么地方呢？
简单的办法至少有两个：
第一个办法的核心命令是读入一行，不过用这个办法你必须先把文本写到文件里才行。
第二个办法的核心命令是分割文本，不过使用这个命令你必须要懂数组。
.版本 2
.程序集 窗口程序集1
.程序集变量 文本组, 文本型, , "0"
.程序集变量 文本, 文本型
.程序集变量 内容, 文本型
.程序集变量 计次, 整数型
.子程序 __启动窗口_创建完毕
标签1.是否自动折行 ＝ 真
通用对话框1.初始目录 ＝ 取运行目录 ()
通用对话框1.过滤器 ＝ “文本文件(txt)|*.txt”
.如果真 (通用对话框1.打开 ())
标签1.标题 ＝ 到文本 (读入文件 (通用对话框1.文件名))
文本组 ＝ 分割文本 (标签1.标题, #换行符, )
.如果真结束
.子程序 _按钮1_被单击
文本 ＝ “”
.如果真 (编辑框1.内容 ＝ “”)
返回 ()
.如果真结束
.计次循环首 (取数组成员数 (文本组), 计次)
.如果真 (寻找文本 (文本组 [计次], 编辑框1.内容, , 假) ≠ -1)
文本 ＝ 文本 ＋ 文本组 [计次] ＋ #换行符
.如果真结束
.计次循环尾 ()
内容 ＝ 文本 ＋ 到文本 (读入文件 (取运行目录 () ＋ “\新建.txt”))
写到文件 (取运行目录 () ＋ “\新建.txt”, 到字节集 (内容))
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024