| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2707 人关注过本帖
标题:如何做一下函数替换循环
只看楼主 加入收藏
分号
Rank: 1
等 级:新手上路
帖 子:156
专家分:0
注 册:2006-12-4
结帖率:77.78%
收藏
已结贴  问题点数:20 回复次数:23 
如何做一下函数替换循环
想把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
等 级:新手上路
帖 子:156
专家分:0
注 册:2006-12-4
收藏
得分:0 
加强是20个数值倒序,名次为1-20正序
奥赛是18个数值倒叙,名次为1-18正序。
2017-10-29 10:33
分号
Rank: 1
等 级:新手上路
帖 子:156
专家分: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
等 级:新手上路
帖 子:156
专家分:0
注 册:2006-12-4
收藏
得分:0 
ywmkjf 是语文单科积分

ywsdbjs 是语文所带班级数

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

2017-10-29 10:46
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9805
专家分:26913
注 册:2012-2-5
收藏
得分:0 
加强班:21-名次=积分
奥赛班:19-名次=积分
用不着那么复杂的代码吧

坚守VFP最后的阵地
2017-10-29 10:55
分号
Rank: 1
等 级:新手上路
帖 子:156
专家分:0
注 册:2006-12-4
收藏
得分:0 
REPLACE ALL 语文科目积分 WITH 积分为20 FOR 语文积分名次=1名的 AND 类别="加强"

2017-10-29 10:58
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9805
专家分:26913
注 册:2012-2-5
收藏
得分:0 
你这个表结构设计有问题,不利于程序处理数据。

坚守VFP最后的阵地
2017-10-29 11:02
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9805
专家分:26913
注 册:2012-2-5
收藏
得分:0 
回复 6楼 分号
REPLACE ALL 语文科目积分 WITH 积分为20 FOR 语文积分名次=1名的 AND 类别="加强"
改为
REPLACE ALL 语文科目积分 WITH ICASE(ALLTRIM(类别)=="加强",21,ALLTRIM(类别)=="奥赛",19)-名次

坚守VFP最后的阵地
2017-10-29 11:08
分号
Rank: 1
等 级:新手上路
帖 子:156
专家分:0
注 册:2006-12-4
收藏
得分:0 
意思就是

repl all ywkmjf with ICASE(ALLTRIM(类别)=="加强",21,ALLTRIM(类别)=="奥赛",19)-1
2017-10-29 11:24
分号
Rank: 1
等 级:新手上路
帖 子:156
专家分:0
注 册:2006-12-4
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册


提示错误!
2017-10-29 11:25
快速回复:如何做一下函数替换循环
数据加载中...
 
   



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

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