VBA 正则式部分替换怎么做？

河之渡 · 发表于 2016-8-23 11:17

原字符串：S1="<test1>aa<test2>bb<test3>cc<test4>dd<test5>ee<test6>"
注：每个尖括号中的内容不一定相同。
如果全部替换尖括号中内容。可写作：
.Pattern ="<[^>]*>"
.Replace(S1, "replaceText")
现在我要替换第三个，或者第三个到第五尖括号中的内容，该怎么写？

jiminyanyan · 发表于 2016-8-23 12:39

Sub jimin()
Dim Item, Result As String, Rng As Range '声明变量
With CreateObject("VBSCRIPT.REGEXP") '创建正则表达式引用
For Each Rng In Range("a1:a1") '遍历区域
.Pattern = "<[^>]*>"
.Global = True '全局匹配
For Each Item In .Execute(Rng) '遍历搜索结果
i = i + 1
If i = 3 Then
MsgBox Item
End If
Next
Next Rng
End With
End Sub

复制代码

河之渡 · 发表于 2016-8-23 12:52

jiminyanyan 发表于 2016-8-23 12:39

首先谢谢你的回答。
你这个程序是找到了第３项的内容（实际是第４项了？），而不是把第３个尖括号中的内容替换掉。
我想要的是把第３个括号的内容替换掉。该怎么做？

jiminyanyan · 发表于 2016-8-23 13:03

河之渡发表于 2016-8-23 12:52
首先谢谢你的回答。
你这个程序是找到了第３项的内容（实际是第４项了？），而不是把第３个尖括号中的内 ...

看是不是这个意恩，要学会自己思考一下嘛，饭都送到你手上了，还要再喂你一下哈

Sub jimin()
Dim Item, Result As String, Rng As Range '声明变量
With CreateObject("VBSCRIPT.REGEXP") '创建正则表达式引用
For Each Rng In Range("a1:a1") '遍历区域
.Pattern = "<[^>]*>"
.Global = True '全局匹配
For Each Item In .Execute(Rng) '遍历搜索结果
i = i + 1
If i = 3 Then
temp = Mid(Item, 2, Len(Item) - 2)
End If
Next
MsgBox Replace(Rng, temp, "替换")
Next Rng
End With
End Sub

复制代码

liu-aguang · 发表于 2016-8-23 14:14

Sub test()
stext = "S1=""<test1>aa<test2>bb<test3>cc<test4>dd<test5>ee<test6>""" '目标(原)文本
rep = "replaceText" '替换文本
n0 = 3 '替换开始位置
n1 = 5 '替换结束位置
If n0 = 1 Then n0 = 2
ptn = "((?:<[^>]*>[^<]+){" & n0 - 1 & "})((?:<[^>]*>[^<]+){" & n1 - n0 + 1 & "})"
Set oDom = CreateObject("htmlfile")
Set oWindow = oDom.parentWindow
oWindow.execScript "s='" & stext & "';s0=s.replace(/" & ptn & "/,function(m,s1,s2){return s1+s2.replace(/<[^>]*>/g,'<" & rep & ">')})"
MsgBox oWindow.s0
End Sub

河之渡 · 发表于 2016-8-23 18:08

jiminyanyan 发表于 2016-8-23 13:03
看是不是这个意恩，要学会自己思考一下嘛，饭都送到你手上了，还要再喂你一下哈

你这种替换，我也想过。
比如执行Exectue后，取它的Item(2)的值来替换，但不周全。
例如：
如果第三个尖括号里的内容和第一二三四尖括号的内容一样，这样替换，都会被换掉。比如：
<test>aa<test>bb<test>cc<test>dd<test5>ee<test6>
就会被替换成：
<replacetext>aa<replacetext>bb<replacetext>cc<test>dd<test5>ee<test6>
所以仍有问题。

另外：你用了i=i+1来查找到了第3项，我前面没注意到这一句。

jiminyanyan · 发表于 2016-8-23 19:03

河之渡发表于 2016-8-23 18:08
你这种替换，我也想过。
比如执行Exectue后，取它的Item(2)的值来替换，但不周全。
例如：

考虑不周，确实有问题。。。。

河之渡 · 发表于 2016-8-24 09:25

liu-aguang 发表于 2016-8-23 14:14
Sub test()
stext = "S1=""aabbccddee""" '目标(原)文本
rep = "replaceText" '替换文本

这个没看懂。
但是还要谢谢你。

ggmmlol · 发表于 2018-8-5 18:59

Sub test()
sText = "S1=""<test1>aa<test2>bb<test3>cc<test4>dd<test5>ee<test6>""" '目标(原)文本
Set rg = CreateObject("vbscript.regexp")
rg.Pattern = "((.*?<.*?>){2})(.*?<)(.*?)(>.*?<)(.*?)(>.*?<)(.*?)(>.*?)"
MsgBox rg.Replace(sText, "$1$3replaceText$5replaceText$7replaceText$9")
End Sub

复制代码

也可以使用我做的【超级查找替换】加载宏直接替换，如图所示：

超级替换19.gif

		自动登录	找回密码
密码			免费注册

[求助] VBA 正则式部分替换怎么做？