| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2903 人关注过本帖, 1 人收藏
标题:从字符串中查找ABCD各等级个数,并记录,若无相应的等级则不显示,如下图:
只看楼主 加入收藏
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
CREATE CURSOR tt (djf C(9), djf1 C(20))
INSERT INTO tt (djf) VALUES ("BCBABBAAA")
INSERT INTO tt (djf) VALUES ("BDBBBCCBA")
INSERT INTO tt (djf) VALUES ("ABAAABAAA")
INSERT INTO tt (djf) VALUES ("ACDBBBBBA")
INSERT INTO tt (djf) VALUES ("ADBBABBAA")

REPLACE ALL DJF1 WITH iif(occurs("A", djf) > 0, str(occurs("A", djf), 1) + "A", "") + ;
  iif(occurs("B", djf) > 0, str(occurs("B", djf), 1) + "B", "") + ;
  iif(occurs("C", djf) > 0, str(occurs("C", djf), 1) + "C", "") + ;
  iif(occurs("D", djf) > 0, str(occurs("D", djf), 1) + "D", "")
BROWSE
按照TONGDENG版主的说法这叫硬编码

坚守VFP最后的阵地
2019-07-23 12:04
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
自动生成成绩等级计算公式的代码

程序代码:
CREATE CURSOR tt (djf C(10), djf1 C(20))
INSERT INTO tt (djf) VALUES ("BCBABBAAA")
INSERT INTO tt (djf) VALUES ("BDBBBCCBA")
INSERT INTO tt (djf) VALUES ("ABAAABAAA")
INSERT INTO tt (djf) VALUES ("ACDBBBBBA")
INSERT INTO tt (djf) VALUES ("ADBBABBAA")
* 成绩等级范围为:A [color=#808080]- F,对应的ANSI值为 65 - 70, 如果6个等级不够用,还可以增加[/color]
* 构造成绩等级计算公式
cStr = ""
N1 = 65
N2 = 70
FOR i = N1 TO N2
    cStr = cStr + IIF(I > N1, " + ", "") + "IIF(OCCURS('" + CHR(I) + "', djf) > 0, TRANSFORM(OCCURS('" + CHR(I) + "', djf))" + " + '" + CHR(I) + "', '')"
ENDFOR
MESSAGEBOX(cStr, 0, "生成成绩等级计算公式") && 此行代码只是显示成绩等级计算公式
REPLACE ALL DJF1 WITH &cStr
BROWSE 

坚守VFP最后的阵地
2019-07-23 12:41
yewxj
Rank: 3Rank: 3
等 级:论坛游侠
威 望:5
帖 子:157
专家分:153
注 册:2015-6-18
收藏
得分:0 
学习了
2019-07-23 14:07
快速回复:从字符串中查找ABCD各等级个数,并记录,若无相应的等级则不显示,如下 ...
数据加载中...
 
   



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

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