文本 操作 分类

用户341522

[测试]1天会员----11456451----2025-3-23 09:19:49
[测试]1天会员----11456452----2025-3-23 09:19:49
[测试]1天会员----11456453----2025-3-23 09:19:49
[测试]1天紫钻----11456454----2025-3-23 09:19:49
[测试]1天紫钻----11456455----2025-3-23 09:19:49
[测试]1天粉钻----11456453----2025-3-23 09:19:49
[测试]1天绿钻----11456454----2025-3-23 09:19:49
[测试]1天紫钻----11456455----2025-3-23 09:19:49
[测试]1天金钻----11456453----2025-3-23 09:19:49
[测试]1天绿钻----11456454----2025-3-23 09:19:49

最后效果如图     [测试]1天绿钻  （这种商品很多名字）需要分类 且 标注数量       速度越快越好      （文本大概2W行左右

麻烦大佬写个例子     

算法艺术家

  

文本文件分类 (“C:\ABC.txt”, “[测试]”, “----”)

子程序名	返回值类型	公开	备 注
文本文件分类			通过前几个字符特征进行文本分类
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型
左边特征	文本型
右边特征	文本型

变量名	类 型	静态	数组	备 注
文件号	整数型
局哈希	哈希表_ASM
输入	快速文本对象
i	整数型
数组	文本型		0
特征文本	文本型
返回文件号	整数型
局路径	文本型
拓展名	文本型
文件号组	整数型		0

局哈希.创建 ( #文本型, #整数型 )
输入.从文件读 (文件路径)
数组 ＝ 输入.分割文本 ( #换行符, )
局路径 ＝ 目录_取父路径 (文件路径)
拓展名 ＝ 文件_取扩展名 (文件路径)
计次循环首 (取数组成员数 (数组), i)
如果真 (数组 [i] ≠ “”)
特征文本 ＝ 文本_取中间 (数组 [i], 左边特征, 右边特征, , , , )
返回文件号 ＝ 局哈希.取值 (特征文本)
如果 (返回文件号 ＝ 0)
写到文件 (局路径 ＋ 特征文本 ＋ 拓展名, {  })
文件号 ＝ 打开文件 (局路径 ＋ 特征文本 ＋ 拓展名, , )
局哈希.添加 (特征文本, 文件号)
写文本行 (文件号, 数组 [i])
写文本行 (返回文件号, 数组 [i])


计次循环尾 ()
局哈希.取所有值 (文件号组)
计次循环首 (取数组成员数 (文件号组), i)
关闭文件 (文件号组 [i])
计次循环尾 ()
局哈希.清空 ()

i支持库列表	支持库注释
commobj	通用对象支持库

文本文件分类 (“C:\ABC.txt”, “[测试]”, “----”)<br /> .版本 2<br /> .支持库 commobj<br /> <br /> .子程序 文本文件分类, , 公开, 通过前几个字符特征进行文本分类<br /> .参数 文件路径, 文本型<br /> .参数 左边特征, 文本型, 可空<br /> .参数 右边特征, 文本型, 可空<br /> .局部变量 文件号, 整数型<br /> .局部变量 局哈希, 哈希表_ASM<br /> .局部变量 输入, 快速文本对象<br /> .局部变量 i, 整数型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 特征文本, 文本型<br /> .局部变量 返回文件号, 整数型<br /> .局部变量 局路径, 文本型<br /> .局部变量 拓展名, 文本型<br /> .局部变量 文件号组, 整数型, , "0"<br /> <br /> <br /> 局哈希.创建 (#文本型, #整数型)<br /> 输入.从文件读 (文件路径)<br /> 数组 ＝ 输入.分割文本 (#换行符, )<br /> 局路径 ＝ 目录_取父路径 (文件路径)<br /> 拓展名 ＝ 文件_取扩展名 (文件路径)<br /> .计次循环首 (取数组成员数 (数组), i)<br />     .如果真 (数组 <i> ≠ “”)<br />         特征文本 ＝ 文本_取中间 (数组 <i>, 左边特征, 右边特征, , , , )<br />         返回文件号 ＝ 局哈希.取值 (特征文本)<br />         .如果 (返回文件号 ＝ 0)<br />             写到文件 (局路径 ＋ 特征文本 ＋ 拓展名, {  })<br />             文件号 ＝ 打开文件 (局路径 ＋ 特征文本 ＋ 拓展名, , )<br />             局哈希.添加 (特征文本, 文件号)<br />             写文本行 (文件号, 数组 <i>)<br />         .否则<br />             写文本行 (返回文件号, 数组 <i>)<br />         .如果结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 局哈希.取所有值 (文件号组)<br /> .计次循环首 (取数组成员数 (文件号组), i)<br />     关闭文件 (文件号组 <i>)<br /> .计次循环尾 ()<br /> 局哈希.清空 ()

是可可吖

解决倒是好解决，但是要速度越快越好，这...

用户341522

是可可吖 发表于 2025-3-23 17:56
解决倒是好解决，但是要速度越快越好，这...

正常也行 没那么多事

是可可吖

用户341522 发表于 2025-3-23 18:02
正常也行 没那么多事

行，那我写个例子

星马豪

建立两个数组，一个文本型，一个整数型，每次都判断名字是否在文本型数组里，不在就两个数组都加入一个新成员，如果在，就把文本型数组名字一样下标对应的整数型数组+1，就可以统计了。

aipca

看看是不是这个意思

aipca

漏了个符号，重传一下

算法艺术家

  

子程序名	返回值类型	公开	备 注
文本文件分类			通过前几个字符特征进行文本分类
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型
特征字符长度	整数型

变量名	类 型	静态	数组	备 注
文件号	整数型
局哈希	哈希表_ASM
输入	快速文本对象
i	整数型
数组	文本型		0
特征文本	文本型
返回文件号	整数型
局路径	文本型
拓展名	文本型
文件号组	整数型		0

局哈希.创建 ( #文本型, #整数型 )
输入.从文件读 (文件路径)
数组 ＝ 输入.分割文本 ( #换行符, )
局路径 ＝ 目录_取父路径 (文件路径)
拓展名 ＝ 文件_取扩展名 (文件路径)
计次循环首 (取数组成员数 (数组), i)
如果真 (数组 [i] ≠ “”)
特征文本 ＝ 取文本左边 (数组 [i], 特征字符长度)
返回文件号 ＝ 局哈希.取值 (特征文本)
如果 (返回文件号 ＝ 0)
写到文件 (局路径 ＋ 特征文本 ＋ 拓展名, {  })
文件号 ＝ 打开文件 (局路径 ＋ 特征文本 ＋ 拓展名, , )
局哈希.添加 (特征文本, 文件号)
写文本行 (文件号, 数组 [i])
写文本行 (返回文件号, 数组 [i])


计次循环尾 ()
局哈希.取所有值 (文件号组)
计次循环首 (取数组成员数 (文件号组), i)
关闭文件 (文件号组 [i])
计次循环尾 ()
局哈希.清空 ()

i支持库列表	支持库注释
commobj	通用对象支持库

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 文本文件分类, , 公开, 通过前几个字符特征进行文本分类<br /> .参数 文件路径, 文本型<br /> .参数 特征字符长度, 整数型<br /> .局部变量 文件号, 整数型<br /> .局部变量 局哈希, 哈希表_ASM<br /> .局部变量 输入, 快速文本对象<br /> .局部变量 i, 整数型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 特征文本, 文本型<br /> .局部变量 返回文件号, 整数型<br /> .局部变量 局路径, 文本型<br /> .局部变量 拓展名, 文本型<br /> .局部变量 文件号组, 整数型, , "0"<br /> <br /> 局哈希.创建 (#文本型, #整数型)<br /> 输入.从文件读 (文件路径)<br /> 数组 ＝ 输入.分割文本 (#换行符, )<br /> 局路径 ＝ 目录_取父路径 (文件路径)<br /> 拓展名 ＝ 文件_取扩展名 (文件路径)<br /> .计次循环首 (取数组成员数 (数组), i)<br />     .如果真 (数组 <i> ≠ “”)<br />         特征文本 ＝ 取文本左边 (数组 <i>, 特征字符长度)<br />         返回文件号 ＝ 局哈希.取值 (特征文本)<br />         .如果 (返回文件号 ＝ 0)<br />             写到文件 (局路径 ＋ 特征文本 ＋ 拓展名, {  })<br />             文件号 ＝ 打开文件 (局路径 ＋ 特征文本 ＋ 拓展名, , )<br />             局哈希.添加 (特征文本, 文件号)<br />             写文本行 (文件号, 数组 <i>)<br />         .否则<br />             写文本行 (返回文件号, 数组 <i>)<br />         .如果结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 局哈希.取所有值 (文件号组)<br /> .计次循环首 (取数组成员数 (文件号组), i)<br />     关闭文件 (文件号组 <i>)<br /> .计次循环尾 ()<br /> 局哈希.清空 ()

补充内容 (2025-3-23 18:53):
文本文件分类 (文件路径, 13)

用户341522

aipca 发表于 2025-3-23 18:40
漏了个符号，重传一下

是这个意思 就是 用组件 数据太多也很卡的呀 但是也要谢谢你了