现有文本文件 1.txt，其中题型多样：既有单选题，又有多选题(选项有4个、5个、6个不等），还有判断题。如何将它们写入表文件tk.dbf中，请高手赐教，万分感谢！！！

以下代码选择项不在题目（Tmnr）下面，如何将选择项（A、B、C、D、E…)放在题目下面，请高手指教，不胜感谢！

程序代码：
*xa,……xi选项，现最多117字符，tmcc 出处，现最多74字符 tmyd要点 tmnr题目内容最大超过254只能用备注字段。
CLOSE TABLES all
CREATE CURSOR tmp (t m)
APPEND BLANK
APPEND MEMO t FROM 1.txt
hs=MEMLINES(t)
 
 
SET MEMOWIDTH TO 150
CREATE TABLE tk (tmnr m,xa c(150),xb c(150),xc c(150),xd c(150),xe c(150),xf c(150),xg c(150),xh c(150),xi c(150),xj c(150),tmcc c(100),tmyd m,tmlx c(8),tmxh i,daan c(10))
FOR i=1 TO hs
   bz=LEFTc(MLINE(tmp.t,i),20)
   DO CASE
   CASE bz='【第'
   APPEND blank
   REPLACE tmnr WITH SUBSTR(MLINE(tmp.t,i),AT('】',bz)+2),tmxh WITH VAL(SUBSTR(bz,5)),tmlx WITH SUBSTR(bz,AT('-',bz)+1,4)
   CASE BETWEEN(ASC(LEFT(bz,1)),65,75)
   zdmc='x'+LEFT(bz,1)
   REPLACE &zdmc WITH SUBSTR(MLINE(tmp.t,i),4)
   CASE bz='知识要点：'
   REPLACE tmyd WITH SUBSTR(MLINE(tmp.t,i),11)
   CASE bz='——'
   REPLACE tmcc WITH SUBSTR(MLINE(tmp.t,i),5)
   CASE bz='答案：'
   REPLACE daan WITH SUBSTR(MLINE(tmp.t,i),7)
   ENDCASE
ENDFOR

如果在表文件中加一字段：出处（就是1.txt中一一与答案之间的部分），代码应如何写？望指教！

非常感谢！！！

“知识要点”中不含 出处的内容，出处的代码怎么写？请赐教！

[此贴子已经被作者于2020-4-27 13:47编辑过]

程序运行后，知识要点与出处中的内容有重复，我想知识要点中要不含出处的内容，原1.txt中一一后面的 答案前的内容写到字段 “出处”里。

@sdta 非常感谢指点！我也找到了解决问题的方法，不过没有你的简洁。

  cYd = STREXTRACT(cStr, "知识要点：", "——", i)
  cYd1 = STREXTRACT(cStr, "知识要点：", "答案：", i)
  IF "——" $ cYd1
       cCc= STREXTRACT(cYd1,"——",CHR(13) + CHR(10))
  ELSE
      cCc=""  
  ENDIF
   cDa = STREXTRACT(cStr, "答案：", CHR(13) + CHR(10), i)
  INSERT INTO tk VALUES (nTh, cTx, cTm, cYd,cCc,cDa)