数组把文本格式化分类归类

学会就发了

调用精益模块

真冬

  

子程序名	返回值类型	公开	备 注
子程序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家门店
【深圳】（罗湖益田广场店）（宝安大悦城店）

please

感谢分享，支持开源！！！

jysoft2022

谢谢分享

学会就发了

6666666666666666666666666666

year1970

感谢分享

hnzc01

谢谢分享

hnzc01

学习了。感谢分享

1184798949

感谢分享

wgqxj

谢谢分享