regex - 访问 vba 替换/正则表达式？

Question

下午，

我在将某些数据从 PowerPoint 导入 Access 时遇到问题。

最初，当我导入数据时，每行的注释部分如下所示:

 <div class="ExternalClass63DBAC931E7D4E4680E207BF938770AA"><p>xxxxxxxxxxx.</p> <p>xxxxxxxxxxxx</p></div>

xxxxxxx就是我要拉出的数据所在的地方。 我已经以替换 <> 之间的所有内容的形式尝试了正则表达式，如下所示

Public Function AddPipesBeforeDates(ByVal strText As String) As String
Dim regex As Object
Dim matches As Object
Dim m As Object


Set regex = CreateObject("VBScript.RegExp")
regex.Global = True
regex.pattern = "<.*>"
Set matches = regex.Execute(strText)
For Each m In matches
    strText = Replace(strText, m, "")
Next
AddPipesBeforeDates = strText

Set matches = Nothing
Set regex = Nothing
End Function

问题变成了它消灭了一切。
我刚刚发现有关 Regex 的信息，但我并不熟悉它。 有没有办法删除不需要的数据？

注意xxxxxx数据可以是任何值空间或特殊字符

任何关于如何做到这一点的想法或想法将不胜感激。我可能走错了路。

谢谢

Answer 1

你必须注意 .匹配除换行符以外的任何字符(因此，包括 < 和 > )。

删除<之间的所有子串和 > , 你可以使用

regex.pattern = "<[^<]+>"

这样，您将避免“过度使用”和匹配超出您需要的数量。