标题:TXT转换为DBF后续问题
只看楼主
zq5d
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2020-2-10
结帖率:100%
已结贴  问题点数:20 回复次数:12 
TXT转换为DBF后续问题
我把一个WORD题库转换
为TXT文档后,打开一张之前使用的数据表,使用append from 1.txt type sdf后,所有的内容都堆齐在一个字段内,请教下如何把其中某些内容放到其它字段。
比如我txt导入后试卷就在A字段(每行分别有题目,有选项A,B,C,D,E,F和答案),要怎么把题目,选项A,选项B,分别放到其它字段中。

[此贴子已经被作者于2020-2-25 22:56编辑过]

搜索更多相关主题的帖子: TXT 字段 选项 转换 DBF 
2020-02-25 15:48
schtg
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:https://t.me/pump_upp
等 级:贵宾
威 望:67
帖 子:1355
专家分:2534
注 册:2012-2-29
得分:4 
已经在一个字段中,可以再分哈。
发上来,或私发可以帮忙试一下哈

[此贴子已经被作者于2020-2-25 17:49编辑过]

2020-02-25 17:48
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:4 
看似要解释一段文本写入一个记录
2020-02-25 18:46
xuminxz
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:40
帖 子:749
专家分:2475
注 册:2011-5-8
得分:4 
如果能保证每题行数一样可以根据MOD(recn(),9)的值,将题目、选项、要点、答案分别写到另一个表的不同字段,当MOD(recn(),9)=1时增加一条记录
也可建立一个表,把试卷放入备注字段。
wd表Bz字段为试卷
select tk
for i=1 to MEMLINES(bz)
    nr=MLINE(wd.bz,i)
    do case
    case nr='【'
    APPEND BLANK
    repl tm with nr
    case nr='A、'
    repl xxA with nr
    case nr='B'
    repl xxBwith nr
    case nr='C
    repl xxC with nr
    case nr='D、'
    repl xxD with nr
    case nr='知识要点'
    repl zsyd with nr
    case nr='---'
    repl laiy with nr
    endcase
endfor

[此贴子已经被作者于2020-2-25 19:50编辑过]


dBase有人接盘了。
2020-02-25 19:36
瓜瓜1990
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:18
帖 子:125
专家分:699
注 册:2020-2-25
得分:4 
回复 4楼 xuminxz

piu~piu~
2020-02-25 21:02
zq5d
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2020-2-10
得分:0 
回复 2楼 schtg
test.rar (48.17 KB)
这是附件。
2020-02-25 21:20
zq5d
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2020-2-10
得分:0 
回复 4楼 xuminxz
运行后,感觉没反应。
test.rar (48.17 KB)
这是附件,麻烦帮忙分析下,谢谢
2020-02-25 21:31
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:4 
请教下如何把其中某些内容放到其它字段
要把问题说清楚,不要让大家猜谜

坚守VFP最后的阵地
2020-02-25 21:41
schtg
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:https://t.me/pump_upp
等 级:贵宾
威 望:67
帖 子:1355
专家分:2534
注 册:2012-2-29
得分:0 
回复 6楼 zq5d
转换比较麻烦,看一下对否?



[此贴子已经被作者于2020-2-26 11:55编辑过]

2020-02-26 11:21
xuminxz
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:40
帖 子:749
专家分:2475
注 册:2011-5-8
得分:0 
程序代码:
*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编辑过]


dBase有人接盘了。
2020-02-26 11:44



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-499395-1-1.html




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

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