答王咸美，依TXT动态生成jsrkb

      有假期时间完成调试
      SET TALK OFF
      SET SAFETY OFF
      PUBLIC k1,k2,nn,zfcall,i,zfc,cnj,cbj,cxk,xm,kmmc,bjg,bmc
      CLOSE DATABASES
      bjg= " jsrkb(nj c(6),bj c(7),"
      kmmc=[]
      lcFile = FILETOSTR("课务分工.TXT")
      lnLines = ALINES(laLines, lcFile, .T., CHR(13) + CHR(10))
      FOR EACH lcLine IN laLines
         lnFields = ALINES(laFields, lcLine, .T., CHR(9))
         zfcall = ALLTRIM(laFields[3])
         k1=1
         nn=OCCURS([，],zfcall)
         FOR i=1 to nn
            k2=AT([，],zfcall,i)     
            zfc=SUBSTR(zfcall,k1,k2-k1)
            cxk=SUBSTR(zfc,14)   
            k1=k2+2
            IF !cxk$kmmc
              kmmc=kmmc+cxk+[|]
            ENDIF  
         ENDFOR
      ENDFOR
      nn=OCCURS([|],kmmc)
      k1=1
      FOR i=1 to nn
        k2=AT([|],kmmc,i)
        bjg=bjg+SUBSTR(kmmc,k1,k2-k1)+[ c(6),]
        k1=k2+1
      ENDFOR
      bmc=STUFF(bjg,RAT(",",bjg),1,")")       &&& 将前面组建起来的字符串的最后一逗号替换为右括号。
      CREATE TABLE &bmc.                      &&& 完成“教师任课表”的创建   
      CLOSE ALL
      SET SAFETY ON
      SET TALK ON
      MESSAGEBOX("动态数据表创建完成！", 64, "提示：")
      QUIT