求大神们邦看来下！正则结果如何实现，

w157947075

求大神们邦看来下！正则结果如何实现，
感谢！！
感谢！！
感谢！！

真冬

  

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

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
正则	正则表达式
原文	文本型
匹配结果1	搜索结果		0
匹配结果2	搜索结果		0
i1	整数型
i2	整数型
分割1	文本型
骑士喂汁	整数型
借书喂汁	整数型
子木	文本型
汇总1	文本型
汇总2	文本型

原文 ＝ 编辑框1.内容
正则.创建 (“[^,]+”, )
匹配结果1 ＝ 正则.搜索全部 (原文)
正则.创建 (“([A-Za-z])+([0-9]+)”, )
计次循环首 (取数组成员数 (匹配结果1), i1)
分割1 ＝ 匹配结果1 [i1].取匹配文本 (原文, )
匹配结果2 ＝ 正则.搜索全部 (分割1)
判断 (取数组成员数 (匹配结果2) ＝ 2)
骑士喂汁 ＝ 到整数 (匹配结果2 [1].取子匹配文本 (分割1, 2, ))
借书喂汁 ＝ 到整数 (匹配结果2 [2].取子匹配文本 (分割1, 2, ))
子木 ＝ 匹配结果2 [2].取子匹配文本 (分割1, 1, )
汇总1 ＝ “”
变量循环首 (骑士喂汁, 借书喂汁, 1, i2)
汇总1 ＝ 汇总1 ＋ “,” ＋ 子木 ＋ 到文本 (i2)
变量循环尾 ()
汇总2 ＝ 汇总2 ＋ 汇总1
判断 (取数组成员数 (匹配结果2) ＝ 1)
汇总2 ＝ 汇总2 ＋ “,” ＋ 匹配结果2 [1].取匹配文本 (分割1, )



计次循环尾 ()
汇总2 ＝ 取文本右边 (汇总2, 取文本长度 (汇总2) － 1)
调试输出 (汇总2)
编辑框5.内容 ＝ 汇总2

i支持库列表	支持库注释
RegEx	正则表达式支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 RegEx<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 正则, 正则表达式<br /> .局部变量 原文, 文本型<br /> .局部变量 匹配结果1, 搜索结果, , "0"<br /> .局部变量 匹配结果2, 搜索结果, , "0"<br /> .局部变量 i1, 整数型<br /> .局部变量 i2, 整数型<br /> .局部变量 分割1, 文本型<br /> .局部变量 骑士喂汁, 整数型<br /> .局部变量 借书喂汁, 整数型<br /> .局部变量 子木, 文本型<br /> .局部变量 汇总1, 文本型<br /> .局部变量 汇总2, 文本型<br /> <br /> 原文 ＝ 编辑框1.内容<br /> 正则.创建 (“[^,]+”, )<br /> 匹配结果1 ＝ 正则.搜索全部 (原文)<br /> 正则.创建 (“([A-Za-z])+([0-9]+)”, )<br /> .计次循环首 (取数组成员数 (匹配结果1), i1)<br />     分割1 ＝ 匹配结果1 [i1].取匹配文本 (原文, )<br />     匹配结果2 ＝ 正则.搜索全部 (分割1)<br />     .判断开始 (取数组成员数 (匹配结果2) ＝ 2)<br />         骑士喂汁 ＝ 到整数 (匹配结果2 [1].取子匹配文本 (分割1, 2, ))<br />         借书喂汁 ＝ 到整数 (匹配结果2 [2].取子匹配文本 (分割1, 2, ))<br />         子木 ＝ 匹配结果2 [2].取子匹配文本 (分割1, 1, )<br />         汇总1 ＝ “”<br />         .变量循环首 (骑士喂汁, 借书喂汁, 1, i2)<br />             汇总1 ＝ 汇总1 ＋ “,” ＋ 子木 ＋ 到文本 (i2)<br />         .变量循环尾 ()<br />         汇总2 ＝ 汇总2 ＋ 汇总1<br />     .判断 (取数组成员数 (匹配结果2) ＝ 1)<br />         汇总2 ＝ 汇总2 ＋ “,” ＋ 匹配结果2 [1].取匹配文本 (分割1, )<br />     .默认<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 汇总2 ＝ 取文本右边 (汇总2, 取文本长度 (汇总2) － 1)<br /> 调试输出 (汇总2)<br /> 编辑框5.内容 ＝ 汇总2

真冬

你先告诉我 R3,R4,R5,R41,R42,R43,R44 这几个是怎么来的

Loserecall

山石

真冬 发表于 2021-3-6 23:15
你先告诉我 R3,R4,R5,R41,R42,R43,R44 这几个是怎么来的

他是让你把 R40~R45 变成 R40,R41,R42,R43,R44,R45。呵呵

山石

正则匹配用 逗号分开就行，  然后寻找 ~。判断前后的差几个，补写出来。

guowei0422

只正则好像做不到，别的方法试下

zainex

正则可以用来分词，然后按照自己的规则来计算。望采纳

  

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

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

变量名	类 型	静态	数组	备 注
正则	正则表达式
搜索结果	搜索结果		0
数	整数型
临时	文本型
前一个	文本型
区间	整数型
开始	整数型
结束	整数型
结果	整数型		0
结果文本	文本型

正则.创建 (“(R[0-9]+)|(\,)|(\~)|(\-)”, )
搜索结果 ＝ 正则.搜索全部 (文本)
计次循环首 (取数组成员数 (搜索结果), 数)
临时 ＝ 搜索结果 [数].取匹配文本 (文本, )
如果真 (临时 ≠ “,” 且 临时 ≠ “~” 且 临时 ≠ “-”)
如果 (区间 ＝ 0)
加入成员 (结果, 到整数 (取文本右边 (临时, 取文本长度 (临时) － 1)))
开始 ＝ 到整数 (取文本右边 (前一个, 取文本长度 (前一个) － 1))
结束 ＝ 到整数 (取文本右边 (临时, 取文本长度 (临时) － 1))
判断循环首 (开始 ＜ 结束)
开始 ＝ 开始 ＋ 1
加入成员 (结果, 开始)
判断循环尾 ()

如果 (临时 ≠ “,”)
如果 (临时 ≠ “~” 且 临时 ≠ “-”)
前一个 ＝ 临时
区间 ＝ 1

区间 ＝ 0

计次循环尾 ()
计次循环首 (取数组成员数 (结果), 数)
如果真 (数 ≠ 1)
结果文本 ＝ 结果文本 ＋ “,”
结果文本 ＝ 结果文本 ＋ “R” ＋ 到文本 (结果 [数])
计次循环尾 ()
返回 (结果文本)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

编辑框5.内容 ＝ 取匹配文本 (编辑框1.内容)

i支持库列表	支持库注释
RegEx	正则表达式支持库

.版本 2<br /> .支持库 RegEx<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 取匹配文本, 文本型<br /> .参数 文本, 文本型<br /> .局部变量 正则, 正则表达式<br /> .局部变量 搜索结果, 搜索结果, , "0"<br /> .局部变量 数, 整数型<br /> .局部变量 临时, 文本型<br /> .局部变量 前一个, 文本型<br /> .局部变量 区间, 整数型<br /> .局部变量 开始, 整数型<br /> .局部变量 结束, 整数型<br /> .局部变量 结果, 整数型, , "0"<br /> .局部变量 结果文本, 文本型<br /> <br /> 正则.创建 (“(R[0-9]+)|(\,)|(\~)|(\-)”, )<br /> 搜索结果 ＝ 正则.搜索全部 (文本)<br /> .计次循环首 (取数组成员数 (搜索结果), 数)<br />     临时 ＝ 搜索结果 [数].取匹配文本 (文本, )<br />     .如果真 (临时 ≠ “,” 且 临时 ≠ “~” 且 临时 ≠ “-”)<br />         .如果 (区间 ＝ 0)<br />             加入成员 (结果, 到整数 (取文本右边 (临时, 取文本长度 (临时) － 1)))<br />         .否则<br />             开始 ＝ 到整数 (取文本右边 (前一个, 取文本长度 (前一个) － 1))<br />             结束 ＝ 到整数 (取文本右边 (临时, 取文本长度 (临时) － 1))<br />             .判断循环首 (开始 ＜ 结束)<br />                 开始 ＝ 开始 ＋ 1<br />                 加入成员 (结果, 开始)<br />             .判断循环尾 ()<br />         .如果结束<br /> <br />     .如果真结束<br />     .如果 (临时 ≠ “,”)<br />         .如果 (临时 ≠ “~” 且 临时 ≠ “-”)<br />             前一个 ＝ 临时<br />         .否则<br />             区间 ＝ 1<br />         .如果结束<br /> <br />     .否则<br />         区间 ＝ 0<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (结果), 数)<br />     .如果真 (数 ≠ 1)<br />         结果文本 ＝ 结果文本 ＋ “,”<br />     .如果真结束<br />     结果文本 ＝ 结果文本 ＋ “R” ＋ 到文本 (结果 [数])<br /> .计次循环尾 ()<br /> 返回 (结果文本)<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 编辑框5.内容 ＝ 取匹配文本 (编辑框1.内容)

w157947075

真冬 发表于 2021-3-6 23:29
[e=0]
.版本 2
.支持库 RegEx

不好意思，我的原文搞错了一个地方
R1,R2-R5,R34,R40~R45,R50-53
感谢

w157947075

不好意思，原文要改一下。R1,R2-R5,R34,R40~45,R50-53  结果为：R1,R2,R3,R4,R5,R34,R40,R41,R42,R43,R44,R45,R50,R51,R52,R53