Postada em 21/09/2006 14:58 hs
Fiz esta função para você:
Function RetiraTagsHTML(lcString As String) Dim Ini As Long, Fim As Long Do Ini = InStr(1, lcString, "<") If (Ini > 0) Then Fim = InStr(Ini, lcString, ">") If (Fim > 0) Then lcString = Mid(lcString, 1, Ini - 1) & Mid(lcString, Fim + 1) End If End If Loop While (Ini > 0 And Fim > 0)
RetiraTagsHTML = lcString End Function
------------------------------------------ Maycon Maia Vitali (0ut0fBound) http://maycon.hacknroll.com http://blog.hacknroll.com Hack'n Roll
|