| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3354 人关注过本帖
标题:如何将题型多样的 1.txt写入表文件tk.dbf中
只看楼主 加入收藏
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用王咸美在2020-4-27 13:45:34的发言:

“知识要点”中不含 出处的内容,出处的代码怎么写?请赐教!

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

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

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


坚守VFP最后的阵地
2020-04-27 14:19
王咸美
Rank: 1
等 级:新手上路
帖 子:665
专家分:3
注 册:2018-1-4
收藏
得分:0 
程序运行后,知识要点与出处中的内容有重复,我想知识要点中要不含出处的内容,原1.txt中一一后面的 答案前的内容写到字段 “出处”里。
2020-04-27 15:21
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
程序代码:
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 


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

坚守VFP最后的阵地
2020-04-27 16:10
王咸美
Rank: 1
等 级:新手上路
帖 子:665
专家分:3
注 册:2018-1-4
收藏
得分:0 
@sdta 非常感谢指点!我也找到了解决问题的方法,不过没有你的简洁。
2020-04-27 16:57
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
看下你的方法

坚守VFP最后的阵地
2020-04-27 17:00
王咸美
Rank: 1
等 级:新手上路
帖 子:665
专家分:3
注 册:2018-1-4
收藏
得分:0 
  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)
2020-04-27 20:59
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
有长进

坚守VFP最后的阵地
2020-04-27 21:01
王咸美
Rank: 1
等 级:新手上路
帖 子:665
专家分:3
注 册:2018-1-4
收藏
得分:0 
谢谢谬赞
2020-04-27 21:14
丁春秋yxp
Rank: 5Rank: 5
等 级:贵宾
威 望:10
帖 子:251
专家分:310
注 册:2017-10-31
收藏
得分:0 
高手啊,半天我都看不明白
2020-04-29 17:21
快速回复:如何将题型多样的 1.txt写入表文件tk.dbf中
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.038484 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved