哪位大神懂传世的帮忙看一下呗?

jack2023 · 发表于 2023-4-14 18:07:20

哪位大神懂这个帮忙写个例子，谢谢了.

vaiyaer · 发表于 2023-4-14 18:07:21

.版本 2

.子程序保存多余物品, 逻辑型
.参数物品名称, 文本型
.参数物品位置, 整数型
.局部变量 i, 整数型
.局部变量临时数据, 多余物品

.如果真 (_启动窗口.选择_保存物品1.选中＝真)
.如果真 (物品位置＝ 1)
      清除数组 (保存物品数)
.如果真结束
.如果真 (文本_寻找文本 (_启动窗口.配置_保存物品1.内容＋ #换行符, #换行符＋物品名称＋ #换行符, , ) ≠ -1)
      .判断开始 (取数组成员数 (保存物品数) ＝ 0)
         临时数据.名称＝物品名称
         临时数据.数量＝ 1
         加入成员 (保存物品数, 临时数据)
      .默认
         .计次循环首 (取数组成员数 (保存物品数), i)
            .判断开始 (保存物品数 [i].名称＝物品名称)
                  保存物品数 [i].数量＝保存物品数 [i].数量＋ 1
            .判断 (取数组成员数 (保存物品数) ≤ i)
                  临时数据.名称＝物品名称
                  临时数据.数量＝ 1
                  加入成员 (保存物品数, 临时数据)
            .默认

            .判断结束
            .如果真 (保存物品数 [i].数量＞到整数 (_启动窗口.配置_保存物品数.内容))
                  使用物品CALL (物品位置－ 1)
                  返回 (真)
            .如果真结束

         .计次循环尾 ()
      .判断结束

.如果真结束

.如果真结束
返回 (假)