在 ms access 2010 中使用正则表达式替换一列

Question

在 ms access 2010 中有一个名为 sample 的表，其中仅包含一列 body (type: text)：

<name>John</name><age>12</age>

我想删除括号内的每个字符串。看到这个：

John12

我添加了 Microsoft VBScript 正则表达式 5.5 库并创建了这个模块：

Function Replace_Regex(str1, patrn, replStr)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True

Replace_Regex = regEx.Replace(str1, replStr)
End Function

然后，我运行这个查询：更新样本集 body = Replace_Regex(body, "<[^>]+?", "")

但结果是：

 ame>John</name><age>12</age>

所以有什么问题？

Answer 1

将此添加到函数中：

regEx.Global = True

然后"<[^>]*>"用作图案。

这是我在立即窗口中得到的信息：

body = "<name>John</name><age>12</age>"
? Replace_Regex(body, "<[^>]*>", "")
John12