电脑配置

VFP9 汉化版 7423
这是一门科目的考试成绩，保存在JMSS1字段中，共有8题（各有129403条记录），以逗号分隔，成绩不但有0分、3分，还有带小数位的成绩（如1.5分），见下图

2,2,2,2,0,3,3,3 分别代表每题得到的分数。
根据这台电脑的配置情况，获取这门科目8题的有关数据耗时4秒。
要求：1、获取每题分值对应的人数，效果图如下

      2、尽最大能力缩短程序运行的时间

附上运行代码及相关数据：

t1 = SECONDS()
CLOSE DATABASES 
USE 选择\sp ALIAS aa
ln = OCCURS(",", jmss1) + 1 && 获取题目的数量
FOR lnj = 1 TO ln
    CREATE CURSOR fz (nfz n(4, 2), nsl I) && 保存分值的
    INDEX on nfz TAG fz
    SELECT VAL(GETWORDNUM(jmss1, lnj, ",")) nfz FROM aa INTO CURSOR temp
    SCAN 
        IF SEEK(temp.nfz, "fz", "fz") = .T.
            REPLACE nsl WITH nsl + 1 IN fz
        ELSE
            INSERT INTO fz VALUES (temp.nfz, 1)
        ENDIF
    ENDSCAN
ENDFOR 
MESSAGEBOX(SECONDS() - t1)
SELECT fz
BROWSE 

收到的鲜花

• schtg 于 2021-04-03 05:49 送鲜花  2朵  

如果不用临时表，用字符，时间可以缩短为3.3秒，于事无补。

有空试试

能够写出代码解决问题已经不容易了，千万不用求全自责。
说真的，程序员的工作只是使得程序顺利运行，没有时间去优化代码。

直接用group by不一样么,快不少

t1 = SECONDS()
CLOSE DATABASES 
USE sp ALIAS aa
ln = OCCURS(",", jmss1) + 1 && 获取题目的数量
FOR lnj = 1 TO ln
    temp="temp"+"_"+TRANSFORM(m.lnj)
    SELECT VAL(getwordnum(jmss1,m.lnj,",") )nfz ,COUNT(*) as nrs FROM aa INTO CURSOR (temp) GROUP BY 1
ENDFOR 
MESSAGEBOX(SECONDS() - t1)
BROWSE 

1 楼代码变更如下

T1 = SECONDS()
CLOSE DATABASES 
USE 选择\sp ALIAS aa
ln = OCCURS(",", jmss1) + 1 && 获取题目的数量
FOR lnj = 1 TO ln
    CREATE CURSOR fz (nfz n(4, 2), nsl I) && 保存分值的
    INDEX on nfz TAG fz
    SELECT aa
    SCAN 
        IF SEEK(VAL(GETWORDNUM(aa.jmss1, lnj, ",")), "fz", "fz") = .T.
            REPLACE nsl WITH nsl + 1 IN fz
        ELSE
            INSERT INTO fz VALUES (VAL(GETWORDNUM(aa.jmss1, lnj, ",")), 1)
        ENDIF
    ENDSCAN
ENDFOR 
MESSAGEBOX(SECONDS() - T1)

发本帖的原意是，在不使用SQL命令查询的前提下，VFP命令得到结果的极限运行时间。
SUBSTR()与GETWORDNUM()在截取字符串时各有优势，如果字符串中子字符串的宽度是一样的（以分隔符分隔的10000个子字符串），GETWORDNUM()截取子字符串所需时间是SUBSTR()截取子字符串所需时间的60倍(至少)；如果字符串中子字符串的宽度是不一样的(如本题中分值带有小数位)，GETWORDNUM()的优势就明显了。
如：
2,2,2,2,0,1.5,3,3
2,2,2,2,0,3,1.5,3
2,2,2,2,0,3,3,1.5
因为你不知道带小数位的分值出现在那一题中，所以用SUBSTR()截取子字符串很麻烦。

[此贴子已经被作者于2021-4-1 11:17编辑过]

谢谢瓜瓜1990

数据量不够大，效果不明显的，才10W的数据，要100W去，估计很明显；因为各人的电脑配置不相同

代码运行时间以我的电脑为准

我的晕死，190秒