注册 登录
编程论坛 VFP论坛

如何将试卷试题导入STK.dbf中

王咸美 发布于 2024-04-26 09:19, 287 次点击
STK.dbf结构如下:
课程代码  C(6)
题型     C(10)
分值     N(2)
难易度   C(4)
试题     M
答案     M

【说明】试题类型为:多项选择题、简答题等
由于电脑故障,是在手机上操作,故呈上word文档政治试卷.doc部分内容。如何将试卷试题导入STK.dbf中?请高手赐教,万分感谢!!!

【附件】政治试卷.doc(部分)
第一部分 选择题

二、多项选择题(在每小题的五个备选答案中,选出二至五个正确的答案,并将正确答案的序号分别填在题干的小括号内,多选、少选、错选均不得分,每小题2分)

1、唯物主义的发展经历了以下历史形态[    ]

A、辩证唯物主义的历史唯物主义

B、古代朴素辩证法

C、近代庸俗唯物主义

D、近代形而上学唯物主义

E、古代朴素唯物主义

2、下列那些说法表示了时间的一维性 [    ]

A、时乎时乎不再来

B、子在川上曰,逝者如斯夫

C、盛年不重来,一日难在晨

D、失落寸金容易找,失落光阴无处寻

E、机不可失,时不再来

3、主观唯心主义把世界的本源归结为 [    ]

A、理 B、绝对 C、感受 D、心 E、上帝

第二部分 非选择题

三、简答题 (本大题共4小题,其中1、2题每题7分,3、4题每题6分,共26分)
1、 实践及其特点是什么?

2、 两点论和一点论、均衡论的区别是什么?


[答案]

课程代码:0001

二、多项选择题 (多选、少选、错选均不给分,每小题2分,共20分)

1、ADE 2、ABCDE 3、CD

三、简答题(第1、2小题每题7分,3、4小题每题6分,共26分)

1、(1) 实践是人们能动地改造和探索现实世界的客观物质活动。

(2)实践是客观的活动,具有客观性。

(3)实践是能动的活动,具有能动性。

(4)实践是社会历史活动,具有社会历史性。

2、 (1)两点论就是要全面地看问题,既要看到主要矛盾的子盾的主要方面,又要看到非主要矛盾和矛盾的非主要方面。一点论就是片面地看问题,只看到一个方面而看不到另一个方面。

(2)重点论就是要突出重点,在看到两个方面的时候,必须分清主次,抓住主要子盾和矛盾的主要方面。均衡论就是不分主次,把两个方面等量齐观。

(3)唯物辩证法坚持两点论和重点论的统一,反对一点论和均衡论的形而上学观点。
11 回复
#2
fyyylyl2024-04-26 10:54
“难易度”取自哪儿?;是否应加一“试题编号”字段?
如果WORD文档为纯文字,可否将其内容存入一备注字段,再利用相关函数、命令分段取字符写入STK.DBF?
#3
sdta2024-04-26 11:08
问题还是没有说清楚
1 按大题编号(第一部分 选择题、第二部分 非选择题)导入VFP中,
2 按(二、多项选择题,三、简答题)导入VFP中
3 按小题编号:1,2,3导入VFP中

题目中的分值与答案中的分值不一样
二、多项选择题(在每小题的五个备选答案中,选出二至五个正确的答案,并将正确答案的序号分别填在题干的小括号内,多选、少选、错选均不得分,每小题2分)
二、多项选择题 (多选、少选、错选均不给分,每小题2分,共20分),一共3小题,那来的20分

#4
王咸美2024-04-26 11:22
选择了部分试题,将每一个小题导入表中,难易度没有可勿略,第一部分 选择题,第二部分 非选择题 这两行可删除。
#5
王咸美2024-04-26 11:43
[说明]
1、按小题顺序依次导入STK.dbf中
2、题型按大题录入,如多项选择题、简答题
3、字段:难易度 不考虑

[此贴子已经被作者于2024-4-26 18:15编辑过]

#6
my23182024-04-26 19:31
试卷必须标准后才能自动处理,否则实现起来比较麻烦。
#7
王咸美2024-04-26 19:33
利用word查找定位功能将试题导入STK.dbf中,是关键,也是难点!
#8
sdta2024-04-26 19:44
以下是引用王咸美在2024-4-26 19:33:09的发言:

利用word查找定位功能将试题导入STK.dbf中,是关键,也是难点!

不管是何文本,最后的数据处理还是要用VFP的相应功能来处理。
#9
王咸美2024-04-26 19:53
对!
#10
王咸美2024-04-26 20:03
应将第一部分 选择题 第二部分 非选择题 这两行删去
二、三为题型标识符
1、2、3为题目标识符
[答案]为答案标识符
#11
王咸美2024-04-27 12:13
恳请高手赐教,万分感谢!!!

#12
王咸美2024-04-29 08:01
学习网上写的几句代码,下面不知如何写,请高手赐教!万分感谢!!!

word file=GETFILE(’word文档:doc’,’试卷’,’选择’,0,’请选择政治试卷’)
wap=CreateObject(“word.application”)
wdocument=wap.documents.open(wordfile)
Myrange=Wdocument. Range
Myrange. Find.ClearFormatting
Myrange.Find.MatchWildcards=.T.
 Myrange.Find.Execute[^13^l^m][答案][^13^l^m]
IF Myrange.Find. Found
&&如果查找到了
DA_B=Myrange. Start
&&记录答案分界符的开始位置
ENDIF
1