取文本中间问题

呆呆1

a2语3b易言dcd2

我是想取左边到文本中间

但是当已知长度是14
我从左侧取14长度，就会乱码，
所以遇到这种情况，我想取中间6或8  也就是中间+-1的长度内容，该怎么写

z573277679

用这个吧，怎么取都不会乱码。无论是汉字还是字母都是按一个长度计算。
重写部分核心支持库文本操作.e (26.99 KB, 下载次数: 1)

3 小时前 上传

点击文件名下载附件

haoren1212

没描述清楚，发原文本，要取的内容，可以多发几条，方便别人分析规律

haoren1212

  

子程序名	返回值类型	公开	备 注
文本_取中间文本	文本型
参数名	类 型	参考	可空	数组	备 注
源文本	文本型
前位置	文本型
后位置	文本型

变量名	类 型	静态	数组	备 注
文本数组	文本型		0
i	整数型
临时_文本	文本型

文本_逐字分割 (“a2语3b易言dcd2”, 文本数组)
计次循环首 (后位置, i)
计次循环尾 ()
如果真 (前位置 ≤ i)
临时_文本 ＝ 临时_文本 ＋ 数组 [i]
返回 (临时_文本)

.版本 2<br /> <br /> .子程序 文本_取中间文本, 文本型<br /> .参数 源文本, 文本型<br /> .参数 前位置, 文本型<br /> .参数 后位置, 文本型<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 临时_文本, 文本型<br /> <br /> 文本_逐字分割 (“a2语3b易言dcd2”, 文本数组)<br /> .计次循环首 (后位置, i)<br /> .计次循环尾 ()<br /> .如果真 (前位置 ≤ i)<br />     临时_文本 ＝ 临时_文本 ＋ 数组 <i><br /> .如果真结束<br /> 返回 (临时_文本)

取文本长度都是按字节数量计算的，数字和字母都是一个字节，汉字是两个
直接使用逐字分割取前后文本会方便一点，不用管汉字是两个字节



补充内容 (2026-2-16 03:13):
.版本 2

    .如果真 (前位置 ≤ i)
        临时_文本 ＝ 临时_文本 ＋ 数组
是在计次循环首里的，复制有误

haoren1212

  

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

调试输出 (文本_取中间文本 (“a2语3b易言dcd2”, 1, 6))
调试输出 (文本_取中间文本 (“a2语3b易言dcd2”, 2, 7))

子程序名	返回值类型	公开	备 注
文本_取中间文本	文本型
参数名	类 型	参考	可空	数组	备 注
源文本	文本型
前位置	整数型
后位置	整数型

变量名	类 型	静态	数组	备 注
文本数组	文本型		0
i	整数型
临时_文本	文本型

文本_逐字分割 (“a2语3b易言dcd2”, 文本数组)
计次循环首 (后位置, i)
如果真 (前位置 ≤ i)
临时_文本 ＝ 临时_文本 ＋ 文本数组 [i]

计次循环尾 ()
返回 (临时_文本)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 调试输出 (文本_取中间文本 (“a2语3b易言dcd2”, 1, 6))<br /> 调试输出 (文本_取中间文本 (“a2语3b易言dcd2”, 2, 7))<br /> <br /> <br /> .子程序 文本_取中间文本, 文本型<br /> .参数 源文本, 文本型<br /> .参数 前位置, 整数型<br /> .参数 后位置, 整数型<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 临时_文本, 文本型<br /> <br /> 文本_逐字分割 (“a2语3b易言dcd2”, 文本数组)<br /> .计次循环首 (后位置, i)<br />     .如果真 (前位置 ≤ i)<br />         临时_文本 ＝ 临时_文本 ＋ 文本数组 <i><br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (临时_文本)