标题:如何做一下函数替换循环
取消只看楼主
分号
Rank: 1
等 级:新手上路
帖 子:154
专家分:0
注 册:2006-12-4
结帖率:82.35%
已结贴  问题点数:20 回复次数:12 
如何做一下函数替换循环
想把yw,sx,yy,wl,hx,sw,zz,ls,dl,zf 变成变量
把20—1追加到条件为 yw,sx,yy,wl,hx,sw,zz,ls,dl,zf=1—20名的类别为“加强”“奥赛”的数组里。

有解决办法吗?

程序代码:
REPLACE ALL ywkmjf WITH 20 FOR ywjfmc=1 AND 类别="加强"
REPLACE ALL ywkmjf WITH 19 FOR ywjfmc=2 AND 类别="加强"
REPLACE ALL ywkmjf WITH 18 FOR ywjfmc=3 AND 类别="加强"
REPLACE ALL ywkmjf WITH 17 FOR ywjfmc=4 AND 类别="加强"
REPLACE ALL ywkmjf WITH 16 FOR ywjfmc=5 AND 类别="加强"
REPLACE ALL ywkmjf WITH 15 FOR ywjfmc=6 AND 类别="加强"
REPLACE ALL ywkmjf WITH 14 FOR ywjfmc=7 AND 类别="加强"
REPLACE ALL ywkmjf WITH 13 FOR ywjfmc=8 AND 类别="加强"
REPLACE ALL ywkmjf WITH 12 FOR ywjfmc=9 AND 类别="加强"
REPLACE ALL ywkmjf WITH 11 FOR ywjfmc=10 AND 类别="加强"
REPLACE ALL ywkmjf WITH 10 FOR ywjfmc=11 AND 类别="加强"
REPLACE ALL ywkmjf WITH 09 FOR ywjfmc=12 AND 类别="加强"
REPLACE ALL ywkmjf WITH 08 FOR ywjfmc=13 AND 类别="加强"
REPLACE ALL ywkmjf WITH 07 FOR ywjfmc=14 AND 类别="加强"
REPLACE ALL ywkmjf WITH 06 FOR ywjfmc=15 AND 类别="加强"
REPLACE ALL ywkmjf WITH 05 FOR ywjfmc=16 AND 类别="加强"
REPLACE ALL ywkmjf WITH 04 FOR ywjfmc=17 AND 类别="加强"
REPLACE ALL ywkmjf WITH 03 FOR ywjfmc=18 AND 类别="加强"
REPLACE ALL ywkmjf WITH 02 FOR ywjfmc=19 AND 类别="加强"
REPLACE ALL ywkmjf WITH 01 FOR ywjfmc=20 AND 类别="加强"

REPLACE ALL ywkmjf WITH 18 FOR ywjfmc=1 AND 类别="奥赛"
REPLACE ALL ywkmjf WITH 17 FOR ywjfmc=2 AND 类别="奥赛"
REPLACE ALL ywkmjf WITH 16 FOR ywjfmc=3 AND 类别="奥赛"
REPLACE ALL ywkmjf WITH 15 FOR ywjfmc=4 AND 类别="奥赛"
REPLACE ALL ywkmjf WITH 14 FOR ywjfmc=5 AND 类别="奥赛"
REPLACE ALL ywkmjf WITH 13 FOR ywjfmc=6 AND 类别="奥赛"
REPLACE ALL ywkmjf WITH 12 FOR ywjfmc=7 AND 类别="奥赛"
REPLACE ALL ywkmjf WITH 11 FOR ywjfmc=8 AND 类别="奥赛"
REPLACE ALL ywkmjf WITH 10 FOR ywjfmc=9 AND 类别="奥赛"
REPLACE ALL ywkmjf WITH 09 FOR ywjfmc=10 AND 类别="奥赛"
REPLACE ALL ywkmjf WITH 08 FOR ywjfmc=11 AND 类别="奥赛"
REPLACE ALL ywkmjf WITH 07 FOR ywjfmc=12 AND 类别="奥赛"
REPLACE ALL ywkmjf WITH 06 FOR ywjfmc=13 AND 类别="奥赛"
REPLACE ALL ywkmjf WITH 05 FOR ywjfmc=14 AND 类别="奥赛"
REPLACE ALL ywkmjf WITH 04 FOR ywjfmc=15 AND 类别="奥赛"
REPLACE ALL ywkmjf WITH 03 FOR ywjfmc=16 AND 类别="奥赛"
REPLACE ALL ywkmjf WITH 02 FOR ywjfmc=17 AND 类别="奥赛"
REPLACE ALL ywkmjf WITH 01 FOR ywjfmc=18 AND 类别="奥赛"
搜索更多相关主题的帖子: 类别 REPLACE WITH FOR AND 
2017-10-29 10:32
分号
Rank: 1
等 级:新手上路
帖 子:154
专家分:0
注 册:2006-12-4
得分:0 
加强是20个数值倒序,名次为1-20正序
奥赛是18个数值倒叙,名次为1-18正序。
2017-10-29 10:33
分号
Rank: 1
等 级:新手上路
帖 子:154
专家分:0
注 册:2006-12-4
得分:0 
整体思路为
加强班、第一名积20分,第二名19分,依次递减至第20名,积1分。
奥赛班第一名积18分,第二名17分,依次递减至第18名,积1分。

统计出每位老师所带班级数和所带班级的积分和。

每个人的最终积分=所带班级积分和÷所带班级数。

jf.rar (12.79 KB)


2017-10-29 10:45
分号
Rank: 1
等 级:新手上路
帖 子:154
专家分:0
注 册:2006-12-4
得分:0 
ywmkjf 是语文单科积分

ywsdbjs 是语文所带班级数

ywjsjf 是语文任课老师的总积分

2017-10-29 10:46
分号
Rank: 1
等 级:新手上路
帖 子:154
专家分:0
注 册:2006-12-4
得分:0 
REPLACE ALL 语文科目积分 WITH 积分为20 FOR 语文积分名次=1名的 AND 类别="加强"

2017-10-29 10:58
分号
Rank: 1
等 级:新手上路
帖 子:154
专家分:0
注 册:2006-12-4
得分:0 
意思就是

repl all ywkmjf with ICASE(ALLTRIM(类别)=="加强",21,ALLTRIM(类别)=="奥赛",19)-1
2017-10-29 11:24
分号
Rank: 1
等 级:新手上路
帖 子:154
专家分:0
注 册:2006-12-4
得分:0 


提示错误!
2017-10-29 11:25
分号
Rank: 1
等 级:新手上路
帖 子:154
专家分:0
注 册:2006-12-4
得分:0 
貌似没变化。
2017-10-30 06:24
分号
Rank: 1
等 级:新手上路
帖 子:154
专家分:0
注 册:2006-12-4
得分:0 
repl all ywkmjf with ICASE(ALLTRIM(类别)=="加强",21,ALLTRIM(类别)=="奥赛",19)-ywjfmc FOR !Empty(ywkmjf) 这样还是没变化。
2017-10-30 06:29
分号
Rank: 1
等 级:新手上路
帖 子:154
专家分:0
注 册:2006-12-4
得分:0 
还是有问题。老提示有问题。不信你试试。
jf.zip (15.34 KB)
2017-10-30 17:38



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-481891-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.283739 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved