说明楼主没看明白我前面的代码

    IF "——" $ cYd  && 有出处
        ccc = STREXTRACT(cYd, "——", CHR(13) + CHR(10))
    ELSE  && 无出处
        ccc = ""
    ENDIF
说明楼主不知道IF ELSE ENDIF 命令的用法，基础知识看帮助文件

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

程序运行后，知识要点与出处中的内容有重复，我想知识要点中要不含出处的内容，原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, STRTRAN(cYd, "——" + ccc, ""), cDa, cCc)
ENDFOR 
SELECT tk
BROWSE 

小小的变化就难倒了楼主，要会举一凡三

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

有长进

谢谢谬赞

高手啊，半天我都看不明白