精易论坛

标题: 解析实现 起始数字~结束数字 生成数列 [打印本页]

---

作者: 真冬    时间: 2021-3-7 00:47
标题: 解析实现 起始数字~结束数字 生成数列
问题来源于https://125.confly.eu.org/forum.php?mod=viewthread&tid=14669715[
原文：R1,R2-R5,R34,R40~45,R50-53  结果为：R1,R2,R3,R4,R5,R34,R40,R41,R42,R43,R44,R45,R50,R51,R52,R53
或
原文：R1,R2-R5,R34,R40~R45  结果为：R1,R2,R3,R4,R5,R34,R40,R41,R42,R43,R44,R45

解析-或~符号来生成数列，该求助帖的最佳答案我实在是看不过眼，都写的什么玩意！！就这也能给最佳？

  

子程序名	返回值类型	公开	备 注
生成数列	文本型
参数名	类 型	参考	可空	数组	备 注
原文	文本型

变量名	类 型	静态	数组	备 注
正则	正则表达式
骑士喂汁	整数型
借书喂汁	整数型
子木	文本型
i1	整数型
i2	整数型
结果	文本型
旧结果	文本型
累加	文本型

正则.创建 (“([a-zA-Z]+)([0-9]+)[-~]\1?([0-9]+)”, )
结果 ＝ 原文
循环判断首 ()
旧结果 ＝ 结果
累加 ＝ “”
子木 ＝ 正则.替换 (结果, “\1”, 1, , 假, 假)
骑士喂汁 ＝ 到整数 (正则.替换 (结果, “\2”, 1, , 假, 假))
借书喂汁 ＝ 到整数 (正则.替换 (结果, “\3”, 1, , 假, 假))
变量循环首 (骑士喂汁, 借书喂汁, 1, i2)
累加 ＝ 累加 ＋ 子木 ＋ 到文本 (i2) ＋ 选择 (借书喂汁 ＝ i2, “”, “,”)
变量循环尾 ()
结果 ＝ 正则.替换 (结果, 累加, 1, , 真, 假)
循环判断尾 (旧结果 ≠ 结果)
返回 (结果)

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

调试输出 (生成数列 (“R1,R2-R5,R34,R40~45,R50-53”))
调试输出 (生成数列 (“R1,R2-R5,R34,R40~R45”))

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

.版本 2<br /> .支持库 RegEx<br /> .支持库 spec<br /> <br /> .子程序 生成数列, 文本型<br /> .参数 原文, 文本型<br /> .局部变量 正则, 正则表达式<br /> .局部变量 骑士喂汁, 整数型<br /> .局部变量 借书喂汁, 整数型<br /> .局部变量 子木, 文本型<br /> .局部变量 i1, 整数型<br /> .局部变量 i2, 整数型<br /> .局部变量 结果, 文本型<br /> .局部变量 旧结果, 文本型<br /> .局部变量 累加, 文本型<br /> <br /> 正则.创建 (“([a-zA-Z]+)([0-9]+)[-~]\1?([0-9]+)”, )<br /> 结果 ＝ 原文<br /> .循环判断首 ()<br />     旧结果 ＝ 结果<br />     累加 ＝ “”<br />     子木 ＝ 正则.替换 (结果, “\1”, 1, , 假, 假)<br />     骑士喂汁 ＝ 到整数 (正则.替换 (结果, “\2”, 1, , 假, 假))<br />     借书喂汁 ＝ 到整数 (正则.替换 (结果, “\3”, 1, , 假, 假))<br />     .变量循环首 (骑士喂汁, 借书喂汁, 1, i2)<br />         累加 ＝ 累加 ＋ 子木 ＋ 到文本 (i2) ＋ 选择 (借书喂汁 ＝ i2, “”, “,”)<br />     .变量循环尾 ()<br />     结果 ＝ 正则.替换 (结果, 累加, 1, , 真, 假)<br /> .循环判断尾 (旧结果 ≠ 结果)<br /> 返回 (结果)<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 调试输出 (生成数列 (“R1,R2-R5,R34,R40~45,R50-53”))<br /> 调试输出 (生成数列 (“R1,R2-R5,R34,R40~R45”))

---

作者: 已注销541904    时间: 2021-3-7 06:31
提示: 作者被禁止或删除 内容自动屏蔽

---

作者: 2470899818    时间: 2021-3-7 08:09
这也太历害了，感觉今天看了又让我学会了新的知识，感谢分享！

---

作者: 天空c    时间: 2021-3-7 08:30
写的不错

---

作者: wjswzj0    时间: 2021-3-7 09:08
写的不错

---

作者: sinewtec    时间: 2021-3-7 09:11
有点意思哦

---

作者: sinewtec    时间: 2021-3-7 09:18
为啥我输出的和你不一样尼

---

作者: 真冬    时间: 2021-3-7 12:56

sinewtec 发表于 2021-3-7 09:18
为啥我输出的和你不一样尼

哪里不一样呢？图呢？

---

作者: sinewtec    时间: 2021-3-7 14:14
* “R1,R0,,R34,R40~45,R50-53”
* “R1,R0,,R34,R40~R45”
被调试易程序运行完毕
WIN10   5.92

---

作者: 真冬    时间: 2021-3-7 14:19

sinewtec 发表于 2021-3-7 14:14
* “R1,R0,,R34,R40~45,R50-53”
* “R1,R0,,R34,R40~R45”
被调试易程序运行完毕

代码呢？

---

作者: sinewtec    时间: 2021-3-7 15:57

真冬 发表于 2021-3-7 14:19
代码呢？

就你贴的代码呀

---

作者: fengyyun    时间: 2021-3-7 16:12

感谢分享！！！！！！！！！！！！！！！！！！

---

作者: 124149449    时间: 2021-3-8 01:01
  感谢发布原创作品，一定好好学习，天天向上

---

作者: 凉城o    时间: 2021-3-8 03:05
瞅瞅看

---

作者: 噢噢    时间: 2021-3-8 12:01
感谢分享！

---

作者: w157947075    时间: 2021-3-8 23:37
你的代码是有问题的，没有采取

---

作者: 真冬    时间: 2021-3-8 23:47

w157947075 发表于 2021-3-8 23:37
你的代码是有问题的，没有采取

什么问题？

---

作者: w157947075    时间: 2021-3-9 16:22

真冬 发表于 2021-3-8 23:47
什么问题？

左边二字母和三个字母，只取  了一个字母

---

作者: 2470899818    时间: 2021-3-9 18:00
这也太历害了，感觉今天看了又让我学会了新的知识，感谢分享！

---

作者: Cplusplus    时间: 2021-3-10 03:51
骑士喂汁，借书喂汁

---

作者: hhfly    时间: 2021-3-13 05:20
不错的东西 做个标记备用

---

作者: 黄和兵    时间: 2021-3-24 19:06
厉害，大师

---

作者: 黄和兵    时间: 2021-3-24 19:08
大师！请问你Q多少！！！想请你指导

---

作者: ghost12    时间: 2022-2-21 06:00
感谢分享，很给力！~

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4