跪求大佬，分割一下文本。

qweqwe1233

超过4个字的成语全部删掉，我研究了半天没研究明白，求大佬直接发一下可以用的文本，感谢~大佬

火狐狸软件

qweqwe1233 发表于 2025-6-11 09:31
66666  感谢大哥，谢谢大哥~ 膜拜了~我复制你代码去再试试呢 哈哈

嗯 复制可以直接使用,引用一下精易模块

qweqwe1233

火狐狸软件 发表于 2025-6-11 09:28
[e=0].版本 2
.支持库 shell

66666  感谢大哥，谢谢大哥~ 膜拜了~我复制你代码去再试试呢 哈哈

火狐狸软件

  

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

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

Str ＝ 文本_删除空行 (到文本 (读入文件 (取特定目录 (3) ＋ “成语词库.txt”)))
临时数组 ＝ 分割文本 (Str, #换行符, )
Str ＝ “”
计次循环首 (取数组成员数 (临时数组), i)
如果真 (文本_取长度ex (临时数组 [i]) ≤ 4)
Str ＝ Str ＋ 临时数组 [i] ＋ #换行符

计次循环尾 ()
写到文件 (取特定目录 (3) ＋ “成语词库_删除大于4长度的.txt”, 到字节集 (Str))

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

.版本 2<br /> .支持库 shell<br /> <br /> .子程序 子程序1<br /> .局部变量 Str, 文本型<br /> .局部变量 临时数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> <br /> Str ＝ 文本_删除空行 (到文本 (读入文件 (取特定目录 (3) ＋ “成语词库.txt”)))<br /> 临时数组 ＝ 分割文本 (Str, #换行符, )<br /> Str ＝ “”<br /> .计次循环首 (取数组成员数 (临时数组), i)<br /> <br />     .如果真 (文本_取长度ex (临时数组 <i>) ≤ 4)<br />         Str ＝ Str ＋ 临时数组 <i> ＋ #换行符<br />     .如果真结束<br /> <br /> <br /> .计次循环尾 ()<br /> 写到文件 (取特定目录 (3) ＋ “成语词库_删除大于4长度的.txt”, 到字节集 (Str))

换成字节集操作,速度会快很多,这就是给你写一下看看

火狐狸软件

删除长度之后的

qweqwe1233

火狐狸软件 发表于 2025-6-11 09:24
取文本长度就行了

求文本 我哥，不会呀，搞了半天没搞明白~

火狐狸软件

取文本长度就行了