hgjytu 发表于 2016-4-12 13:20:48

开放式互动匹配练习（题数不受限制）

点击相关的两个文本框
点击连线，删除连线
修改文本文件修改题目和设置
通过文本输入框进入练习状态，完成后，练习结果会记录在一个文本文件内（文件名为输入的姓名）

user_hvest 发表于 2016-4-12 14:21:51

very good, l like it.

user_abomn 发表于 2016-4-12 14:23:37

正需要这样的方法，谢谢楼主提供分享！！！
我想用来作一些英文词组与其汉语释义的连线练习，但看起来文本框是交叉重叠的，楼主可否也可提供一个可以清爽观看的示例，谢谢！

wynrefer 发表于 2016-4-12 14:40:17

不明白楼上所说的“交叉重叠”，“清爽观看”是什么意思。

user_hjkjh 发表于 2016-4-12 14:43:14

很好的作品，颇值得学习。
经测试发现两个问题：１）答题完毕后输出的txt文件中，无第１页答案；２）第２页如果没有做完就结束ＰＰＴ，输出的文本中最后一题会重复显示（因第１页内容无显示，不知道是否存在同样问题）。请楼主核对，谢谢！！

user_ummyu 发表于 2016-4-12 14:59:48

已修正，新版本支持Unicode，text文件必须以Unicode格式存盘。

358606271 发表于 2016-4-12 15:13:13

将 ts=fso.opentextfile(tfile,1,true,-1) 改为
ts=fso.opentextfile(tfile,1,true,-2)则Text File可以任何格式存盘。

user_dejql 发表于 2016-4-12 15:13:17

非常感谢，修正版非常好了！！
改Unicode后，一些１６进制的代码含义搞不明白了。
另外：但从实现本效果的角度看，一些过程或代码行是不是可以去掉啊？
拓展提问：能否遍历题库文本后，获得总题数，按百分制，得出每题分值，然后根据答题判断，给出总分（在最后一页和输出文本上显示，或者每页显示该页得分再加总显示）？？
再次感谢楼主的ＶＢ牛作品，愿多向楼主学习领教，请不吝指教为盼！！！

user_ikynkpuc 发表于 2016-4-12 15:52:16

format参数取－２，是以系统缺省方式（即ＡＮＳＩ）打开，等价于０。对吧？　

ωo兠兠洧溏 发表于 2016-4-12 15:57:56

format参数取－２可打开Ansi和Unicode文件；
format参数取－0只能打开Ansi文件；
format参数取－1只能打开Unicode文件。
页: [1] 2
查看完整版本: 开放式互动匹配练习（题数不受限制）