精易论坛

标题: 求取出下面文本出现次数最少的 [打印本页]

---

作者: benha1    时间: 2024-1-13 00:58
标题: 求取出下面文本出现次数最少的
例子：
43,551,268|43,539,302|43,528,323|43,462,326|43,518,336|39,513,352|39,522,354|

数据是随机的，我想取出出现次数最少的数据，比如上面的我要取出 39,513,352|39,522,354  。

如果数据为：

43,551,268|43,539,302|43,528,323|43,462,326|43,518,336|39,513,352

那么我只要取出39,513,352
希望能来一份例子

---

作者: 野蛮木头    时间: 2024-1-13 04:30
.版本 2
.支持库 spec

.子程序 _临时子程序
.局部变量 返回值, 文本型, , "0"
.局部变量 参数, 文本型

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
参数 ＝ “43,551,268|43,539,302|43,528,323|43,462,326|43,518,336|39,513,352|39,522,354|”
.如果真 (取最小的 (参数, 返回值))
    调试输出 (“第一个”, 返回值)
.如果真结束
参数 ＝ “43,551,268|43,539,302|43,528,323|43,462,326|43,518,336|39,513,352”
.如果真 (取最小的 (参数, 返回值))
    调试输出 (“第两个”, 返回值)
.版本 2

.子程序 取最小的, 逻辑型, 公开
.参数 参数, 文本型
.参数 返回值, 文本型, 参考 数组
.局部变量 临时文本, 文本型
.局部变量 临时数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 数值数组, 整数型, , "0"
.局部变量 返回数组, 文本型, , "0"

临时数组 ＝ 分割文本 (参数, “|”, )
清除数组 (返回值)
.计次循环首 (取数组成员数 (临时数组), i)
    临时文本 ＝ 取文本左边 (临时数组 [i], 寻找文本 (临时数组 [i], “,”, , 假) － 1)
    加入成员 (数值数组, 到整数 (临时文本))

.计次循环尾 ()
数组排序 (数值数组, )
.如果 (取数组成员数 (数值数组) ＞ 0)
    临时文本 ＝ 到文本 (数值数组 [1])
.否则
    返回 (假)
.如果结束

.计次循环首 (取数组成员数 (临时数组), i)
    .如果真 (临时文本 ＝ 取文本左边 (临时数组 [i], 寻找文本 (临时数组 [i], “,”, , 假) － 1))
        加入成员 (返回值, 临时数组 [i])
    .如果真结束

.计次循环尾 ()
返回 (真)

---

作者: 野蛮木头    时间: 2024-1-13 04:31
[04:29:25] 开始运行被调试程序
[04:29:25] * “第一个” | 数组:2{“39,513,352”,“39,522,354”}
[04:29:25] * “第两个” | 数组:1{“39,513,352”}
[04:29:25] 被调试易程序运行完毕

---

作者: 风度猫    时间: 2024-1-13 06:44

  

变量名	类 型	静态	数组	备 注
局_文本	文本型
局_文本组	文本型		0
局_数组过滤	文本型		0
i	整数型
局_出现对比	整数型
局_结果	文本型
局_出现次数	整数型

局_文本 ＝ “43,551,268|43,539,302|43,528,323|43,462,326|43,518,336|39,513,352”
局_文本组 ＝ 分割文本 (局_文本, “|”, )
重定义数组 (局_数组过滤, 假, 0)
局_出现对比 ＝ 999999
局_结果 ＝ “”
计次循环首 (取数组下标 (局_文本组, ), i)
局_出现次数 ＝ 数组_取次数 (局_数组过滤, 文本_取左边 (局_文本组 [i], “,”))
调试输出 (局_出现次数, 文本_取左边 (局_文本组 [i], “,”))
加入成员 (局_数组过滤, 文本_取左边 (局_文本组 [i], “,”))
如果 (局_出现次数 ＜ 局_出现对比)
局_出现对比 ＝ 局_出现次数
局_结果 ＝ 局_文本组 [i]
局_出现对比 ＝ 局_出现次数

计次循环尾 ()
调试输出 (局_结果)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 局_文本, 文本型<br /> .局部变量 局_文本组, 文本型, , "0"<br /> .局部变量 局_数组过滤, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 局_出现对比, 整数型<br /> .局部变量 局_结果, 文本型<br /> .局部变量 局_出现次数, 整数型<br /> <br /> 局_文本 ＝ “43,551,268|43,539,302|43,528,323|43,462,326|43,518,336|39,513,352”<br /> 局_文本组 ＝ 分割文本 (局_文本, “|”, )<br /> 重定义数组 (局_数组过滤, 假, 0)<br /> 局_出现对比 ＝ 999999<br /> 局_结果 ＝ “”<br /> .计次循环首 (取数组下标 (局_文本组, ), i)<br />     局_出现次数 ＝ 数组_取次数 (局_数组过滤, 文本_取左边 (局_文本组 <i>, “,”))<br />     调试输出 (局_出现次数, 文本_取左边 (局_文本组 <i>, “,”))<br />     加入成员 (局_数组过滤, 文本_取左边 (局_文本组 <i>, “,”))<br />     .如果 (局_出现次数 ＜ 局_出现对比)<br />         局_出现对比 ＝ 局_出现次数<br />         局_结果 ＝ 局_文本组 <i><br />     .否则<br />         局_出现对比 ＝ 局_出现次数<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (局_结果)

---

作者: cherryy    时间: 2024-1-13 09:49
几句话就可以了，.版本 2
.支持库 spec

总文本 ＝ “43,551,268|43,539,302|43,528,323|43,462,326|43,518,336|39,513,352”
文本_分割文本排序_冒泡 (总文本, “|”, “,”, 1, 2, , 排序数组文本)
调试输出 (排序数组文本)
最少的 ＝ 排序数组文本 [1]
调试输出 (最少的)

---

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

Powered by Discuz! X3.4