正则表达式求助

nssn

1. 计算机网络通信的一个显著特点是( B )。
           (A)稳定性            (B)间歇性、突发性
           (C)安全性            (D)易用性
2. 计算机网络中信息传递的调度控制技术可分为三类，以下不属于此控制技术的是( C )。
           (A)流量控制    (B)拥塞控制    (C)防止死锁    (D)时延控制
3. 按照网络的覆盖范围进行网络分类可以将网络分为( A )。
           (A)广域网、城域网和局域网
           (B)内联网、外联网和国际互联网
           (C)公用网和专用网
           (D)公用数据网、数字数据网和综合业务数据网

将上面的内容通过正则转变为下面的内容，如有可能，请将正则分解讲解一下，感谢

1. 计算机网络通信的一个显著特点是( (B)间歇性、突发性 )。
2. 计算机网络中信息传递的调度控制技术可分为三类，以下不属于此控制技术的是( (C)防止死锁  )。
3. 按照网络的覆盖范围进行网络分类可以将网络分为( (A)广域网、城域网和局域网)。

详细文件在附件里，再次感谢

wdpfox

这个应该可以实现，我前几天求助过类似的问题，期待高手老师们解答！

duquancai

这个问题我曾经做过，是回复别人的帖子，论坛找一找！这问题耗时间也耗精力，已经超出学习的范围了。

ggmmlol

选择题及答案.rar (45.8 KB, 下载次数: 11)

2021-4-5 14:49 上传

点击文件名下载附件

sylun

也尝试用正则写了一下代码，只是原文档题目欠规范，如题干与选项在同一段落、选项字母为小写、全半角括号和点号用法不统一、选项间的间隔字符欠缺、空格用法太随意等，导致增加处理难度，甚至可能出现偏差与缺失。应该有更好的匹配模式。

1. Sub test()
   
2.     Dim RegExp, data$
   
3.     Application.ScreenUpdating = False
   
4.     With ActiveDocument
   
5.         .Content.InsertAfter vbCrLf & "1. "
   
6.         data = .Content.Text
   
7.         .Undo
   
8.     End With
   
9.     Set RegExp = CreateObject("VBScript.RegExp")
   
10.     With RegExp
    
11.         .Global = True
    
12.         .MultiLine = True
    
13.         .Pattern = "^(\d+)[．\.]\s*([^\r]+?)[\(（]\s*([A-D])\s*[\)）]([^\r]*\r).*?[\(（](\3)[\)）]\s*([^\r]+?)[\r\s\t].*?(?=^\d+[．\.])"
    
14.         data = .Replace(data, "$1. $2（($5)$6）$4")  '规范生成的题目编号及答案中的括号字符格式
    
15.     End With
    
16.     With Documents.Add(ActiveDocument.FullName).Content
    
17.         .Text = data
    
18.         .Paragraphs.Last.Previous.Range.Delete
    
19.     End With
    
20.     Application.ScreenUpdating = True
    
21.     MsgBox "处理结果见新文档", vbInformation
    
22. End Sub

复制代码