"
sString2 = ""
sString3 = "<"
sStart = InStr(downCode, sString1)'取得第一条主题信息的起始位置
Do While sStart <> 0
sStop = InStr(sStart, downCode, sString2)
string1 = Mid(downCode, sStart + 4, sStop - sStart) '将第一条主题信息存放在string1变量中
sStart = InStr(sStop, downCode, sString1) '从第一条主题信息的结束部位开始查找该主题的简单描述
sStart = sStop + 4
sStop = InStr(sStart, downCode, sString3) '取得该主题描述部分的结束位置
If sStop = sStart Then '判断只有主题而没有描述的信息
string2 = ""
ElseIf sStop <> sStart Then
string2 = Mid(downCode, sStart, sStop - sStart - 1) '取出主题描述部分
End If
lastString = lastString + "
" + string1 + string2 '将提炼的结果存放在临时变量中
sStart = InStr(sStop, downCode, sString1)'重新定位下一条信息的起始位置
Loop'循环
yahooFilter = lastString'
End Function
