如何将难度填写到每道题的下面？谢谢

文人慕

求助，一共有多道题目，每道题目的【难度】需要填写

ming0018

找规律，查找替换。

文人慕

ming0018 发表于 2019-12-6 14:10
找规律，查找替换。

老哥  你的回答惊讶了我   确实是找规律查找替换，可是我确实无能为力。

ming0018

文人慕 发表于 2019-12-6 14:38
老哥  你的回答惊讶了我   确实是找规律查找替换，可是我确实无能为力。

如果无规律，换谁都干不了这事啊。

kingtau

80道题，难度系数只有40个
只填前40道？

kingtau

80道题，40个答案
因题干和答案不对称，所以只填前40题
0.19秒就能达到楼主的要求。

1. Sub 难度系数()
   
2.     Dim mt, ang$, rng As Range, arr, i%, t
   
3.    Set rng = ActiveDocument.Content
   
4.    ang = ActiveDocument.Range.Text
   
5.     With CreateObject("vbscript.regexp")
   
6.         .Global = True
   
7.         .MultiLine = True
   
8.         .Pattern = "(^【难度】\d\.\d{2})(?=\r)"
   
9.                 Set arr = .Execute(rng)
   
10.         .Pattern = "^【难度】\r"
    
11.             For Each mt In .Execute(ang)
    
12.                 ang = Replace(ang, mt, arr(i) & Chr(13), , 1)
    
13.                 i = i + 1
    
14.                 If i = arr.Count Then Exit For
    
15.             Next
    
16.     End With
    
17. ActiveDocument.Range.Text = ang
    
18. End Sub

复制代码

文人慕

kingtau 发表于 2019-12-7 13:11
80道题，40个答案
因题干和答案不对称，所以只填前40题
0.19秒就能达到楼主的要求。

非常感谢你   不好意思   我是复制题目的时候多复制了一遍    应该是40个题目，40个难度系数

kingtau

楼上的代码是通过修改得来，未经整理比较乱，以这个为准

1. Sub 难度系数1()
   
2. Dim mt, rng$, arr, i%, t
   
3.     t = Timer
   
4.     rng = ActiveDocument.Content
   
5.     With CreateObject("vbscript.regexp")
   
6.         .Global = True
   
7.         .MultiLine = True
   
8.         .Pattern = "(^【难度】\d\.\d{2})(?=\r)"
   
9.                 Set arr = .Execute(rng)
   
10.         .Pattern = "^【难度】\r"
    
11.             For Each mt In .Execute(rng)
    
12.                 rng = Replace(rng, mt, arr(i) & Chr(13), , 1)
    
13.                 i = i + 1
    
14.                 If i = arr.Count Then Exit For
    
15.             Next
    
16.     End With
    
17.     ActiveDocument.Content = rng
    
18.     MsgBox Timer - t
    
19. End Sub

复制代码

ggmmlol

kingtau 发表于 2019-12-8 00:05
楼上的代码是通过修改得来，未经整理比较乱，以这个为准

在NotePad++软件中，使用正则表达式的替换功能，可以不用循环，一次就完成对应替换，而且无需专门编写代码。

查找内容：
(^【难度】$)(?=(?:.*?^【难度】){40}([^\n]+))|(?:[\r\n]+【难度】[\d.]+){40}
替换为：
$1$2

演示如下：

文人慕

kingtau 发表于 2019-12-8 00:05
楼上的代码是通过修改得来，未经整理比较乱，以这个为准

你好，非常感谢你的帮助。不过有点小问题，当难度是0.23,0,48...这些小数点后有两位的时候是可以的，但是我们的同事有时候写的是如0.6,0.3这样子一位小数的就不再可以了。请问如何修改代码呢？我们的数据里面有的是1位小数，有的是2位小数。我的代码很弱，完全搞不懂。谢谢你。