以下是引用王咸美在2023-5-9 04:27:47的发言：

@ybq1014 你好！能否将修改后的代码分享出来供学习？谢谢！

CLEAR
fz='a10b09c08d07'
ls='语文数学外语'

** zhifu='aaddcdadbbabbbc' 把这一句换成jftj.dbf中的zifu字段内容如何操作？
zhifu=jftj.zifu && jftj工作区的当前记录zifu

FOR i=1 TO 15 STEP 5
    vz = SUBSTR(zhifu,i,5)
    jg = 0
    FOR j=1 TO 12 STEP 3
        zz  = SUBSTR(fz,j,1)  && 既然已采用CHRTRAN()就无必要a,b,c,d都去算，除非都含有abcd。另用CHRTRAN()时就可以去掉已经处理过的abcd，不用每次都从头起计算，直到vz为空。
        zzz = VAL(SUBSTR(fz,j+1,2))
        jg = jg +(LEN(vz)-len(CHRTRAN(vz,zz,'')))*zzz 这一句有问题
    ENDFOR
    ?SUBSTR(ls,((i-1)/5)*4+1,4)+":"+STR(jg,4)  如何把具体积分分别写入表文件jftj.dbf的yw、sx、yy字段中
    * i=1 TO 15 STEP 5 在这算法有点复杂，是否可以改为：
    * i=0 TO 2
    * vz = SUBSTR(zhifu,i*5+1,5)
    * SUBSTRC(ls,i*2+1,2)
ENDFOR   

以下是引用王咸美在2023-5-9 14:01:28的发言：
    ?SUBSTR(ls,((i-1)/5)*4+1,4)+":"+STR(jg,4)  如何把具体积分分别写入表文件jftj.dbf的yw、sx、yy字段中