是不是水土不服
两台电脑的配置那个好

用5楼的，才0.6秒

把程序放到C盘，变成144秒（C盘是固态盘，I是以前的机械盘）
把这个，去掉，就变成1.6秒，速度和写盘，有很大关系
        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
********************************


SET DEFAULT TO c:\abc
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)

向各位学习！

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

6楼的代码应该比5楼的代码运行慢

是不是说固态盘影响数据的写入

我的代码,按照要求不用任何Select ... 语句 ,另辟蹊径用了字典对象,供大家参考:

IF NOT USED('sp') THEN 
    USE "C:\sp.dbf" IN 0 EXCLUSIVE  &&  改成你的路径 
ENDIF 
LOCAL icnt as Integer ,ii as Integer 
LOCAL ckey as String ,str1 as String 
LOCAL time11 as Datetime ,time22 as Datetime 

IF  USED('result1') THEN 
    USE IN result1
ENDIF 

LOCAL  oDic As Object
oDic = CreateObject("Scripting.Dictionary")
time11 = SECONDS()
SELECT sp
GO TOP 
SCAN 
    str1 = ALLTRIM(sp.jmss1)
    icnt = ALINES(arr2,str1,1,",")
    FOR ii =1 TO icnt 
        ckey = LTRIM(STR(ii)) - "_" - arr2(ii)
        IF odic.Exists(ckey) THEN 
            odic.Item(ckey) = odic.Item(ckey) + 1
        ELSE 
            odic.Add( ckey,1) && 
        ENDIF     
    ENDFOR 

ENDSCAN 

DIMENSION arrKey(1) as String 
arrKey =odic.Keys

CREATE CURSOR result1 (第几题 c(4) , 分值 c(4),次数 i )
FOR ii = 1 TO odic.Count  && 
*!*        tmp11 = LEFT(arrKey(ii), AT('_',arrKey(ii)) -1)
*!*        tmp22 = SUBSTR(arrKey(ii), AT('_',arrKey(ii)) +1)
*!*        tmp33 = odic.Item(arrKey(ii)) 
    
    INSERT INTO result1 (第几题  , 分值 ,次数  ) ;
        VALUES ( LEFT(arrKey(ii), AT('_',arrKey(ii)) -1),  ;
                SUBSTR(arrKey(ii), AT('_',arrKey(ii)) +1), ;
                odic.Item(arrKey(ii)) )
ENDFOR 
time22 = SECONDS()
odic.RemoveAll
RELEASE oDic
SELECT result1
INDEX on 第几题 + 分值 TO 'C:\ind12'   &&  改成你的路径

BROWSE TITLE "总耗时" +  LTRIM(STR(time22 - time11 ,14,4 )) 

在我的电脑上运行结果:

收到的鲜花

• 瓜瓜1990 于 2021-04-01 20:39 送鲜花  2朵  
• schtg 于 2021-04-03 05:48 送鲜花  2朵  

我电脑WIN7 64,8G内存
但不知道，为什么这么慢
1个120G固态硬盘，做C盘，其他的是,D,E,F,G,I是机械硬盘

这个函数GETWORDNUM(jmss1, lnj, ",")没见过，有知道的吗、

对于硬件我是绝对外行