本文介绍了一个实用的VBA函数Lose_Html，该函数用于从输入字符串中移除所有的HTML标签，确保文本数据的纯净性。通过正则表达式的全局匹配，此函数能够有效地处理含有HTML标签的文本数据。
Function Lose_Html(f_Str)
Dim regEx
if Not IsNull(f_Str) Then
f_Str=f_Str&""
Set regEx = New RegExp
regEx.Pattern = "</*[^<>]*>"
regEx.IgnoreCase = True
regEx.Global = True
f_Str = regEx.Replace(f_Str,"")
Lose_Html = f_Str
Else
Lose_Html=""
End If
End Function
Dim regEx
if Not IsNull(f_Str) Then
f_Str=f_Str&""
Set regEx = New RegExp
regEx.Pattern = "</*[^<>]*>"
regEx.IgnoreCase = True
regEx.Global = True
f_Str = regEx.Replace(f_Str,"")
Lose_Html = f_Str
Else
Lose_Html=""
End If
End Function
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
