如何将内容写入指定文本的某一行？

我爱吃西瓜

1111.zip (2.56 KB, 下载次数: 3)

2014-10-6 11:27 上传

点击文件名下载附件

求例子
如何在编辑框1内把内容写入到 #99 行会成员 的上面

洃铯‰感伤

是我的失误 沙发的源码居然没保存

沙发的代码

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
文本	文本型

文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\巅峰つ御林军.txt”))
文本 ＝ 子文本替换 (文本, “#99 行会成员”, 编辑框1.内容 ＋ #换行符 ＋ “#99 行会成员”, , , 真)
写到文件 (取运行目录 () ＋ “\巅峰つ御林军.txt”, 到字节集 (文本))

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型<br /> <br /> 文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\巅峰つ御林军.txt”))<br /> 文本 ＝ 子文本替换 (文本, “#99 行会成员”, 编辑框1.内容 ＋ #换行符 ＋ “#99 行会成员”, , , 真)<br /> 写到文件 (取运行目录 () ＋ “\巅峰つ御林军.txt”, 到字节集 (文本))

洃铯‰感伤

其实把#99 行会成员  替换成  编辑框的内容+换行+#99 行会成员
就可以了

冰点

核心库，文件操作的命令呀， 或 直接 读入文件，然后在 子文本替换 - -，不推荐。。

我爱吃西瓜

新手啊 菜鸟级别都没到 说的我不会做啊 来例子吧

洃铯‰感伤

我爱吃西瓜 发表于 2014-10-6 11:50
新手啊 菜鸟级别都没到 说的我不会做啊 来例子吧

沙发的可用 ，我去试试 天朝城管说的 因何不推荐

剩下我de孩子气

精易模块  文本_替换

洃铯‰感伤

所谓   核心库，文件操作的命令
感觉写的有点麻烦

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
文件号	整数型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
文本	文本型
插入位置	整数型

文件号 ＝ 打开文件 (取运行目录 () ＋ “\巅峰つ御林军.txt”, , )
文本 ＝ 读入文本 (文件号, )
插入位置 ＝ 寻找文本 (文本, “#99 行会成员”, , 假)  ' 找到 #99 行会成员 的位置
移动读写位置 (文件号, #文件首, 插入位置 － 1)  ' 把位置移动到 需要插入文本的位置
插入文本 (文件号, 编辑框1.内容 ＋ #换行符 )  ' 插入文本

.版本 2<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 文件号, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型<br /> .局部变量 插入位置, 整数型<br /> <br /> 文件号 ＝ 打开文件 (取运行目录 () ＋ “\巅峰つ御林军.txt”, , )<br /> 文本 ＝ 读入文本 (文件号, )<br /> 插入位置 ＝ 寻找文本 (文本, “#99 行会成员”, , 假)  ' 找到 #99 行会成员 的位置<br /> 移动读写位置 (文件号, #文件首, 插入位置 － 1)  ' 把位置移动到 需要插入文本的位置<br /> 插入文本 (文件号, 编辑框1.内容 ＋ #换行符)  ' 插入文本

我爱吃西瓜

洃铯‰感伤 发表于 2014-10-6 12:11
沙发的可用 ，我去试试 天朝城管说的 因何不推荐

沙发的是空的啊  不然我就不会等这么久了