多个编辑框内容保存到同一个文档

多多多多

afu45 发表于 2023-8-8 18:23

大佬，你的编辑框写入文本两个字才算一行，我把三个编辑框宽度改成了48，这样一个字就是一行，然后输出又不对了。。。

多多多多

HANDSOME·SMART 发表于 2023-8-8 18:35

大哥，我A你了

HANDSOME·SMART

多多多多 发表于 2023-8-8 18:48
大哥，我A你了

代码哪里有错误吗？还是不适配你的需求？

多多多多

afu45 发表于 2023-8-8 18:12

大哥，你看，他真的是两个字一行，只要我改变了编辑框的宽度或者重新输入编辑框的内容，就不对了，麻烦您看看这个图

多多多多

HANDSOME·SMART 发表于 2023-8-8 18:35

大哥，你上传个E文件可以吗。。。你这代码太多了，我头都昏了

Suky

多多多多 发表于 2023-8-8 18:57
大哥，你上传个E文件可以吗。。。你这代码太多了，我头都昏了

  

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

子程序1 (编辑框1.内容, 取特定目录 (3) ＋ “\123.txt”)
子程序1 (编辑框2.内容, 取特定目录 (3) ＋ “\123.txt”)
子程序1 (编辑框3.内容, 取特定目录 (3) ＋ “\123.txt”)

子程序名	返回值类型	公开	备 注
子程序1
参数名	类 型	参考	可空	数组	备 注
P_文本	文本型				待加入文本
P_文件名	文本型				带路径的文件名

变量名	类 型	静态	数组	备 注
L_文本	文本型
L_文本组	文本型		0
文本行数组	文本型		0
行文本长度	整数型
n	整数型

文本行数组 ＝ 分割文本 (到文本 (读入文件 (P_文件名)), #换行符, )
如果真 (取数组成员数 (文本行数组) ＞ 0)
行文本长度 ＝ 取文本长度 (文本行数组 [1])
L_文本 ＝ 子文本替换 (P_文本, #换行符, “”, , , 真)
L_文本 ＝ 子文本替换 (L_文本, “ ”, “”, , , 真)
文本_逐字分割 (L_文本, L_文本组)
计次循环首 (取数组成员数 (L_文本组), n)
判断 (取数组成员数 (文本行数组) ＜ n)
加入成员 (文本行数组, 取重复文本 (行文本长度, “ ”) ＋ “ ” ＋ L_文本组 [n])
判断 (取文本长度 (文本行数组 [n]) ＜ 行文本长度)
文本行数组 [n] ＝ 文本行数组 [n] ＋ 取重复文本 (行文本长度 － 取文本长度 (文本行数组 [n]), “ ”) ＋ “ ” ＋ L_文本组 [n]
文本行数组 [n] ＝ 文本行数组 [n] ＋ “ ” ＋ L_文本组 [n]

计次循环尾 ()
L_文本 ＝ “”
计次循环首 (取数组成员数 (文本行数组), n)
判断 (取数组成员数 (文本行数组) ＞ n)
L_文本 ＝ L_文本 ＋ 文本行数组 [n] ＋ #换行符
L_文本 ＝ L_文本 ＋ 文本行数组 [n]

计次循环尾 ()
写到文件 (P_文件名, 到字节集 (L_文本))

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 shell<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 子程序1 (编辑框1.内容, 取特定目录 (3) ＋ “\123.txt”)<br /> 子程序1 (编辑框2.内容, 取特定目录 (3) ＋ “\123.txt”)<br /> 子程序1 (编辑框3.内容, 取特定目录 (3) ＋ “\123.txt”)<br /> <br /> .子程序 子程序1<br /> .参数 P_文本, 文本型, , 待加入文本<br /> .参数 P_文件名, 文本型, , 带路径的文件名<br /> .局部变量 L_文本, 文本型<br /> .局部变量 L_文本组, 文本型, , "0"<br /> .局部变量 文本行数组, 文本型, , "0"<br /> .局部变量 行文本长度, 整数型<br /> .局部变量 n, 整数型<br /> <br /> 文本行数组 ＝ 分割文本 (到文本 (读入文件 (P_文件名)), #换行符, )<br /> .如果真 (取数组成员数 (文本行数组) ＞ 0)<br />     行文本长度 ＝ 取文本长度 (文本行数组 [1])<br /> .如果真结束<br /> L_文本 ＝ 子文本替换 (P_文本, #换行符, “”, , , 真)<br /> L_文本 ＝ 子文本替换 (L_文本, “ ”, “”, , , 真)<br /> 文本_逐字分割 (L_文本, L_文本组)<br /> .计次循环首 (取数组成员数 (L_文本组), n)<br />     .判断开始 (取数组成员数 (文本行数组) ＜ n)<br />         加入成员 (文本行数组, 取重复文本 (行文本长度, “ ”) ＋ “ ” ＋ L_文本组 [n])<br />     .判断 (取文本长度 (文本行数组 [n]) ＜ 行文本长度)<br />         文本行数组 [n] ＝ 文本行数组 [n] ＋ 取重复文本 (行文本长度 － 取文本长度 (文本行数组 [n]), “ ”) ＋ “ ” ＋ L_文本组 [n]<br />     .默认<br />         文本行数组 [n] ＝ 文本行数组 [n] ＋ “ ” ＋ L_文本组 [n]<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> L_文本 ＝ “”<br /> .计次循环首 (取数组成员数 (文本行数组), n)<br />     .判断开始 (取数组成员数 (文本行数组) ＞ n)<br />         L_文本 ＝ L_文本 ＋ 文本行数组 [n] ＋ #换行符<br />     .默认<br />         L_文本 ＝ L_文本 ＋ 文本行数组 [n]<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 写到文件 (P_文件名, 到字节集 (L_文本))

我这还有更多的，就问你看不看吧


补充内容 (2023-8-8 19:06):
文本_逐字分割（）  是精易模块的    其他都是核心库里的

补充内容 (2023-8-8 19:08):
有个瑕疵     就是原始文件不存在或者内容为空的话，第一列前面会有一个空格列

补充内容 (2023-8-8 19:26):
子文本替换（）删除空格的    其实应该用   删全部空 ()   比较好一点

多多多多

Suky 发表于 2023-8-8 19:06
[e=1].版本 2
.支持库 shell

大佬，编辑框内文本增加几个字，再点击一次保存，内容怎么和第一次保存的重复了，直接一堆

Suky

多多多多 发表于 2023-8-8 19:12
大佬，编辑框内文本增加几个字，再点击一次保存，内容怎么和第一次保存的重复了，直接一堆 ...

因为只管添加不管其他，又不是写配置项

Suky

  

子程序名返回值类型公开备 注
_按钮1_被单击  
写到文件 (取特定目录 (3) ＋ “\123.txt”, 到字节集 (“”))
子程序1 (编辑框1.内容, 取特定目录 (3) ＋ “\123.txt”)
子程序1 (编辑框2.内容, 取特定目录 (3) ＋ “\123.txt”)
子程序1 (编辑框3.内容, 取特定目录 (3) ＋ “\123.txt”)

子程序名        返回值类型        公开        备 注<br /> _按钮1_被单击                          <br /> 写到文件 (取特定目录 (3) ＋ “\123.txt”, 到字节集 (“”))<br /> 子程序1 (编辑框1.内容, 取特定目录 (3) ＋ “\123.txt”)<br /> 子程序1 (编辑框2.内容, 取特定目录 (3) ＋ “\123.txt”)<br /> 子程序1 (编辑框3.内容, 取特定目录 (3) ＋ “\123.txt”)

可以在写入前先把文件内容覆盖成空的

Suky

多多多多 发表于 2023-8-8 19:12
大佬，编辑框内文本增加几个字，再点击一次保存，内容怎么和第一次保存的重复了，直接一堆 ...

  

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

写到文件 (取特定目录 (3) ＋ “\123.txt”, 到字节集 (“”))
子程序1 (编辑框1.内容, 取特定目录 (3) ＋ “\123.txt”)
子程序1 (编辑框2.内容, 取特定目录 (3) ＋ “\123.txt”)
子程序1 (编辑框3.内容, 取特定目录 (3) ＋ “\123.txt”)

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 shell<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 写到文件 (取特定目录 (3) ＋ “\123.txt”, 到字节集 (“”))<br /> 子程序1 (编辑框1.内容, 取特定目录 (3) ＋ “\123.txt”)<br /> 子程序1 (编辑框2.内容, 取特定目录 (3) ＋ “\123.txt”)<br /> 子程序1 (编辑框3.内容, 取特定目录 (3) ＋ “\123.txt”)

在写入前把原文件用空内容覆写就好