编辑框指定位置插入文本

熊仕俊

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

2025-11-13 20:15 上传

点击文件名下载附件
.版本 2
.支持库 iext2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 逐字文本, 文本型, , "0"
.程序集变量 文本, 文本型

.子程序 _按钮1_被单击
.局部变量 行数, 整数型
.局部变量 新增行数, 文本型
.局部变量 列数, 整数型
.局部变量 左文本, 文本型
.局部变量 右文本, 文本型
.局部变量 int, 整数型
.局部变量 最终文本, 文本型
.局部变量 中间文本, 文本型
.局部变量 左循环文本, 文本型
.局部变量 右循环文本, 文本型
.局部变量 余数, 整数型
.局部变量 新增内容, 文本型

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


列数 ＝ 到整数 (编辑框2.内容)
.如果 (编辑框1.内容 ＝ “”)
    行数 ＝ 0
.否则
    .如果 (到整数 (编辑框1.内容) ≠ 0)
        行数 ＝ 到整数 (编辑框1.内容) － 1
    .否则
        行数 ＝ 到整数 (编辑框1.内容)
    .如果结束

.如果结束

.如果 (到整数 (编辑框1.内容) ＞ 超级编辑框1.取行数 ())
    余数 ＝ 行数 － 超级编辑框1.取行数 ()
    新增行数 ＝ “ ”
    .计次循环首 (余数, int)
        新增行数 ＝ 新增行数 ＋ #换行符
    .计次循环尾 ()
    调试输出 (余数, 新增行数)
    超级编辑框1.内容 ＝ 超级编辑框1.内容 ＋ 新增行数
.否则

.如果结束

左循环文本 ＝ “”
.计次循环首 (行数 － 1, int)
    左循环文本 ＝ 左循环文本 ＋ 超级编辑框1.取行文本 (int)
.计次循环尾 ()
左文本 ＝ 超级编辑框1.取行文本 (0) ＋ 左循环文本
右循环文本 ＝ “”
.计次循环首 (超级编辑框1.取行数 () － 行数, int)
    右循环文本 ＝ 右循环文本 ＋ 超级编辑框1.取行文本 (行数 ＋ int)
.计次循环尾 ()
右文本 ＝ 右循环文本

.如果 (编辑框2.内容 ＝ “” 或 列数 ＝ 1 或 列数 ＝ 0)
    中间文本 ＝ 取文本中间 (超级编辑框1.取行文本 (行数), 1, 1)
    最终文本 ＝ 子文本替换 (超级编辑框1.取行文本 (行数), 中间文本, 新增内容, , , 真)
    最终文本 ＝ 取文本左边 (最终文本, 1) ＋ 中间文本 ＋ 取文本右边 (最终文本, 取文本长度 (最终文本) － 1)
    ' 最终文本 ＝ 中间文本 ＋ 取文本右边 (最终文本, 取文本长度 (最终文本))
.否则
    .如果 (列数 ＞ 取文本长度 (超级编辑框1.取行文本 (行数)))
        行数 ＝ 行数 ＋ 1
        中间文本 ＝ 取文本中间 (超级编辑框1.取行文本 (行数), 1, 1)
        调试输出 (中间文本)
        最终文本 ＝ 子文本替换 (超级编辑框1.取行文本 (行数), 中间文本, 新增内容, , , 真)
        最终文本 ＝ 取文本左边 (最终文本, 1) ＋ 中间文本 ＋ 取文本右边 (最终文本, 取文本长度 (最终文本) － 1)
        左循环文本 ＝ “”
        .计次循环首 (行数 － 1, int)
            左循环文本 ＝ 左循环文本 ＋ 超级编辑框1.取行文本 (int)
        .计次循环尾 ()
        左文本 ＝ 超级编辑框1.取行文本 (0) ＋ 左循环文本
        右循环文本 ＝ “”
        .计次循环首 (超级编辑框1.取行数 () － 行数, int)
            右循环文本 ＝ 右循环文本 ＋ 超级编辑框1.取行文本 (行数 ＋ int)
        .计次循环尾 ()
        右文本 ＝ 右循环文本
    .否则
        列数 ＝ 到整数 (编辑框2.内容)
        中间文本 ＝ 取文本中间 (超级编辑框1.取行文本 (行数), 列数, 1)
        最终文本 ＝ 取文本左边 (超级编辑框1.取行文本 (行数), 列数 － 1) ＋ 新增内容 ＋ 取文本右边 (超级编辑框1.取行文本 (行数), 取文本长度 (超级编辑框1.取行文本 (行数)) － 列数 ＋ 1)
        ' 最终文本 ＝ 子文本替换 (超级编辑框1.取行文本 (行数), 中间文本, 新增内容, , , 真)
        ' 最终文本 ＝ 取文本左边 (最终文本, 列数 － 1) ＋ 中间文本 ＋ 取文本右边 (最终文本, 取文本长度 (最终文本) － 列数 ＋ 1)
    .如果结束

.如果结束

.如果 (超级编辑框1.取行文本 (行数) ＝ “”)
    最终文本 ＝ 新增内容
.否则

.如果结束

调试输出 (左文本, 最终文本, 右文本)
.如果 (到整数 (编辑框1.内容) ≤ 1)
    超级编辑框1.内容 ＝ 最终文本 ＋ 右文本
.否则
    超级编辑框1.内容 ＝ 左文本 ＋ 最终文本 ＋ 右文本
.如果结束


问题：基本已经实现，就是不支持中文。。。哪位大佬教我改一下支持中文插入啊！！

elanguage06

这样子，就可以不用去管字符长度是1还是2的问题了

真冬

  

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

超级编辑框1.起始选择位置 ＝ 超级编辑框1.取行首位置 (到整数 (编辑框1.内容) － 1) ＋ 到整数 (编辑框2.内容)
超级编辑框1.被选择字符数 ＝ 0
超级编辑框1.被选择文本 ＝ 编辑框3.内容

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

.版本 2<br /> .支持库 iext2<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 超级编辑框1.起始选择位置 ＝ 超级编辑框1.取行首位置 (到整数 (编辑框1.内容) － 1) ＋ 到整数 (编辑框2.内容)<br /> 超级编辑框1.被选择字符数 ＝ 0<br /> 超级编辑框1.被选择文本 ＝ 编辑框3.内容

RainCharm

  

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

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

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

行数 ＝ 到整数 (编辑框1.内容)
列数 ＝ 到整数 (编辑框2.内容)
判断 (行数 ＜ 1)
行数 ＝ 1
判断 (列数 ＜ 1)
列数 ＝ 1



所有内容 ＝ 超级编辑框1.内容
行数组 ＝ 分割文本 (所有内容, #换行符, )
如果 (行数 ＞ 取数组成员数 (行数组))
重定义数组 (行数组, 真, 行数)



当前行文本 ＝ 行数组 [行数]
如果 (列数 ＞ 取文本长度 (当前行文本))
行数组 [行数] ＝ 当前行文本 ＋ 新增内容
行数组 [行数] ＝ 取文本左边 (当前行文本, 列数 － 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 /> <br /> .如果 (编辑框3.内容 ＝ “”)<br />     新增内容 ＝ “0”<br /> .否则<br />     新增内容 ＝ 编辑框3.内容<br /> .如果结束<br /> <br /> 行数 ＝ 到整数 (编辑框1.内容)<br /> 列数 ＝ 到整数 (编辑框2.内容)<br /> <br /> .判断开始 (行数 ＜ 1)<br />     行数 ＝ 1<br /> .判断 (列数 ＜ 1)<br />     列数 ＝ 1<br /> .默认<br /> <br /> .判断结束<br /> <br /> 所有内容 ＝ 超级编辑框1.内容<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 /> <br /> 超级编辑框1.内容 ＝ 所有内容

真冬

  

子程序名	返回值类型	公开	备 注
方案1

变量名	类 型	静态	数组	备 注
正则	对象

正则.写属性 (“Global”, 正则.写属性 (“Multiline”, 正则.创建 (“VBScript.RegExp”, )) ＝ 假)
正则.写属性 (“Pattern”, “(?:\r?\n?^.*$){” ＋ 到文本 (到整数 (编辑框1.内容) － 1) ＋ “}\r?\n?.{” ＋ 编辑框2.内容 ＋ “}”)
超级编辑框1.内容 ＝ 正则.文本方法 (“Replace”, 超级编辑框1.内容, “$&” ＋ 编辑框3.内容)

子程序名	返回值类型	公开	备 注
方案2

变量名	类 型	静态	数组	备 注
a1	整数型
i1	整数型
b	整数型
i2	整数型

计次循环首 (到整数 (编辑框1.内容) － 1, )
a1 ＝ 寻找文本 (超级编辑框1.内容 ＋ #换行符, 字符 (10), a1 ＋ 1, 假)
如果真 (a1 ＝ -1)
返回 ()

计次循环尾 ()
循环判断首 ()
i1 ＝ i1 ＋ 1
b ＝ 取代码 (超级编辑框1.内容, a1 ＋ i1)
判断 (b ＜ 0)
i1 ＝ i1 ＋ 1


i2 ＝ i2 ＋ 1
循环判断尾 (i2 ≠ 到整数 (编辑框2.内容))
超级编辑框1.内容 ＝ 文本替换 (超级编辑框1.内容, a1 ＋ i1 ＋ 1, 0, 编辑框3.内容)

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

.版本 2<br /> .支持库 iext2<br /> <br /> .子程序 方案1<br /> .局部变量 正则, 对象<br /> <br /> 正则.写属性 (“Global”, 正则.写属性 (“Multiline”, 正则.创建 (“VBScript.RegExp”, )) ＝ 假)<br /> 正则.写属性 (“Pattern”, “(?:\r?\n?^.*$){” ＋ 到文本 (到整数 (编辑框1.内容) － 1) ＋ “}\r?\n?.{” ＋ 编辑框2.内容 ＋ “}”)<br /> 超级编辑框1.内容 ＝ 正则.文本方法 (“Replace”, 超级编辑框1.内容, “$&” ＋ 编辑框3.内容)<br /> <br /> .子程序 方案2<br /> .局部变量 a1, 整数型<br /> .局部变量 i1, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 i2, 整数型<br /> <br /> .计次循环首 (到整数 (编辑框1.内容) － 1, )<br />     a1 ＝ 寻找文本 (超级编辑框1.内容 ＋ #换行符, 字符 (10), a1 ＋ 1, 假)<br />     .如果真 (a1 ＝ -1)<br />         返回 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .循环判断首 ()<br />     i1 ＝ i1 ＋ 1<br />     b ＝ 取代码 (超级编辑框1.内容, a1 ＋ i1)<br />     .判断开始 (b ＜ 0)<br />         i1 ＝ i1 ＋ 1<br />     .默认<br /> <br />     .判断结束<br />     i2 ＝ i2 ＋ 1<br /> .循环判断尾 (i2 ≠ 到整数 (编辑框2.内容))<br /> 超级编辑框1.内容 ＝ 文本替换 (超级编辑框1.内容, a1 ＋ i1 ＋ 1, 0, 编辑框3.内容)

再写两个方案给你


补充内容 (2025-11-13 21:43):
循环判断尾 (i2 ＜ 到整数 (编辑框2.内容))

熊仕俊

RainCharm 发表于 2025-11-13 21:00
[e=4].版本 2
.支持库 iext2

哥，你的能不能改一改，支持插入中文啊

熊仕俊

真冬 发表于 2025-11-13 21:41
[e=0]
.版本 2
.支持库 iext2

有bug，比如选择第一列就选择不中，超出行数会加在第一行里面

熊仕俊

熊仕俊 发表于 2025-11-13 23:26
有bug，比如选择第一列就选择不中，超出行数会加在第一行里面

说错了，是超出列选择不中，超出行将文本插入在最后一行里了，我想要实现行数不够自动补行

补充内容 (2025-11-13 23:33):
列数超出自动补在改行末尾

RainCharm

熊仕俊 发表于 2025-11-13 23:21
哥，你的能不能改一改，支持插入中文啊

晚一点，在写别的

熊仕俊

RainCharm 发表于 2025-11-13 23:34
晚一点，在写别的

好的，谢谢大佬