|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Remover TAGs HTML de uma String
|
 |
|
|
|
Postada em 22/9/2006 por 00b
' Fiz esta função que remove todas as TAGs HTML de uma string
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
|
|
|
|
|
