|
|
|
![](images/pasta_topo.gif)
|
![](images/folha.gif)
|
Dicas
|
![](images/folha_fim.gif)
|
Visual Basic (Datas/Números/Strings)
|
|
![](images/box01esqsup.gif) |
Título da Dica: Remover TAGs HTML de uma String
|
![](images/box01dirsup.gif) |
|
|
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
|
|
|
|
![](images/hosted.gif)
|