代码如下 | 复制代码 |
<% Function stripHTML(strHTML) Dim objRegExp, strOutput objRegExp.IgnoreCase = True 'Replace all HTML tag matches with the empty string 'Replace all < and > with < and > stripHTML = strOutput 'Return the value of strOutput Set objRegExp = Nothing |
使用方法
代码如下 | 复制代码 |
stripHTML(strhtml)就可以了,这样用起来就方便多了 |
广发证券与HashKey在香港推出代币化证券 助力城市推进加密雄心
买入区域已激活:加密货币抛售后,山寨币蓄势待发
马斯克Neuralink发布会震撼来袭:七人已植入脑机介面改变人生、下一步终结盲人,超狂路线图公开
为什么花140美元买Solana,而Kaanch只要0.64美元?(限时优惠)
随着山寨币势头回升,当前最值得关注的三大预售加密货币——其中一款已筹集超3亿美元
首席软件工程师表示,Ripple技术上并不持有380亿XRP代币