求助区-文本归类

Ruang

求助如何使用数组把文本格式化分类归类
https://bbs.ijingyi.com/forum.php?mod=viewthread&tid=14867547
(出处: 精易论坛)

  

子程序名	返回值类型	公开	备 注
功能_分类返回文本	文本型
参数名	类 型	参考	可空	数组	备 注
参_文本	文本型

变量名	类 型	静态	数组	备 注
局_品牌数组	文本型		0
局_地区数组	文本型		0
局_门店数量	整数型
局_门店	文本型
局_正则	正则表达式类
局_计次1	整数型
局_计次2	整数型
局_计次3	整数型
待返回文本	文本型

' 地区1 品牌2 门店3
局_正则.创建 (“(.*)-(.*)（(.*)）”, 参_文本, , , , )
计次循环首 (局_正则.取匹配数量 (), 局_计次1)
加入成员 (局_品牌数组, 局_正则.取子匹配文本 (局_计次1, 2, ))
计次循环尾 ()
数组_去重复 (局_品牌数组, )
计次循环首 (取数组成员数 (局_品牌数组), 局_计次1)
清除数组 (局_地区数组)
待返回文本 ＝ 待返回文本 ＋ 局_品牌数组 [局_计次1] ＋ “·”
计次循环首 (局_正则.取匹配数量 (), 局_计次2)
如果真 (局_正则.取子匹配文本 (局_计次2, 2, ) ＝ 局_品牌数组 [局_计次1])
加入成员 (局_地区数组, 局_正则.取子匹配文本 (局_计次2, 1, ))

计次循环尾 ()
数组_去重复 (局_地区数组, )
待返回文本 ＝ 待返回文本 ＋ 到文本 (取数组成员数 (局_地区数组)) ＋ “座城市·”
计次循环首 (取数组成员数 (局_地区数组), 局_计次2)
局_门店 ＝ 局_门店 ＋ “【” ＋ 局_地区数组 [局_计次2] ＋ “】·”
计次循环首 (局_正则.取匹配数量 (), 局_计次3)
如果真 (局_地区数组 [局_计次2] ＝ 局_正则.取子匹配文本 (局_计次3, 1, ) 且 局_品牌数组 [局_计次1] ＝ 局_正则.取子匹配文本 (局_计次3, 2, ))
局_门店 ＝ 局_门店 ＋ 局_正则.取子匹配文本 (局_计次3, 3, ) ＋ “·”
局_门店数量 ＝ 局_门店数量 ＋ 1
如果真 (局_正则.取匹配数量 () ＝ 局_计次3)
局_门店 ＝ 取文本左边 (局_门店, 取文本长度 (局_门店) － 2) ＋ #换行符

计次循环尾 ()
计次循环尾 ()
待返回文本 ＝ 待返回文本 ＋ 到文本 (局_门店数量) ＋ “家门店” ＋ #换行符
待返回文本 ＝ 待返回文本 ＋ 局_门店
局_门店数量 ＝ 0
局_门店 ＝ “”
计次循环尾 ()
返回 (待返回文本)

.版本 2<br /> <br /> .子程序 功能_分类返回文本, 文本型<br /> .参数 参_文本, 文本型<br /> .局部变量 局_品牌数组, 文本型, , "0"<br /> .局部变量 局_地区数组, 文本型, , "0"<br /> .局部变量 局_门店数量, 整数型<br /> .局部变量 局_门店, 文本型<br /> .局部变量 局_正则, 正则表达式类<br /> .局部变量 局_计次1, 整数型<br /> .局部变量 局_计次2, 整数型<br /> .局部变量 局_计次3, 整数型<br /> .局部变量 待返回文本, 文本型<br /> <br /> ' 地区1 品牌2 门店3<br /> 局_正则.创建 (“(.*)-(.*)（(.*)）”, 参_文本, , , , )<br /> .计次循环首 (局_正则.取匹配数量 (), 局_计次1)<br />     加入成员 (局_品牌数组, 局_正则.取子匹配文本 (局_计次1, 2, ))<br /> .计次循环尾 ()<br /> 数组_去重复 (局_品牌数组, )<br /> .计次循环首 (取数组成员数 (局_品牌数组), 局_计次1)<br />     清除数组 (局_地区数组)<br />     待返回文本 ＝ 待返回文本 ＋ 局_品牌数组 [局_计次1] ＋ “·”<br />     .计次循环首 (局_正则.取匹配数量 (), 局_计次2)<br />         .如果真 (局_正则.取子匹配文本 (局_计次2, 2, ) ＝ 局_品牌数组 [局_计次1])<br />             加入成员 (局_地区数组, 局_正则.取子匹配文本 (局_计次2, 1, ))<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     数组_去重复 (局_地区数组, )<br />     待返回文本 ＝ 待返回文本 ＋ 到文本 (取数组成员数 (局_地区数组)) ＋ “座城市·”<br />     .计次循环首 (取数组成员数 (局_地区数组), 局_计次2)<br />         局_门店 ＝ 局_门店 ＋ “【” ＋ 局_地区数组 [局_计次2] ＋ “】·”<br />         .计次循环首 (局_正则.取匹配数量 (), 局_计次3)<br />             .如果真 (局_地区数组 [局_计次2] ＝ 局_正则.取子匹配文本 (局_计次3, 1, ) 且 局_品牌数组 [局_计次1] ＝ 局_正则.取子匹配文本 (局_计次3, 2, ))<br />                 局_门店 ＝ 局_门店 ＋ 局_正则.取子匹配文本 (局_计次3, 3, ) ＋ “·”<br />                 局_门店数量 ＝ 局_门店数量 ＋ 1<br /> <br />             .如果真结束<br />             .如果真 (局_正则.取匹配数量 () ＝ 局_计次3)<br />                 局_门店 ＝ 取文本左边 (局_门店, 取文本长度 (局_门店) － 2) ＋ #换行符<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />     .计次循环尾 ()<br />     待返回文本 ＝ 待返回文本 ＋ 到文本 (局_门店数量) ＋ “家门店” ＋ #换行符<br />     待返回文本 ＝ 待返回文本 ＋ 局_门店<br />     局_门店数量 ＝ 0<br />     局_门店 ＝ “”<br /> .计次循环尾 ()<br /> 返回 (待返回文本)

按品牌、地区进行归类




[23:04:58] * Windows 10
[23:04:58] * “大渔铁板烧·2座城市·13家门店
【深圳】·万丰海岸城店·龙华天虹购物中心店·保利文化广场店·龙岗万达店·东海缤纷天地店·仁恒梦中心店·卓悦汇店·龙岗万科广场店·布吉礼信汇店·宝能中心环球汇店·喜荟城店·佳宁娜店
【珠海】·珠海万象汇店
大渔臻选·棠膳·1座城市·2家门店
【深圳】·宝安大悦城店·罗湖益田广场店
”

胖子葛格

感谢大神分享~

真冬

  

子程序名	返回值类型	公开	备 注
子程序1文本归类	文本型
参数名	类 型	参考	可空	数组	备 注
参数	文本型

变量名	类 型	静态	数组	备 注
正则	对象
来源文	文本型
旧来源文	文本型
i1	整数型
表达式	文本型		0
表达式替换	文本型		0
匹配结果	对象
一组	文本型
城市数	文本型		0
门店数	文本型		0

来源文 ＝ 参数
正则.写属性 (“Global”, 正则.写属性 (“Multiline”, 正则.创建 (“VBScript.RegExp”, )) ＝ 假)
表达式 ＝ 分割文本 (“^([^（\r\n]+)(（[^（）]+）)([\s\S]*?)^\1(（[^（）]+）)\s*,(^([^-]+-)([^（）]+).+\s*)([\s\S]*?)(^([^-\r\n]+)-(\3(（.+\s*))),^([^-【】\r\n]+)-([^（）]+)(.+\s*(?:【.+?】.+)*)”, , )
表达式替换 ＝ 分割文本 (“$1$2$4$3,$1【$6】$8$4, ”, , )
计次循环首 (取数组成员数 (表达式), i1)
正则.写属性 (“Pattern”, 表达式 [i1])
如果真 (i1 ＝ 3)  ' 统计数量
正则.写属性 (“Global”, i1 ＝ 3)
匹配结果 ＝ 正则.对象型方法 (“Execute”, 来源文)
来源文 ＝ “”
计次循环首 (匹配结果.读数值属性 (“Count”, ), i1)
一组 ＝ 匹配结果.读对象型属性 (“Item”, i1 － 1).读属性 (“Value”, ).取文本 ()
城市数 ＝ 分割文本 (一组, “【”, )
门店数 ＝ 分割文本 (一组, “（”, )
表达式替换 [i1] ＝ “$2 ” ＋ 到文本 (取数组成员数 (城市数)) ＋ “座城市 ” ＋ 到文本 (取数组成员数 (门店数) － 1) ＋ “家门店” ＋ #换行符 ＋ “【$1】$3” ＋ #换行符
来源文 ＝ 来源文 ＋ 正则.文本方法 (“Replace”, 一组, 表达式替换 [i1])
计次循环尾 ()
到循环尾 ()
循环判断首 ()
旧来源文 ＝ 来源文
来源文 ＝ 正则.文本方法 (“Replace”, 来源文, 表达式替换 [i1])
循环判断尾 (旧来源文 ≠ 来源文)
' 调试输出 (来源文)
计次循环尾 ()
' 调试输出 (来源文)
返回 (来源文)

.版本 2<br /> <br /> .子程序 子程序1文本归类, 文本型<br /> .参数 参数, 文本型<br /> .局部变量 正则, 对象<br /> .局部变量 来源文, 文本型<br /> .局部变量 旧来源文, 文本型<br /> .局部变量 i1, 整数型<br /> .局部变量 表达式, 文本型, , "0"<br /> .局部变量 表达式替换, 文本型, , "0"<br /> .局部变量 匹配结果, 对象<br /> .局部变量 一组, 文本型<br /> .局部变量 城市数, 文本型, , "0"<br /> .局部变量 门店数, 文本型, , "0"<br /> <br /> 来源文 ＝ 参数<br /> 正则.写属性 (“Global”, 正则.写属性 (“Multiline”, 正则.创建 (“VBScript.RegExp”, )) ＝ 假)<br /> 表达式 ＝ 分割文本 (“^([^（\r\n]+)(（[^（）]+）)([\s\S]*?)^\1(（[^（）]+）)\s*,(^([^-]+-)([^（）]+).+\s*)([\s\S]*?)(^([^-\r\n]+)-(\3(（.+\s*))),^([^-【】\r\n]+)-([^（）]+)(.+\s*(?:【.+?】.+)*)”, , )<br /> 表达式替换 ＝ 分割文本 (“$1$2$4$3,$1【$6】$8$4, ”, , )<br /> .计次循环首 (取数组成员数 (表达式), i1)<br />     正则.写属性 (“Pattern”, 表达式 [i1])<br />     .如果真 (i1 ＝ 3)  ' 统计数量<br />         正则.写属性 (“Global”, i1 ＝ 3)<br />         匹配结果 ＝ 正则.对象型方法 (“Execute”, 来源文)<br />         来源文 ＝ “”<br />         .计次循环首 (匹配结果.读数值属性 (“Count”, ), i1)<br />             一组 ＝ 匹配结果.读对象型属性 (“Item”, i1 － 1).读属性 (“Value”, ).取文本 ()<br />             城市数 ＝ 分割文本 (一组, “【”, )<br />             门店数 ＝ 分割文本 (一组, “（”, )<br />             表达式替换 [i1] ＝ “$2 ” ＋ 到文本 (取数组成员数 (城市数)) ＋ “座城市 ” ＋ 到文本 (取数组成员数 (门店数) － 1) ＋ “家门店” ＋ #换行符 ＋ “【$1】$3” ＋ #换行符<br />             来源文 ＝ 来源文 ＋ 正则.文本方法 (“Replace”, 一组, 表达式替换 [i1])<br />         .计次循环尾 ()<br />         到循环尾 ()<br />     .如果真结束<br />     .循环判断首 ()<br />         旧来源文 ＝ 来源文<br />         来源文 ＝ 正则.文本方法 (“Replace”, 来源文, 表达式替换 [i1])<br />     .循环判断尾 (旧来源文 ≠ 来源文)<br />     ' 调试输出 (来源文)<br /> .计次循环尾 ()<br /> ' 调试输出 (来源文)<br /> 返回 (来源文)

[JavaScript] 纯文本查看 复制代码

表达式 ＝ 分割文本 (“^([^（\r\n]+)(（[^（）]+）)([\s\S]*?)^\1(（[^（）]+）)\s*,(^([^-]+-)([^（）]+).+\s*)([\s\S]*?)(^([^-\r\n]+)-(\3(（.+\s*))),^([^-【】\r\n]+)-([^（）]+)(.+\s*(?:【.+?】.+)*)”, , )

正在编译...
正在生成主程序入口代码
程序代码编译成功
正在封装易格式目的代码
开始运行被调试程序
* “大渔铁板烧 2座城市 14家门店
【深圳】（万丰海岸城店）（佳宁娜店）（喜荟城店）（宝能中心环球汇店）（布吉礼信汇店）（龙岗万科广场店）（卓悦汇店）（仁恒梦中心店）（东海缤纷天地店）（龙岗万达店）（保利文化广场店）（龙华天虹购物中心店）
【珠海】（珠海万象汇店）（珠海万象汇店2）

大渔臻选·棠膳 1座城市 2家门店
【深圳】（罗湖益田广场店）（宝安大悦城店）

”

皮皮君

在视频解码领域少有的重要开源，感谢大佬

神一样的人猫腻

66666666666666666