精易论坛

标题: 相同整数后面的数据提取到一起 [打印本页]

---

作者: lianzhong    时间: 2025-3-16 21:46
标题: 相同整数后面的数据提取到一起
原始数据：
100-A
100-B
100-C
200-D
200-E
200-F
333-G
444-H
9999-K
9999-L
横杠前是整数后面是关联数据，把相同整数后面的关联数据提取到一行中去。
求实现以下效果：
100-ABC
200-DEF
333-G
444-H
9999-KL

---

作者: sunjie0632    时间: 2025-3-16 21:46

  

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

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

编辑框2.内容 ＝ 子程序_处理数据 (编辑框1.内容)

子程序名	返回值类型	公开	备 注
子程序_处理数据	文本型
参数名	类 型	参考	可空	数组	备 注
要处理的文本	文本型

变量名	类 型	静态	数组	备 注
文本数组	文本型		0
a	整数型
左边文本	文本型
右边文本	文本型
b	整数型
临时文本	文本型
结果文本	文本型

文本数组 ＝ 分割文本 (要处理的文本, #换行符, )
计次循环首 (取数组成员数 (文本数组), a)
左边文本 ＝ 文本_取左边 (文本数组 [a], “-”)
右边文本 ＝ “”
判断 (寻找文本 (结果文本, 左边文本, , 假) ＝ -1)
计次循环首 (取数组成员数 (文本数组), b)
判断 (左边文本 ＝ 文本_取左边 (文本数组 [b], “-”))
右边文本 ＝ 右边文本 ＋ 文本_取右边 (文本数组 [b], “-”)



计次循环尾 ()
结果文本 ＝ 结果文本 ＋ 左边文本 ＋ “-” ＋ 右边文本 ＋ #换行符



计次循环尾 ()
返回 (结果文本)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 编辑框2.内容 ＝ 子程序_处理数据 (编辑框1.内容)<br /> <br /> .子程序 子程序_处理数据, 文本型<br /> .参数 要处理的文本, 文本型<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 a, 整数型<br /> .局部变量 左边文本, 文本型<br /> .局部变量 右边文本, 文本型<br /> .局部变量 b, 整数型<br /> .局部变量 临时文本, 文本型<br /> .局部变量 结果文本, 文本型<br /> <br /> 文本数组 ＝ 分割文本 (要处理的文本, #换行符, )<br /> .计次循环首 (取数组成员数 (文本数组), a)<br />     左边文本 ＝ 文本_取左边 (文本数组 [a], “-”)<br />     右边文本 ＝ “”<br />     .判断开始 (寻找文本 (结果文本, 左边文本, , 假) ＝ -1)<br />         .计次循环首 (取数组成员数 (文本数组), b)<br />             .判断开始 (左边文本 ＝ 文本_取左边 (文本数组 <strong>, “-”))<br />                 右边文本 ＝ 右边文本 ＋ 文本_取右边 (文本数组 <strong>, “-”)<br />             .默认<br /> <br />             .判断结束<br /> <br />         .计次循环尾 ()<br />         结果文本 ＝ 结果文本 ＋ 左边文本 ＋ “-” ＋ 右边文本 ＋ #换行符<br />     .默认<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 返回 (结果文本)

---

作者: Yakusoku    时间: 2025-3-17 09:18
是这样么？

A1.e (3.84 KB, 下载次数: 1)

2025-3-17 09:17 上传

点击文件名下载附件
下载积分: 精币 -1 枚

---

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

Powered by Discuz! X3.4