WORD题库转换成电子表式（选择题和判断题）

wj710000 · 发表于 2023-1-29 20:51

pc087 发表于 2023-1-21 09:44
只能再精细一下正则表达式了

大侠，我还有个题库题干不都是句号结尾的，有冒号问号等等，我自己摸索了许久转换不了，麻烦再帮看看如何处理，谢谢了！！！

07.zip (26.03 KB, 下载次数: 9)

pc087 · 发表于 2023-1-30 09:59

本帖最后由 pc087 于 2023-1-30 10:57 编辑

特别说明：
1、问题格式：是按开头是"单选题","多选题","判断题"，截取到换行符。（也就是如果不是"单选题","多选题","判断题"其中一类，就获取不到）
2、参考答案格式：是按开头是"标准答案:空格",截取到换行符。
3、备选答案格式：是按开头是"ABCD."(字母是大写),截取到换行符。
必须严格按照上述格式，否则运行就可能出错了。

wj710000 · 发表于 2023-1-30 21:49

pc087 发表于 2023-1-30 09:59
特别说明：
1、问题格式：是按开头是"单选题","多选题","判断题"，截取到换行符。（也就是如果不是"单选 ...

首先非常感谢！！！！

其次想再麻烦大侠，这段代码我一直没弄明白，能否帮注释一下?

arr = d(题型)
      arr(UBound(arr), 1) = arr(UBound(arr), 1) + 1
      r = arr(UBound(arr), 1)
      arr(r, 1) = 问题: arr(r, 2) = A(i).subMatches(0)
      If UBound(arr, 2) > 2 Then
         For x = 0 To 3
            arr(r, 3 + x) = Opts(n + x).subMatches(1)
         Next
         n = n + 4
      End If
      d(题型) = arr
Next i

xdychina1 · 发表于 2023-2-1 16:11

谢谢分享

wj710000 · 发表于 2023-2-3 22:09

再请教下：题库里选项择题如果有选项不是四个的，如何能快速找出？

朱付安 · 发表于 2023-2-6 07:01

pc087 发表于 2023-1-20 11:32
代码如下：

。。。。。。

老师，问一下，背景色和代码行号用的什么软件

pc087 · 发表于 2023-2-6 08:35

朱付安发表于 2023-2-6 07:01
老师，问一下，背景色和代码行号用的什么软件

截图效果用vscode codesnap插件实现的

		自动登录	找回密码
密码			免费注册

[求助] WORD题库转换成电子表式（选择题和判断题）