编辑框指定位置插入文本

信仰_

给你一个骚操作方法，先定义一个变量把编辑框的内容取出来，用精易模块中的文本_插入文本到某行前(, , )或文本_插入文本到某行后(, , )。完成后再赋值到编辑框

RainCharm

  

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

变量名	类 型	静态	数组	备 注
行数	整数型
列数	整数型
新增内容	文本型
所有内容	文本型
行数组	文本型		0
当前行文本	文本型
i	整数型

如果 (编辑框3.内容 ＝ “”)
新增内容 ＝ “0”
新增内容 ＝ 编辑框3.内容

行数 ＝ 到整数 (编辑框1.内容)
列数 ＝ 到整数 (编辑框2.内容)
如果真 (行数 ＜ 1)
行数 ＝ 1
如果真 (列数 ＜ 1)
列数 ＝ 1

所有内容 ＝ 超级编辑框1.内容
行数组 ＝ 分割文本 (所有内容, #换行符, )
如果 (行数 ＞ 取数组成员数 (行数组))
重定义数组 (行数组, 真, 行数)
计次循环首 (行数, i)
如果 (i ＞ 取文本长度 (所有内容))
行数组 [i] ＝ “”



计次循环尾 ()



当前行文本 ＝ 行数组 [行数]
如果真 (当前行文本 ＝ “”)
当前行文本 ＝ “”
如果 (列数 ＞ 取文本长度 (当前行文本))
行数组 [行数] ＝ 当前行文本 ＋ 新增内容
行数组 [行数] ＝ 取文本左边 (当前行文本, 列数 － 1) ＋ 新增内容 ＋ 取文本右边 (当前行文本, 取文本长度 (当前行文本) － 列数 ＋ 1)

所有内容 ＝ “”
计次循环首 (取数组成员数 (行数组), i)
所有内容 ＝ 所有内容 ＋ 行数组 [i]
如果 (i ＜ 取数组成员数 (行数组))
所有内容 ＝ 所有内容 ＋ #换行符



计次循环尾 ()
超级编辑框1.内容 ＝ 所有内容

i支持库列表	支持库注释
iext2	扩展界面支持库二

.版本 2<br /> .支持库 iext2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 行数, 整数型<br /> .局部变量 列数, 整数型<br /> .局部变量 新增内容, 文本型<br /> .局部变量 所有内容, 文本型<br /> .局部变量 行数组, 文本型, , "0"<br /> .局部变量 当前行文本, 文本型<br /> .局部变量 i, 整数型<br /> <br /> .如果 (编辑框3.内容 ＝ “”)<br />     新增内容 ＝ “0”<br /> .否则<br />     新增内容 ＝ 编辑框3.内容<br /> .如果结束<br /> <br /> 行数 ＝ 到整数 (编辑框1.内容)<br /> 列数 ＝ 到整数 (编辑框2.内容)<br /> .如果真 (行数 ＜ 1)<br />     行数 ＝ 1<br /> .如果真结束<br /> .如果真 (列数 ＜ 1)<br />     列数 ＝ 1<br /> .如果真结束<br /> <br /> 所有内容 ＝ 超级编辑框1.内容<br /> 行数组 ＝ 分割文本 (所有内容, #换行符, )<br /> .如果 (行数 ＞ 取数组成员数 (行数组))<br />     重定义数组 (行数组, 真, 行数)<br />     .计次循环首 (行数, i)<br />         .如果 (i ＞ 取文本长度 (所有内容))<br />             行数组 <i> ＝ “”<br />         .否则<br /> <br />         .如果结束<br /> <br />     .计次循环尾 ()<br /> .否则<br /> <br /> .如果结束<br /> <br /> 当前行文本 ＝ 行数组 [行数]<br /> .如果真 (当前行文本 ＝ “”)<br />     当前行文本 ＝ “”<br /> .如果真结束<br /> .如果 (列数 ＞ 取文本长度 (当前行文本))<br />     行数组 [行数] ＝ 当前行文本 ＋ 新增内容<br /> .否则<br />     行数组 [行数] ＝ 取文本左边 (当前行文本, 列数 － 1) ＋ 新增内容 ＋ 取文本右边 (当前行文本, 取文本长度 (当前行文本) － 列数 ＋ 1)<br /> .如果结束<br /> <br /> 所有内容 ＝ “”<br /> .计次循环首 (取数组成员数 (行数组), i)<br />     所有内容 ＝ 所有内容 ＋ 行数组 <i><br />     .如果 (i ＜ 取数组成员数 (行数组))<br />         所有内容 ＝ 所有内容 ＋ #换行符<br />     .否则<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 超级编辑框1.内容 ＝ 所有内容

请记住中文一个字符占两个字节，你要在中间加字，在列窗口填上单数才是正确的，双数会导致文本乱码，因为占前面那个字的一半字节。

真冬

熊仕俊 发表于 2025-11-13 23:31
说错了，是超出列选择不中，超出行将文本插入在最后一行里了，我想要实现行数不够自动补行

补充内容 (20 ...

   

  

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

变量名	类 型	静态	数组	备 注
行首位置	整数型
列位置	整数型
行号	整数型
列号	整数型

行号 ＝ 到整数 (编辑框1.内容)
循环判断首 ()
行首位置 ＝ 超级编辑框1.取行首位置 (行号 － 1)
如果真 (a ＝ -1)
超级编辑框1.内容 ＝ 超级编辑框1.内容 ＋ #换行符

循环判断尾 (行首位置 ＝ -1)
列位置 ＝ 取文本长度 (超级编辑框1.取行文本 (行号 － 1)) － 1
列号 ＝ 到整数 (编辑框2.内容)
如果真 (列位置 ＞ 列号)
列位置 ＝ 列号
超级编辑框1.起始选择位置 ＝ 行首位置 ＋ 列位置
超级编辑框1.被选择字符数 ＝ 0
超级编辑框1.被选择文本 ＝ 编辑框3.内容

i支持库列表	支持库注释
iext2	扩展界面支持库二

.版本 2<br /> .支持库 iext2<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 行首位置, 整数型<br /> .局部变量 列位置, 整数型<br /> .局部变量 行号, 整数型<br /> .局部变量 列号, 整数型<br /> <br /> 行号 ＝ 到整数 (编辑框1.内容)<br /> .循环判断首 ()<br />     行首位置 ＝ 超级编辑框1.取行首位置 (行号 － 1)<br />     .如果真 (a ＝ -1)<br />         超级编辑框1.内容 ＝ 超级编辑框1.内容 ＋ #换行符<br />     .如果真结束<br /> <br /> .循环判断尾 (行首位置 ＝ -1)<br /> 列位置 ＝ 取文本长度 (超级编辑框1.取行文本 (行号 － 1)) － 1<br /> 列号 ＝ 到整数 (编辑框2.内容)<br /> .如果真 (列位置 ＞ 列号)<br />     列位置 ＝ 列号<br /> .如果真结束<br /> 超级编辑框1.起始选择位置 ＝ 行首位置 ＋ 列位置<br /> 超级编辑框1.被选择字符数 ＝ 0<br /> 超级编辑框1.被选择文本 ＝ 编辑框3.内容

补充内容 (2025-11-14 01:08):
改了一下在13楼 https://bbs.ijingyi.com/forum.ph ... 59&pid=30582105

真冬

  

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

变量名	类 型	静态	数组	备 注
行首位置	整数型
列位置	整数型
行号	整数型
列号	整数型

行号 ＝ 到整数 (编辑框1.内容) － 1
循环判断首 ()
行首位置 ＝ 超级编辑框1.取行首位置 (行号)
如果真 (行首位置 ＝ -1)
超级编辑框1.内容 ＝ 超级编辑框1.内容 ＋ #换行符

循环判断尾 (行首位置 ＝ -1)
列位置 ＝ 取文本长度 (超级编辑框1.取行文本 (行号)) － 1
列号 ＝ 到整数 (编辑框2.内容)
如果真 (列位置 ＞ 列号)
列位置 ＝ 列号
超级编辑框1.起始选择位置 ＝ 行首位置 ＋ 列位置
超级编辑框1.被选择字符数 ＝ 0
超级编辑框1.被选择文本 ＝ 编辑框3.内容

i支持库列表	支持库注释
iext2	扩展界面支持库二

.版本 2<br /> .支持库 iext2<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 行首位置, 整数型<br /> .局部变量 列位置, 整数型<br /> .局部变量 行号, 整数型<br /> .局部变量 列号, 整数型<br /> <br /> 行号 ＝ 到整数 (编辑框1.内容) － 1<br /> .循环判断首 ()<br />     行首位置 ＝ 超级编辑框1.取行首位置 (行号)<br />     .如果真 (行首位置 ＝ -1)<br />         超级编辑框1.内容 ＝ 超级编辑框1.内容 ＋ #换行符<br />     .如果真结束<br /> <br /> .循环判断尾 (行首位置 ＝ -1)<br /> 列位置 ＝ 取文本长度 (超级编辑框1.取行文本 (行号)) － 1<br /> 列号 ＝ 到整数 (编辑框2.内容)<br /> .如果真 (列位置 ＞ 列号)<br />     列位置 ＝ 列号<br /> .如果真结束<br /> 超级编辑框1.起始选择位置 ＝ 行首位置 ＋ 列位置<br /> 超级编辑框1.被选择字符数 ＝ 0<br /> 超级编辑框1.被选择文本 ＝ 编辑框3.内容

qqlub

感谢分享，很给力！~

zzoo1314

我是直接读内容 改内容后 把新内容 再发给编辑框

熊仕俊

指定插入文本.e (961.75 KB, 下载次数: 2)

2025-11-18 19:46 上传

点击文件名下载附件
已解决！


补充内容 (2025-11-18 19:48):
谢谢各位大佬的帮助！！