正则替换求帮助

pc_12 · 发表于 2024-7-30 16:56

正则替换搞不定了，求高手帮助。

正则.rar (11.72 KB, 下载次数: 15)

usedrange · 发表于 2024-7-30 17:03

.Pattern = "(?:[\u4e00-\u9fff])+"

DevilW · 发表于 2024-7-30 17:04

Replace 方法删除

小凡、、、 · 发表于 2024-7-30 17:06

ykcbf1100 · 发表于 2024-7-30 20:26

没有附件，贴个代码吧。

Sub Test()
Set reg = CreateObject("VBScript.RegExp")
With reg
.Global = True
.IgnoreCase = True
.Pattern = "<.*?>"
End With
str = "物理学 <span class=""ant-tag !py-[6px] !px-[10px] css-54vyli"" style=""margin-bottom:10px;font-size:14px"">化学</span>"
OutputStr = reg.Replace(str, "")
End Sub

复制代码

醉眼看尘世 · 发表于 2024-7-30 22:20

Sub test()
Dim reGxp As Object
Set reGxp = CreateObject("vbScript.regExp")
reGxp.Global = True
reGxp.Pattern = "<[^>]+>"
[a3] = reGxp.Replace([a2], "")
End Sub

pc_12 · 发表于 2024-7-31 05:00

感谢各位高手的帮助。

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

[求助] 正则替换求帮助

评分

评分

[求助] 正则 替换 求帮助

评分

评分

[求助] 正则替换求帮助