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