把表文件jftj中的字段zifu替换代码中的zhifu='aaddcdadbbabbbc']来计算语文老师的积分（字母1-5）、数学老师的积分（字母6-10）、英语老师的积分（字母11-15）,
并分别写入jftj.dbf的yw、sx、yy字段中。
积分规则：A 10分 B 9分 C 8分 D 7分

具体代码如下：（只修改）
CLEAR
fz='a10b09c08d07'
ls='语文数学外语'

zhifu='aaddcdadbbabbbc'把这一句换成jftj.dbf中的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)
        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字段中
ENDFOR   

下列代码不知道问题出在哪里? 无法计算出yw 、sx 、yy 的积分。

CLEAR
fz='a10b09c08d07'
ls='语文数学外语'
SCAN
USE jftj IN 0 ALIAS jftj
zhifu=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)
        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)  
    DO CASE
       CASE SUBSTR(ls,((i-1)/5)*4+1,4)=“语文”
           Repl yw with str(jg,4)
       CASE SUBSTR(ls,((i-1)/5)*4+1,4)=“数学”
           Repl sx with str(jg,4)
       CASE SUBSTR(ls,((i-1)/5)*4+1,4)=“外语”
           Repl yy with str(jg,4)
     ENDCASE
ENDFOR   
ENDSCAN
BROWSE

[此贴子已经被作者于2023-5-10 18:01编辑过]

已修正，还请指教。

[此贴子已经被作者于2023-5-10 18:40编辑过]

谢谢各位！！！

[此贴子已经被作者于2023-5-11 06:04编辑过]

谢谢！说的对，学习vfp纯属个人爱好，后来发现发贴能够解决工作上的一些问题，确实高兴。