UC知道VB处理EXCEL中CSV的问题
来源：百度知道 编辑：UC知道 时间：2024/06/08 10:19:00
举个例子，如下面这段CSV文件中的文字，要用VB把其中的br，<p>,的空行去掉，并去掉其中的超链接：
<br />
<br />
<br />
<br />
经典畅<a href="http://www.baidu.com">销(NB0681)杯延续，1/2杯</a>可换肩带，适合搭配各式外衣；下侧插垫托选用柔珠杯垫，高乳房，体现侧推功能，平衡大小胸差异，可随意增减以调整胸部丰满度；杯边勾花效果的蕾丝装饰透出紫色。前肩带窄边装饰，和碗边自然过度。</p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p>日本专利纳米技术深海鱼油美肤里料带来的保湿透气和抗菌功能，就像随时给胸部做SPA。<br />
<br />
<br />
<br />
<br />
<br />
经典畅<a href="http://www.baidu.com">销(NB0681)杯延续，1/2杯</a>可换肩带，适合搭配各式外衣；下侧插垫托选用柔珠杯垫，高乳房，体现侧推功能，平衡大小胸差异，可随意增减以调整胸部丰满度；杯边勾花效果的蕾丝装饰透出紫色。前肩带窄边装饰，和碗边自然过度。</p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p>日本专利纳米技术深海鱼油美肤里料带来的保湿透气和抗菌功能，就像随时给胸部做SPA。<br />
<br />
'引用Microsoft VBScript Regular Expression 5.5
myString = CSV文件中的文字
Dim objRegExp As RegExp
Dim objMatch As Match
Dim colMatches As MatchCollection
Dim RetStr As String
Set objRegExp = New RegExp
objRegExp.Pattern = "<[^>]+>"
objRegExp.IgnoreCase = True
objRegExp.Global = True
If (objRegExp.test(myString) = True) Then
RetStr = objRegExp.Replace(myString, "")
Else
End If
MsgBox RetStr