文本批量处理小功能

财通天地

附件这个文本中有上万个名称。我要把他每100个或200个名称导出生成一个文本文件，求个速度快不卡的码。最好能识别文本编码能自动转换下

谢谢万能的论坛

liantan

https://bbs.125.la/thread-13759537-1-1.html
https://bbs.125.la/forum.php?mod ... p;extra=&page=1
例子。

寒潮

文本编辑器EmEditor，直接按行分割。

53770zhang

看起来不难啊，读文件，按行分割，然后计次循环100，加入新的TXT文档

财通天地

53770zhang 发表于 2021-4-16 15:24
看起来不难啊，读文件，按行分割，然后计次循环100，加入新的TXT文档

不会啊，看视频看的多，现实操作玩不了。

按键精灵

  

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

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

正则_匹配批量 (编码_Utf8到Ansi ( #文本 ))

子程序名	返回值类型	公开	备 注
正则_匹配批量	整数型		本子程序采用【精易编程助手】生成。成功返回匹配的数量，失败返回0。
参数名	类 型	参考	可空	数组	备 注
源文本	文本型				欲被匹配的文本

变量名	类 型	静态	数组	备 注
局_正则	正则表达式类			此类为精易模块里面的正则类，精易模块下载地址：http://ec.125.la/
局_匹配数	整数型
局_计次	整数型
局_子匹配数	整数型

如果真 (局_正则.创建 (“.+”, 源文本, 假, 假, 真, 真) ＝ 假)
信息框 (“正则创建失败，请检查正则表达式语句是否有误！”, #错误图标, , )
返回 (0)
局_匹配数 ＝ 局_正则.取匹配数量 ()
如果真 (局_匹配数 ＝ 0)
信息框 (“匹配失败，请检检查正则语句是否有误，数量：0”, #错误图标, , )
返回 (0)
局_子匹配数 ＝ 局_正则.取子匹配数量 ()
计次循环首 (局_匹配数, 局_计次)
调试输出 (到整数 (局_计次 ÷ 100) × 100, 到整数 (局_计次 ÷ 100) × 100 ＋ 100)
输出调试文本 (“匹配文本 ” ＋ 到文本 (局_计次) ＋ “ ：” ＋ 局_正则.取匹配文本 (局_计次, ))
计次循环尾 ()
返回 (局_匹配数)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 正则_匹配批量 (编码_Utf8到Ansi (#文本))<br /> <br /> .子程序 正则_匹配批量, 整数型, , 本子程序采用【精易编程助手】生成。成功返回匹配的数量，失败返回0。<br /> .参数 源文本, 文本型, , 欲被匹配的文本<br /> .局部变量 局_正则, 正则表达式类, , , 此类为精易模块里面的正则类，精易模块下载地址：<a href="http://ec.125.la/" rel="nofollow" rel="nofollow" target="_blank">http://ec.125.la/</a><br /> .局部变量 局_匹配数, 整数型<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_子匹配数, 整数型<br /> <br /> .如果真 (局_正则.创建 (“.+”, 源文本, 假, 假, 真, 真) ＝ 假)<br />     信息框 (“正则创建失败，请检查正则表达式语句是否有误！”, #错误图标, , )<br />     返回 (0)<br /> .如果真结束<br /> 局_匹配数 ＝ 局_正则.取匹配数量 ()<br /> .如果真 (局_匹配数 ＝ 0)<br />     信息框 (“匹配失败，请检检查正则语句是否有误，数量：0”, #错误图标, , )<br />     返回 (0)<br /> .如果真结束<br /> 局_子匹配数 ＝ 局_正则.取子匹配数量 ()<br /> .计次循环首 (局_匹配数, 局_计次)<br />     调试输出 (到整数 (局_计次 ÷ 100) × 100, 到整数 (局_计次 ÷ 100) × 100 ＋ 100)<br />     输出调试文本 (“匹配文本 ” ＋ 到文本 (局_计次) ＋ “ ：” ＋ 局_正则.取匹配文本 (局_计次, ))<br /> .计次循环尾 ()<br /> 返回 (局_匹配数)