利用正则表达式，替换括号里面的内容到书名号（如何避免其他符号干扰）

lele400024

因为在实际学习中遇到一个问题，特此求助，希望能得到各位老师的帮助。

【只是表述为什么产生这个需求，跟解决这个问题没有太大关系，可以不看。】从幕布软件导出到opml，转换成了csv格式后，一些代码放进去了，为了导入到Anki中，用了之前开发人员的模板；但因为不懂编程，想通过excel方式，自定义自己想要输入的字段。
文件如下：
替换括号里面的内容到书名号.rar (9.4 KB, 下载次数: 13)

2020-3-16 22:00 上传

点击文件名下载附件

希望能把括号里面的文字（如果括号不能实现，也可以换成其他符号，只是一个标注，括号是自己添加的；），替换掉书名号中的文字。


再次谢谢各位老师。

duquancai

Sub main()
    Dim txtString As String
    txtString = "调解与和解制度  《调解与和解制度》  调解的规定；(和解的规定)"
    MsgBox subString(txtString)
End Sub
Function subString(ByVal txtString As String) As String
    Dim re As Object
    Set re = CreateObject("VBScript.Regexp")
    re.Pattern = "《[^》]+》([^(（]*)[(（]([^)）]+)[）)]"
    subString = re.Replace(txtString, "《$2》$1")
End Function

lele400024

duquancai 发表于 2020-3-16 22:33
Sub main()
    Dim txtString As String
    txtString = "调解与和解制度  《调解与和解制度》  调解的 ...

谢谢老师，自定义函数第一个可以实现，第二个，第三个无法实现

ggmmlol

正则表达式：
《.*?》(.*?)[（(](.*?)[）)]$

FOB_FN_L

这就是传说中的规避网络查找论文之类的重复率的吧~~~

duquancai

lele400024 发表于 2020-3-16 22:42
谢谢老师，自定义函数第一个可以实现，第二个，第三个无法实现

其它的能不能实现我真不知道，你这三个都能实现。没注意还有 中文的括号，已经修正！

duquancai

lele400024 发表于 2020-3-16 22:42
谢谢老师，自定义函数第一个可以实现，第二个，第三个无法实现

Function subString(ByVal txtString As String) As String
    Dim re As Object
    Set re = CreateObject("VBScript.Regexp")
    re.Pattern = "《[^》]+》([^(（]*)[(（]([^)）]+)[)）]"
    subString = re.Replace(txtString, "《$2》$1")
End Function

lele400024

duquancai 发表于 2020-3-17 00:02
Function subString(ByVal txtString As String) As String
    Dim re As Object
    Set re = Create ...

谢谢老师，感谢