本文介绍了一个实用的VBA函数，该函数能够有效移除字符串中的HTML标签，通过正则表达式的两次替换操作实现，确保处理后的文本干净整洁，适用于需要清理HTML内容的场景。
function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(<.[^<]*>)"
str=re.replace(str," ")
re.Pattern="(</[^<]*>)"
str=re.replace(str," ")
nohtml=str
set re=nothing
end function
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(<.[^<]*>)"
str=re.replace(str," ")
re.Pattern="(</[^<]*>)"
str=re.replace(str," ")
nohtml=str
set re=nothing
end function
扫一扫
248
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
