求一个超级列表框分类的源码

蓝蓝的天空X

超级列表框需要分类导入文本。文本格式如下： abcde，123米 abcde，222米 abcde，211米 fghi，12公里 fghi，2公里。 超级列表框结果生成需要生成： 名 总和 单位 abcde 556 米 fghi 14 公里 各位有没有好的思路并附上源码。非常感谢。

大司命

如果再这样改就成以下这样了~

  

变量名	类 型	静态	数组	备 注
a1	正则表达式类
a2	整数型
a3	正则表达式类
i	整数型

a1.创建 (“([^，\s]+)，([^(?:公里|米)]+)(公里|米)”, #常量1 )
计次循环首 (a1.取匹配数量 (), i)
a2 ＝ 超级列表框1.查找表项 (a1.取子匹配文本 (i, 1), , 真, 0)
如果真 (a2 ≠ -1)
如果真 (超级列表框1.取标 题 (a2, 2) ＝ a1.取子匹配文本 (i, 3))
a3.创建 (“[^\d\.]+”, a1.取子匹配文本 (i, 2))
超级列表框1.置标题 (a2, 1, 到文本 (到数值 (超级列表框1.取标 题 (a2, 1)) ＋ 到数值 (a1.取子匹配文本 (i, 2))) ＋ a3.取匹配文本 (1))
到循环尾 ()

a2 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (a2, 0, a1.取子匹配文本 (i, 1))
超级列表框1.置标题 (a2, 1, a1.取子匹配文本 (i, 2))
超级列表框1.置标题 (a2, 2, a1.取子匹配文本 (i, 3))
计次循环尾 ()

.版本 2<br /> <br /> .局部变量 a1, 正则表达式类<br /> .局部变量 a2, 整数型<br /> .局部变量 a3, 正则表达式类<br /> .局部变量 i, 整数型<br /> <br /> a1.创建 (“([^，\s]+)，([^(?:公里|米)]+)(公里|米)”, #常量1)<br /> .计次循环首 (a1.取匹配数量 (), i)<br />     a2 ＝ 超级列表框1.查找表项 (a1.取子匹配文本 (i, 1), , 真, 0)<br />     .如果真 (a2 ≠ -1)<br />         .如果真 (超级列表框1.取标 题 (a2, 2) ＝ a1.取子匹配文本 (i, 3))<br />             a3.创建 (“[^\d\.]+”, a1.取子匹配文本 (i, 2))<br />             超级列表框1.置标题 (a2, 1, 到文本 (到数值 (超级列表框1.取标 题 (a2, 1)) ＋ 到数值 (a1.取子匹配文本 (i, 2))) ＋ a3.取匹配文本 (1))<br />             到循环尾 ()<br />         .如果真结束<br /> <br />     .如果真结束<br />     a2 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (a2, 0, a1.取子匹配文本 (i, 1))<br />     超级列表框1.置标题 (a2, 1, a1.取子匹配文本 (i, 2))<br />     超级列表框1.置标题 (a2, 2, a1.取子匹配文本 (i, 3))<br /> .计次循环尾 ()

补充内容 (2018-7-13 11:51):
感觉单位应该是这样才对~

补充内容 (2018-7-13 11:55):

1. ([^，\s。\d]+)，?([^(?:公里|米|个)]+)(公里|米|个)

复制代码

补充内容 (2018-7-13 11:55):
语句再改成这个，OK了吧~

易正易则

新建 易程序.e (730.67 KB, 下载次数: 14)

2018-7-13 11:14 上传

点击文件名下载附件

大司命

  

变量名	类 型	静态	数组	备 注
a1	正则表达式类
a2	整数型
a3	整数型
i	整数型

a1.创建 (“([^，\s]+)，(\d+)([^\s。]+)”, #常量1 )
计次循环首 (a1.取匹配数量 (), i)
a3 ＝ 超级列表框1.查找表项 (a1.取子匹配文本 (i, 1), , 真, 0)
如果真 (a3 ≠ -1)
如果真 (超级列表框1.取 标 题 (a3, 2) ＝ a1.取子匹配文本 (i, 3))
超级列表框1.置标题 (a3, 1, 到文本 (到整数 (超级列表框1.取 标 题 (a3, 1)) ＋ 到整数 (a1.取子匹配文本 (i, 2))))
到循环尾 ()

a2 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (a2, 0, a1.取子匹配文本 (i, 1))
超级列表框1.置标题 (a2, 1, a1.取子匹配文本 (i, 2))
超级列表框1.置标题 (a2, 2, a1.取子匹配文本 (i, 3))
计次循环尾 ()

.版本 2<br /> <br /> .局部变量 a1, 正则表达式类<br /> .局部变量 a2, 整数型<br /> .局部变量 a3, 整数型<br /> .局部变量 i, 整数型<br /> <br /> a1.创建 (“([^，\s]+)，(\d+)([^\s。]+)”, #常量1)<br /> .计次循环首 (a1.取匹配数量 (), i)<br />     a3 ＝ 超级列表框1.查找表项 (a1.取子匹配文本 (i, 1), , 真, 0)<br />     .如果真 (a3 ≠ -1)<br />         .如果真 (超级列表框1.取 标 题 (a3, 2) ＝ a1.取子匹配文本 (i, 3))<br />             超级列表框1.置标题 (a3, 1, 到文本 (到整数 (超级列表框1.取 标 题 (a3, 1)) ＋ 到整数 (a1.取子匹配文本 (i, 2))))<br />             到循环尾 ()<br />         .如果真结束<br /> <br />     .如果真结束<br />     a2 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (a2, 0, a1.取子匹配文本 (i, 1))<br />     超级列表框1.置标题 (a2, 1, a1.取子匹配文本 (i, 2))<br />     超级列表框1.置标题 (a2, 2, a1.取子匹配文本 (i, 3))<br /> .计次循环尾 ()

补充内容 (2018-7-13 11:28):

1. ([^，\s]+)，([\d\.]+)([^\s。]+)

复制代码

补充内容 (2018-7-13 11:28):
正则语句更改~

补充内容 (2018-7-13 11:30):
╮(╯▽╰)╭ 友情提示，这里有个人~

补充内容 (2018-7-13 11:39):
到整数 改成 到数值 ~

蓝蓝的天空X

易正易则 发表于 2018-7-13 11:14

非常感谢，但是还是有点小问题，我有些数字有小数点的，这里面就不识别了。然后单位好像也没有识别进去。我给您点导入例子吧，帮忙看下问题的地方，谢谢。
1孔PVC管，0.123孔公里
1孔PVC管，0.321孔公里
2孔硅芯管，0.001沟公里
2孔硅芯管，0.111沟公里
6芯光缆，0.222皮长公里
6芯光缆，0.1234皮长公里
手孔3个
手孔1个
（最后一个手孔很特殊，没有逗号，不知道能不能识别进去，要是麻烦的话就算了，把前面问题解决一下就行，谢谢谢谢。）

蓝蓝的天空X

大司命 发表于 2018-7-13 11:22
[e=5]
.版本 2

感谢，但是好像小于0的还是不能显示数字。比如0.0001和0.00002这样的，看总和那边还是0。请问有办法解决吗？

蓝蓝的天空X

大司命 发表于 2018-7-13 11:22
[e=5]
.版本 2

对不起，不知道是不是我设置的问题，我输入以下的内容，结果总和那边都是0
1孔PVC管，0.123孔公里
1孔PVC管，0.321孔公里
2孔硅芯管，0.001沟公里
2孔硅芯管，0.111沟公里
6芯光缆，0.222皮长公里
6芯光缆，0.1234皮长公里
手孔3个
手孔1个

能否请大神贴一下exe文件或者帮忙看看是不是也有这个问题。还有手孔那个特殊情况能不能帮忙解决一下，跪谢

蓝蓝的天空X

大司命 发表于 2018-7-13 11:22
[e=5]
.版本 2

数字可以了，哇感谢。那有没有办法把手孔也显示进去。或者先把手孔都改成“手孔，”这样？

蓝蓝的天空X

大司命 发表于 2018-7-13 11:48
如果再这样改就成以下这样了~

[e=5]

好像其他都没问题拉！！感谢！手孔没逗号能不能变相解决一下，用子文本替换吗？但是我的子文本替换不会批量替换成“手孔，”，能不能帮忙瞅瞅

大司命

蓝蓝的天空X 发表于 2018-7-13 11:51
好像其他都没问题拉！！感谢！手孔没逗号能不能变相解决一下，用子文本替换吗？但是我的子文本替换不会批 ...

让你看下结果~