现有文本文件 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

CLOSE DATABASES 
USE tk
ZAP 
cStr = FILETOSTR("1.txt")
FOR i = 1 TO OCCURS( "【", cStr)
    c1 = STREXTRACT(cStr, "【", "】", i)
    nTh = VAL(CHRTRAN(GETWORDNUM(c1, 1, "-"), "第题", ""))
    cTx = GETWORDNUM(c1, 2, "-")
    cTm = STREXTRACT(cStr, "】", "知识要点", i)
    cYd = STREXTRACT(cStr, "知识要点：", "答案：", i)
    cDa = STREXTRACT(cStr, "答案：", CHR(13) + CHR(10), i)
    INSERT INTO tk VALUES (nTh, cTx, cTm, cYd, cDa)
ENDFOR 
SELECT tk
BROWSE 

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

CLOSE DATABASES 
USE tk
ZAP
cStr = FILETOSTR("1.txt")
FOR i = 1 TO OCCURS( "【", cStr)
    c1 = STREXTRACT(cStr, "【", "】", i)
    nTh = VAL(CHRTRAN(GETWORDNUM(c1, 1, "-"), "第题", ""))
    cTx = GETWORDNUM(c1, 2, "-")
    cTm = STREXTRACT(cStr, "】", "知识要点", i)
    cYd = STREXTRACT(cStr, "知识要点：", "答案：", i)
    cDa = STREXTRACT(cStr, "答案：", CHR(13) + CHR(10), i)
    IF "——" $ cYd
        cCc = STREXTRACT(cYd, "——", CHR(13) + CHR(10))
    ELSE
        cCc = ""
    ENDIF 
    INSERT INTO tk VALUES (nTh, cTx, cTm, cYd, cDa, cCc)
ENDFOR 
SELECT tk
BROWSE 

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

cYd1 = STRTRAN(cYd,"——《","出处《") && 把 “——《”替换成“出处《”
INSERT INTO tk VALUES (nTh, cTx, cTm, cYd1, cDa) && cYd1

非常感谢！！！

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

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