快速截取字符

学习委员

几千几万字的文本，如何快速截取指定字符数量。比如我要前面一千字符。

用逐字分割再用计次循环首拼接好像很慢？

萧楚楠

学习委员 发表于 2025-2-23 19:48
我没有了，我是看你们在聊天，没关帖子

不聊了，快结帖帅哥，我缺币

算法艺术家

取文本左边 (文本, 1000)

算法艺术家

  

子程序名	返回值类型	公开	备 注
取文本左边EX	文本型		取字符串左边，按照字符个数计算 中文 英文 数字 符号  都算是1个字
参数名	类 型	参考	可空	数组	备 注
欲取其部分的文本	文本型
欲取出字符的数目	整数型

变量名	类 型	静态	数组	备 注
pData	整数型
pIndex	整数型
tp	文本型
i	整数型

pData ＝ 取变量数据地址 (欲取其部分的文本)
pIndex ＝ pData
判断循环首 (指针到文本 (pIndex) ≠ “”)
计次循环首 (欲取出字符的数目 － 1, i)
pIndex ＝ CharNext (pIndex)
计次循环尾 ()
判断 (欲取出字符的数目 ≤ 0)
tp ＝ “”
tp ＝ 取文本左边 (指针到文本 (pData), CharNext (pIndex) － pData)

跳出循环 ()
判断循环尾 ()
返回 (tp)

子程序名	返回值类型	公开	备 注
取文本右边EX	文本型		取字符串右边，按照字符个数计算 中文 英文 数字 符号  都算是1个字
参数名	类 型	参考	可空	数组	备 注
欲取其部分的文本	文本型
欲取出字符的数目	整数型

变量名	类 型	静态	数组	备 注
pBegin	整数型
pData	整数型
pIndex	整数型
tp	文本型
i	整数型

pBegin ＝ 取变量数据地址 (欲取其部分的文本)
pData ＝ 取变量数据地址 (欲取其部分的文本) ＋ 取文本长度 (欲取其部分的文本)
pIndex ＝ pData
判断循环首 (pIndex ≥ pBegin)
计次循环首 (欲取出字符的数目, i)
pIndex ＝ CharPrev (pBegin, pIndex)
计次循环尾 ()
判断 (欲取出字符的数目 ≤ 0)
tp ＝ “”
tp ＝ 取文本右边 (指针到文本 (pBegin), pData － pIndex)

跳出循环 ()
判断循环尾 ()
返回 (tp)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 取文本左边EX, 文本型, 公开, 取字符串左边，按照字符个数计算 中文 英文 数字 符号  都算是1个字<br /> .参数 欲取其部分的文本, 文本型<br /> .参数 欲取出字符的数目, 整数型<br /> .局部变量 pData, 整数型<br /> .局部变量 pIndex, 整数型<br /> .局部变量 tp, 文本型<br /> .局部变量 i, 整数型<br /> <br /> pData ＝ 取变量数据地址 (欲取其部分的文本)<br /> pIndex ＝ pData<br /> .判断循环首 (指针到文本 (pIndex) ≠ “”)<br />     .计次循环首 (欲取出字符的数目 － 1, i)<br />         pIndex ＝ CharNext (pIndex)<br />     .计次循环尾 ()<br />     .判断开始 (欲取出字符的数目 ≤ 0)<br />         tp ＝ “”<br />     .默认<br />         tp ＝ 取文本左边 (指针到文本 (pData), CharNext (pIndex) － pData)<br />     .判断结束<br /> <br />     跳出循环 ()<br /> .判断循环尾 ()<br /> 返回 (tp)<br /> <br /> .子程序 取文本右边EX, 文本型, 公开, 取字符串右边，按照字符个数计算 中文 英文 数字 符号  都算是1个字<br /> .参数 欲取其部分的文本, 文本型<br /> .参数 欲取出字符的数目, 整数型<br /> .局部变量 pBegin, 整数型<br /> .局部变量 pData, 整数型<br /> .局部变量 pIndex, 整数型<br /> .局部变量 tp, 文本型<br /> .局部变量 i, 整数型<br /> <br /> pBegin ＝ 取变量数据地址 (欲取其部分的文本)<br /> pData ＝ 取变量数据地址 (欲取其部分的文本) ＋ 取文本长度 (欲取其部分的文本)<br /> pIndex ＝ pData<br /> .判断循环首 (pIndex ≥ pBegin)<br />     .计次循环首 (欲取出字符的数目, i)<br />         pIndex ＝ CharPrev (pBegin, pIndex)<br />     .计次循环尾 ()<br />     .判断开始 (欲取出字符的数目 ≤ 0)<br />         tp ＝ “”<br />     .默认<br />         tp ＝ 取文本右边 (指针到文本 (pBegin), pData － pIndex)<br />     .判断结束<br /> <br />     跳出循环 ()<br /> .判断循环尾 ()<br /> 返回 (tp)

刘一手

有特征，则正则。  参考https://bbs.125.la/forum.php?mod ... 9%E6%9B%BF%E6%8D%A2

补充内容 (2025-2-22 18:58):
表达式.取子匹配文本 (i, 1, n)   不用替换

萧楚楠

  

子程序名	返回值类型	公开	备 注
文本_取左边	文本型		会将中文字符和全角字符这样的双字节字符视为一个字，放心食用
参数名	类 型	参考	可空	数组	备 注
源文本	文本型
要取的长度	整数型

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

置入代码 ({ 87, 86, 81, 83, 139, 117, 8, 139, 54, 139, 125, 252, 139, 77, 12, 133, 201, 116, 46, 128, 62, 0, 116, 41, 138, 6, 60, 129, 114, 21, 138, 102, 1, 132, 228, 116, 25, 136, 7, 136, 103, 1, 131, 199, 2, 131, 198, 2, 73, 235, 220, 60, 163, 117, 0, 136, 7, 71, 70, 73, 235, 209, 136, 7, 71, 198, 7, 0, 91, 89, 94, 95 })
返回 (缓冲区)

.版本 2<br /> <br /> .子程序 文本_取左边, 文本型, , 会将中文字符和全角字符这样的双字节字符视为一个字，放心食用<br /> .参数 源文本, 文本型<br /> .参数 要取的长度, 整数型<br /> .局部变量 缓冲区, 文本型<br /> <br /> 置入代码 ({ 87, 86, 81, 83, 139, 117, 8, 139, 54, 139, 125, 252, 139, 77, 12, 133, 201, 116, 46, 128, 62, 0, 116, 41, 138, 6, 60, 129, 114, 21, 138, 102, 1, 132, 228, 116, 25, 136, 7, 136, 103, 1, 131, 199, 2, 131, 198, 2, 73, 235, 220, 60, 163, 117, 0, 136, 7, 71, 70, 73, 235, 209, 136, 7, 71, 198, 7, 0, 91, 89, 94, 95 })<br /> <br /> 返回 (缓冲区)

补充内容 (2025-2-22 19:04):
这个是错的，看下面的

萧楚楠

知道你在说啥，用这个嘎嘎快，汇编，而且不会因为双字节字符截断

  

子程序名	返回值类型	公开	备 注
文本_取左边	文本型		会将中文字符和全角字符这样的双字节字符视为一个字，放心食用
参数名	类 型	参考	可空	数组	备 注
源文本	文本型
要取的长度	整数型

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

缓冲区 ＝ 取空白文本 (取文本长度 (源文本))
置入代码 ({ 87, 86, 81, 83, 139, 117, 8, 139, 54, 139, 125, 252, 139, 77, 12, 133, 201, 116, 46, 128, 62, 0, 116, 41, 138, 6, 60, 129, 114, 21, 138, 102, 1, 132, 228, 116, 25, 136, 7, 136, 103, 1, 131, 199, 2, 131, 198, 2, 73, 235, 220, 60, 163, 117, 0, 136, 7, 71, 70, 73, 235, 209, 136, 7, 71, 198, 7, 0, 91, 89, 94, 95 })
返回 (缓冲区)

.版本 2<br /> <br /> .子程序 文本_取左边, 文本型, , 会将中文字符和全角字符这样的双字节字符视为一个字，放心食用<br /> .参数 源文本, 文本型<br /> .参数 要取的长度, 整数型<br /> .局部变量 缓冲区, 文本型<br /> <br /> 缓冲区 ＝ 取空白文本 (取文本长度 (源文本))<br /> 置入代码 ({ 87, 86, 81, 83, 139, 117, 8, 139, 54, 139, 125, 252, 139, 77, 12, 133, 201, 116, 46, 128, 62, 0, 116, 41, 138, 6, 60, 129, 114, 21, 138, 102, 1, 132, 228, 116, 25, 136, 7, 136, 103, 1, 131, 199, 2, 131, 198, 2, 73, 235, 220, 60, 163, 117, 0, 136, 7, 71, 70, 73, 235, 209, 136, 7, 71, 198, 7, 0, 91, 89, 94, 95 })<br /> 返回 (缓冲区)

算法艺术家

  

另一种写法

子程序名	返回值类型	公开	备 注
文本取前N个字	文本型		中文 英文 数字 符号  都算是1个字
参数名	类 型	参考	可空	数组	备 注
文本	文本型
取出数量	整数型

返回 (文本_删右边 (文本, 文本_取长度ex (文本) － 取出数量))

子程序名	返回值类型	公开	备 注
文本取后N个字	文本型		中文 英文 数字 符号  都算是1个字
参数名	类 型	参考	可空	数组	备 注
文本	文本型
取出数量	整数型

返回 (文本_删左边 (文本, 文本_取长度ex (文本) － 取出数量))

子程序名	返回值类型	公开	备 注
文本中间N个字	文本型		中文 英文 数字 符号  都算是1个字
参数名	类 型	参考	可空	数组	备 注
文本	文本型
起始取出位置	整数型
取出数量	整数型

返回 (文本_删左边 (文本_删右边 (文本, 文本_取长度ex (文本) － 起始取出位置 － 取出数量 ＋ 1), 起始取出位置 － 1))

另一种写法<br /> .版本 2<br /> <br /> .子程序 文本取前N个字, 文本型, 公开, 中文 英文 数字 符号  都算是1个字<br /> .参数 文本, 文本型<br /> .参数 取出数量, 整数型<br /> <br /> 返回 (文本_删右边 (文本, 文本_取长度ex (文本) － 取出数量))<br /> <br /> .子程序 文本取后N个字, 文本型, 公开, 中文 英文 数字 符号  都算是1个字<br /> .参数 文本, 文本型<br /> .参数 取出数量, 整数型<br /> <br /> 返回 (文本_删左边 (文本, 文本_取长度ex (文本) － 取出数量))<br /> <br /> .子程序 文本中间N个字, 文本型, 公开, 中文 英文 数字 符号  都算是1个字<br /> .参数 文本, 文本型<br /> .参数 起始取出位置, 整数型<br /> .参数 取出数量, 整数型<br /> <br /> 返回 (文本_删左边 (文本_删右边 (文本, 文本_取长度ex (文本) － 起始取出位置 － 取出数量 ＋ 1), 起始取出位置 － 1))

kenan236

如果只取最前面的就 取文本左边 (文本, 1000)   ，从中间取就取文本中间，后面也是一样，望采纳！

aipca

炸出一堆大佬