把表文件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编辑过]

SUBSTRATE() VFP中没见过这个函数

已修正，还请指教。

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

这几句改用一句应该就可以了
REPLACE (FIELD((i-1)/5+3)) WITH jg

CLOSE TABLES 
CLEAR
fz='A10B09C08D07' &&改大写，与表统一呀
ls='yw,sx,yy' &&汉字和字母无所谓，但要统一啊！
=ALINES(akm,ls,1+4,',')  &&放在数组里，很方便存取，它是内存变量呀
USE jftj IN 0
SELECT jftj
SCAN  &&就这样换
zhifu=zifu  &&把这一句换成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字段中
    REPLACE (akm[CEILING(i/5)]) WITH jg  &&就这样写入
ENDFOR   
ENDSCAN
BROWSE

可以这样修改你的程序

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

帮助人雷锋精神是伟大的．但感觉这些很基础的问题总是求助区免费问('不耻下问')不太应该吧．论坛不对回复者帮助者搞在线捐助吗？赚自己的钱让别人代干的味道，个人觉得技术点可以讨论，忙可以适当帮，无偿代写作业代写业务功能就不太好了吧．都闲着没事干?

结合上面各位朋友的代码，总结如下

CLOSE DATABASES 
USE jftj
lccj = "10,9,8,7"
ALINES(acj, lccj, ",")
SCAN 
    FOR ln1 = 1 TO LEN(ALLTRIM(zifu)) STEP 5
        lc1 = SUBSTR(ALLTRIM(zifu), ln1, 5)
        lnSum = 0
        FOR ln2 = 1 TO LEN(lc1)
            lc2 = SUBSTR(lc1, ln2, 1)
            lnSum = lnSum + VAL(acj[ASC(lc2) - 64]) && 只针对本例中的ABCD
        ENDFOR
        REPLACE (FIELD(2 + CEILING(ln1/5))) WITH lnSum
    ENDFOR
ENDSCAN
BROWSE 

高手就是这样，惜字如金！