求完美文本分割源码

1015441689

求完美文本分割源码，文本里面的格式就是原来的样子，我想要一个完美的分割源码，有没有兄弟协助一下。

zainex

用 快速文本对象 会快一点，其它的你参考下面的代码学习一下：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
路径	文本型
文本	文本型
正则	正则表达式
正文	文本型
数组	文本型		0
数	整数型
搜索结果	搜索结果		0
成员	文本型
字段	文本型		0
值	整数型
结果	快速文本对象
保存路径	文本型

调试输出 (“正在运行”)
路径 ＝ 取特定目录 ( #系统桌面 ) ＋ “\全部服务器.txt”
文本 ＝ 到文本 (读入文件 (路径))
正则.创建 (“SERVER_BEGIN(.+?)SERVER_END”, )
正文 ＝ 正则.搜索 (文本, 1, ).取子匹配文本 (文本, 1, )
数组 ＝ 分割文本 (正文, #换行符, )
正则.创建 (“[^,]+”, )
计次循环首 (取数组成员数 (数组), 数)
成员 ＝ 数组 [数]
搜索结果 ＝ 正则.搜索全部 (成员)
重定义数组 (字段, 假, 取数组成员数 (搜索结果))
计次循环首 (取数组成员数 (搜索结果), 值)
字段 [值] ＝ 搜索结果 [值].取匹配文本 (成员, )
计次循环尾 ()
如果真 (取数组成员数 (字段) ≥ 2)
结果.添加 (字段 [1] ＋ “-” ＋ 字段 [2] ＋ #换行符 )

计次循环尾 ()
路径 ＝ 取特定目录 ( #系统桌面 ) ＋ “\保存的字段.txt”
写到文件 (路径, 到字节集 (结果.取文本 (, )))
调试输出 (“运行结束”)

i支持库列表	支持库注释
RegEx	正则表达式支持库
commobj	通用对象支持库
spec	特殊功能支持库
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 RegEx<br /> .支持库 commobj<br /> .支持库 spec<br /> .支持库 shell<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 路径, 文本型<br /> .局部变量 文本, 文本型<br /> .局部变量 正则, 正则表达式<br /> .局部变量 正文, 文本型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 数, 整数型<br /> .局部变量 搜索结果, 搜索结果, , "0"<br /> .局部变量 成员, 文本型<br /> .局部变量 字段, 文本型, , "0"<br /> .局部变量 值, 整数型<br /> .局部变量 结果, 快速文本对象<br /> .局部变量 保存路径, 文本型<br /> <br /> 调试输出 (“正在运行”)<br /> 路径 ＝ 取特定目录 (#系统桌面) ＋ “\全部服务器.txt”<br /> 文本 ＝ 到文本 (读入文件 (路径))<br /> 正则.创建 (“SERVER_BEGIN(.+?)SERVER_END”, )<br /> 正文 ＝ 正则.搜索 (文本, 1, ).取子匹配文本 (文本, 1, )<br /> 数组 ＝ 分割文本 (正文, #换行符, )<br /> 正则.创建 (“[^,]+”, )<br /> .计次循环首 (取数组成员数 (数组), 数)<br />     成员 ＝ 数组 [数]<br />     搜索结果 ＝ 正则.搜索全部 (成员)<br />     重定义数组 (字段, 假, 取数组成员数 (搜索结果))<br />     .计次循环首 (取数组成员数 (搜索结果), 值)<br />         字段 [值] ＝ 搜索结果 [值].取匹配文本 (成员, )<br />     .计次循环尾 ()<br />     .如果真 (取数组成员数 (字段) ≥ 2)<br />         结果.添加 (字段 [1] ＋ “-” ＋ 字段 [2] ＋ #换行符)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 路径 ＝ 取特定目录 (#系统桌面) ＋ “\保存的字段.txt”<br /> 写到文件 (路径, 到字节集 (结果.取文本 (, )))<br /> 调试输出 (“运行结束”)

Ruang

  

变量名	类 型	静态	数组	备 注
文本数组	文本型		0
行文本数组	文本型		0
计次1	整数型
计次2	整数型

文本数组 ＝ 分割文本 ( #常量1, #换行符, )
计次循环首 (取数组成员数 (文本数组), 计次1)
' 调试输出 (“第” ＋ 到文本 (计次1) ＋ “行文本 ” ＋ 文本数组 [计次1])
行文本数组 ＝ 分割文本 (文本数组 [计次1], “,”, )
计次循环首 (取数组成员数 (行文本数组), 计次2)
调试输出 (“第” ＋ 到文本 (计次1) ＋ “行文本 ,第” ＋ 到文本 (计次2) ＋ “组数据：” ＋ 行文本数组 [计次2])
计次循环尾 ()
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 行文本数组, 文本型, , "0"<br /> .局部变量 计次1, 整数型<br /> .局部变量 计次2, 整数型<br /> <br /> 文本数组 ＝ 分割文本 (#常量1, #换行符, )<br /> .计次循环首 (取数组成员数 (文本数组), 计次1)<br />     ' 调试输出 (“第” ＋ 到文本 (计次1) ＋ “行文本 ” ＋ 文本数组 [计次1])<br />     行文本数组 ＝ 分割文本 (文本数组 [计次1], “,”, )<br />     .计次循环首 (取数组成员数 (行文本数组), 计次2)<br />         调试输出 (“第” ＋ 到文本 (计次1) ＋ “行文本 ,第” ＋ 到文本 (计次2) ＋ “组数据：” ＋ 行文本数组 [计次2])<br />     .计次循环尾 ()<br /> .计次循环尾 ()

你的猫

  

变量名	类 型	静态	数组	备 注
文本数组	文本型		0
行文本数组	文本型		0
行索引	整数型
列索引	整数型
当前行	文本型

文本数组 ＝ 分割文本 ( #常量1, #换行符, )
计次循环首 (取数组成员数 (文本数组), 行索引)
当前行 ＝ 文本数组 [行索引]
如果真 (当前行 ＝ "")  ' 跳过空行
到循环尾 ()

行文本数组 ＝ 分割文本 (当前行, “,”, )

计次循环首 (取数组成员数 (行文本数组), 列索引)
调试输出 ("行", 行索引, "列", 列索引, "数据:", 行文本数组 [列索引])
计次循环尾 ()
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 行文本数组, 文本型, , "0"<br /> .局部变量 行索引, 整数型<br /> .局部变量 列索引, 整数型<br /> .局部变量 当前行, 文本型<br /> <br /> 文本数组 ＝ 分割文本 (#常量1, #换行符, )<br /> <br /> .计次循环首 (取数组成员数 (文本数组), 行索引)<br />     当前行 ＝ 文本数组 [行索引]<br />     .如果真 (当前行 ＝ "")  ' 跳过空行<br />         到循环尾 ()<br />     .如果真结束<br />     <br />     行文本数组 ＝ 分割文本 (当前行, “,”, )<br />     <br />     .计次循环首 (取数组成员数 (行文本数组), 列索引)<br />         调试输出 ("行", 行索引, "列", 列索引, "数据:", 行文本数组 [列索引])<br />     .计次循环尾 ()<br /> .计次循环尾 ()

zainex

下面是用 正则 的写法，假设文件放在桌面：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
路径	文本型
文本	文本型
正则	正则表达式
正文	文本型
数组	文本型		0
数	整数型
搜索结果	搜索结果		0
成员	文本型
字段	文本型		0
值	整数型

路径 ＝ 取特定目录 ( #系统桌面 ) ＋ “\全部服务器.txt”
文本 ＝ 到文本 (读入文件 (路径))
正则.创建 (“SERVER_BEGIN(.+?)SERVER_END”, )
正文 ＝ 正则.搜索 (文本, 1, ).取子匹配文本 (文本, 1, )
数组 ＝ 分割文本 (正文, #换行符, )
正则.创建 (“[^,]+”, )
计次循环首 (取数组成员数 (数组), 数)
成员 ＝ 数组 [数]
搜索结果 ＝ 正则.搜索全部 (成员)
重定义数组 (字段, 假, 取数组成员数 (搜索结果))
计次循环首 (取数组成员数 (搜索结果), 值)
字段 [值] ＝ 搜索结果 [值].取匹配文本 (成员, )
计次循环尾 ()
调试输出 (字段)
计次循环尾 ()

i支持库列表	支持库注释
RegEx	正则表达式支持库
shell	操作系统界面功能支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 RegEx<br /> .支持库 shell<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 路径, 文本型<br /> .局部变量 文本, 文本型<br /> .局部变量 正则, 正则表达式<br /> .局部变量 正文, 文本型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 数, 整数型<br /> .局部变量 搜索结果, 搜索结果, , "0"<br /> .局部变量 成员, 文本型<br /> .局部变量 字段, 文本型, , "0"<br /> .局部变量 值, 整数型<br /> <br /> 路径 ＝ 取特定目录 (#系统桌面) ＋ “\全部服务器.txt”<br /> 文本 ＝ 到文本 (读入文件 (路径))<br /> 正则.创建 (“SERVER_BEGIN(.+?)SERVER_END”, )<br /> 正文 ＝ 正则.搜索 (文本, 1, ).取子匹配文本 (文本, 1, )<br /> 数组 ＝ 分割文本 (正文, #换行符, )<br /> 正则.创建 (“[^,]+”, )<br /> .计次循环首 (取数组成员数 (数组), 数)<br />     成员 ＝ 数组 [数]<br />     搜索结果 ＝ 正则.搜索全部 (成员)<br />     重定义数组 (字段, 假, 取数组成员数 (搜索结果))<br />     .计次循环首 (取数组成员数 (搜索结果), 值)<br />         字段 [值] ＝ 搜索结果 [值].取匹配文本 (成员, )<br />     .计次循环尾 ()<br />     调试输出 (字段)<br /> .计次循环尾 ()

1015441689

zainex 发表于 2025-5-16 20:36
下面是用 正则 的写法，假设文件放在桌面：
[e=1].版本 2
.支持库 RegEx

可以把分割出来的数据，写到文本吗？
比如这样的格式：
双线-鸿运大区-虎虎生威
双线-鸿运大区-春满山河
双线-鸿运大区-龍
双线-绝世双线-桃花影落
双线-绝世双线-箫中剑
双线-绝世双线-潇潇雨幕
双线-绝世双线-碧海潮生
双线-绝世双线-洛城飞雪
双线-绝世双线-山河无恙
双线-绝世双线-乘风破浪
双线-绝世双线-愿得一人心
双线-绝世双线-风起汴京
双线-绝世双线-东京梦华
双线-绝世双线-千里江山
双线-绝世双线-萌动江湖
双线-绝世双线-侠肝义胆
双线-锋芒双线-刀锋破晓

1015441689

zainex 发表于 2025-5-16 21:11
用 快速文本对象 会快一点，其它的你参考下面的代码学习一下：
[e=1].版本 2
.支持库 RegEx

特别快，超级好。