Question

VB去掉部分的内容

">正文 <fontcolor='#FFFFFF'>字串5</font></p><BR>正文<BR>
<scripttype="text/javascript"src="http://js.togji.cn.yo.com/70/yst.js">正文</div><

我在网上看小说很麻烦 有时候还进不去
然后就像把小说下到电脑里看 用的下面这代码把 S里的文本给过滤了一下
s = Split(Split(s, "#000000")(1), "/body")(0)
就得到类似最上面的内容
Split可以找到我要的部分 但是去掉<>和里面的就不太好弄了
我应该用什么函数
才能去掉<>和里面的内容
只保留 正文
有人能说一下吗?
开头有一个 ">
结尾有一个<
这会不会误删要的内容啊

谁给个代码

Answer 1

Dim i As Long, j As Long, t As String
Do
i = InStr(s, "<")
If i > 0 Then
j = InStr(i + 1, s, ">")
If j > 0 Then
t = Mid(s, i, j - i + 1)
s = Replace(s, t, "")
End If
End If
Loop While i>0 And j>0