USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página