*****************
      * 将TXT文档内容，按需要转换DBF的教师任课安排表中
      * 2025-4-2星期三
      *****************
      CLEAR ALL
      SET TALK OFF
      SET SAFETY OFF
      PUBLIC k1,k2,nn,zfcall,i,zfc,cnj,cbj,cxk,xm
      CLOSE DATABASES
      CREATE TABLE njbj(nj c(6),bj c(7))
      FOR i=1 to 6
        FOR j=1 to 6
          SELECT njbj
          APPEND BLANK
          REPLACE bj with [（]+ALLTRIM(STR(j))+[）班]
          DO case
            CASE i=1
              REPLACE nj with [一年级]
            CASE i=2
              REPLACE nj with [二年级]
            CASE i=3
              REPLACE nj with [三年级]
            CASE i=4
              REPLACE nj with [四年级]
            CASE i=5
              REPLACE nj with [五年级]
            CASE i=6
              REPLACE nj with [六年级]      
          ENDCASE
        ENDFOR
      ENDFOR
      CLOSE DATABASES
      SELECT 0
      USE jsrkb alia bmk
      ZAP
      APPEND FROM njbj
      lcFile = FILETOSTR("课务分工.TXT")
      lnLines = ALINES(laLines, lcFile, .T., CHR(13) + CHR(10))
      FOR EACH lcLine IN laLines
         lnFields = ALINES(laFields, lcLine, .T., CHR(9))  
         IF lnFields < 3
            LOOP  && 跳过不完整行
         ENDIF
         xm = ALLTRIM(laFields[2])
         zfcall = ALLTRIM(laFields[3])
         k1=1
         nn=OCCURS([，],zfcall)
         FOR i=1 to nn
            k2=AT([，],zfcall,i)  
            zfc=SUBSTR(zfcall,k1,k2-k1)
            cnj=SUBSTR(zfc,1,6)  
            cbj=SUBSTR(zfc,7,7)   
            cxk=SUBSTR(zfc,14)   
            k1=k2+2
            SELECT bmk
            LOCATE for bmk.nj=cnj and bmk.bj=cbj
            IF FOUND()
               REPLACE &cxk. with xm
            ENDIF
         ENDFOR
      ENDFOR      
      CLOSE ALL
      SET SAFETY ON
      SET TALK ON
      MESSAGEBOX("数据转换完成！", 64, "提示：")
      QUIT

以下是引用王咸美在2025-4-2 10:28:26的发言：

谢谢你的热心指点！程序运行正常。但我想jsrkb.dbf中的字段由 课务分工.txt中的内容动态生成，如遇到“一年级（1）班语文”则生成“语文”字段，遇到“三年级（3）班美术”则生成“美术”字段，……直到所有学科的字段生成完毕，也就是说jsrkb的结构是动态生成的，字段名、字段个数由“课务分工.txt"的内容决定的。不知程序能否实现，请予指导。