敬请斧正:word查找匹配目标文本的一句表达式

duquancai

weiyingde 发表于 2017-7-2 23:42
唯一的特征是，每首诗歌的标题中没有标点，根据这个特征能否定位查找的文本？

Sub shishi()
    s = Replace(ActiveDocument.Content, vbCr, "\r")
    Set D = CreateObject("htmlfile"): Set W = D.parentWindow
    W.execScript "a='" & s & "'.replace(/[\x20\xa0]+/g,'').match(/^[一-﨩]+\r((?!^[一-﨩]+\r)[\s\S])+/gm);"
    For i = 0 To W.eval("a.length") - 1
        MsgBox W.eval("a[" & i & "]")
    Next
End Sub

weiyingde

duquancai 发表于 2017-7-3 00:13
Sub shishi()
    s = Replace(ActiveDocument.Content, vbCr, "\r")
    Set D = CreateObject("htmlf ...

很好用，代码很深奥，下载下来慢慢领会，细心揣摩，力争搞懂。
惊叹之余，再次感谢。

weiyingde

duquancai 发表于 2017-7-3 00:13
Sub shishi()
    s = Replace(ActiveDocument.Content, vbCr, "\r")
    Set D = CreateObject("htmlf ...

发现好像是应用于网页的正则，难以消化，只好备用。
若有能应用于script.eregxp的正则或word查找的代码，请赐教一二。

weiyingde

duquancai 发表于 2017-7-2 19:27
》》》》》》》》》》》》》》》》》》》》》》

Sub shishi()

能否分享htmlfile正则方面的资料？

weiyingde

huanglicheng 发表于 2017-7-2 19:36
不知这样可否

想了一下，还是费解。
请解读一下：晨读.+?(?=晨读|$)，谢谢

huanglicheng

weiyingde 发表于 2017-7-3 09:14
想了一下，还是费解。
请解读一下：晨读.+?(?=晨读|$)，谢谢

匹配“晨读”及后面的内容。遇到下一个“晨读” 或结尾就停了
关键在那个？号
如：
Windows(?=95|98|NT|2000)'能匹配"Windows2000"中的"Windows"，但不能匹配"Windows3.1"中的"Windows"。

太详细的，你需要在论坛上搜搜关于正则的详解

weiyingde

huanglicheng 发表于 2017-7-3 11:15
匹配“晨读”及后面的内容。遇到下一个“晨读” 或结尾就停了
关键在那个？号
如：

这三个连在一起.+?解释一下，+?两个量词放在一起，怎么理解？

huanglicheng

weiyingde 发表于 2017-7-3 15:25
这三个连在一起.+?解释一下，+?两个量词放在一起，怎么理解？

表达有限 不知你能理解否

weiyingde

.+? 就一个，为什么不用.?这样的表达呢？

weiyingde

.+? 就一个，为什么不用.?这样的表达呢？