发上来,或私发可以帮忙试一下哈
[此贴子已经被作者于2020-2-25 17:49编辑过]
[此贴子已经被作者于2020-2-25 17:49编辑过]
[此贴子已经被作者于2020-2-25 19:50编辑过]
[此贴子已经被作者于2020-2-26 11:55编辑过]
*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
[此贴子已经被作者于2020-2-26 11:46编辑过]