如何除去文本中的html标记

Question

如题 谢谢

Answer 1

我是说用vb除去其中的html语言(包含除去字符串中的html语言)

Answer 2

只有一个一个的比较了吧，提供一个原型，剩下的自己补充吧
dim bQuoteFound as boolean     '是否找到引号的标志
dim bSignalFound as boolean    '是否找到<的标志
dim ch as string
dim sQuote as string
dim sResult as stringsQuote=""""    '记录"的字符for i=1 to len(sSource)
 ch=mid$(sSource,i,1)
 if not bQuoteFound then
  if ch=sQuote then
   bQuoteFound=true
  else
   if bSignalFound then
    if ch=">" then
     bSignalFound=false
    else
     if ch="<" then
      bSignalFound=true
     else
      sResult=sResult+ch
     end if
    end if
   else
    if ch="<" then
     bSignalFound=true
    else
     sResult=sResult+ch
    end if
   end if
  end if
 else
  if ch=sQuote then
   bQuoteFound=false
  else
   sResult=sResult+ch
  end if
 end if
next
大概就是这样吧，没有VB，没有调试，自己试着读吧。

Answer 3

有没有什么函数和方法呢?
比如说类似inet控件里的interhtml ,intertext 方法

Answer 4

if bSignalFound then 
是什么意思啊 它表示什么条件下执行语句

Answer 5

Private Sub Command1_Click()
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "about:blank"
ie.Document.body.innerhtml = "<font color=""#0000FF"">本坛公告:</font>"
MsgBox ie.Document.body.innertext
ie.Quit
End Sub

Answer 6

dim bQuoteFound as boolean     '是否找到引号的标志
dim bSignalFound as boolean    '是否找到<的标志
我在重要的两个标记变量给了说明啊，bSignalFound就是判断当前是否在html标记内。
另外用innertext也可以达到你的需求，但是因为html标记是可以嵌套的，所以你可能需要写一个递规函数来进行处理。我上面所用的是一种比较直接的方法。