请问这个怎么实现
每一行是一个班级zifu中1-5字母是语文老师各项得分
6-10字母是数学老师各项得分
11-15字母是外语老师得分
统计出各位老师的得分A10分 B9分 C8分 D7分

麻烦老师出手相助谢谢！

用 Substr() 函数，，，

Select *,Len(Chrtran(zifu," ",""))-Len(Chrtran(zifu,"A ","")) As A,;
  LEN(Chrtran(zifu," ",""))-Len(Chrtran(zifu,"B ","")) As B,;
  LEN(Chrtran(zifu," ",""))-Len(Chrtran(zifu,"C ","")) As C,;
  LEN(Chrtran(zifu," ",""))-Len(Chrtran(zifu,"D ","")) As D;
  FROM 表

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

zhifu='aaddcdadbbabbbc'

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)  
ENDFOR  

Select Cast(banji as N(10)) as banji, zifu from 源表 into cursor temp
Copy To temp.txt sdf
Use in Select('源表')
Use in Select('temp')

*-- 拆分成1+15个字段
cFlds = 'banji N(10)'
For i = 1 to 15
    cFlds = cFlds + Textmerge(',f<<i>> C(1)')
EndFor
Create Cursor temp (&cFlds)
Append From temp.txt sdf
Erase temp.txt

cSql = ''
For i = 1 to 3
    cName = ICase(i==1, '语文', i==2, '数学', '外语') + '老师'
    For j = 1 to 5
        If i == 1 and j == 1
            c1 = ''
        Else
            c1 = ' union all'
        EndIf
        Text to c1 Noshow textmerge pretext 1+2+4+8
            <<c1>> select '<<cName>>' 老师,f<<j+(i-1)*5>> 分数,count(*) 个数 from temp group by 老师,分数
        EndText
        cSql = cSql + c1
    EndFor
EndFor
Text to cSql Noshow textmerge pretext 1+2+4+8
    Select 老师,分数,Sum(个数) 个数 from (<<cSql>>) a group by 老师,分数
EndText
&cSql

[此贴子已经被作者于2019-1-23 23:33编辑过]

? occurs('A','ABCDBACDAAABADC')

  CLOSE DATABASES
  
  SELECT 0
  USE pjtj alia kg
  SCAN
    _yw=SUBSTR(kg.zifu,1,5)
    _sx=SUBSTR(kg.zifu,6,5)
    _yy=SUBSTR(kg.zifu,11,5)
    REPLACE yw with OCCURS('A',_yw)*10+OCCURS('B',_yw)*9+OCCURS('C',_yw)*8+OCCURS('D',_yw)*7
    REPLACE sx with OCCURS('A',_sx)*10+OCCURS('B',_sx)*9+OCCURS('C',_sx)*8+OCCURS('D',_sx)*7
    REPLACE yy with OCCURS('A',_yy)*10+OCCURS('B',_yy)*9+OCCURS('C',_yy)*8+OCCURS('D',_yy)*7   
    SELECT kg
  ENDSCAN

表中加三个字段：yw（语文） sx（数学） yy（英语）

非常感谢各位老师的热心帮助，问题解决了。再次感谢，谢谢！