Skip to main content
removeu 10 caracteres do conteúdo
Fonte Link
Wallace Vizerra
  • 107,4mil
  • 106
  • 440
  • 920

Boa tarde euEu uso o seguinte código vb.net:

Public Function limpaHTML_Recursiva(ByVal sTexto As String, ByVal j As Integer) As String
    If j = 0 Then
        Return sTexto
    End If
    Dim i As Integer = 0
    i = InStr(sTexto, "<")
    j = InStr(sTexto, ">")
    If i > 0 Then
        i -= 1
    End If
    sTexto = Left(sTexto, i) & Right(sTexto, sTexto.Length - j)
    Return (limpaHTML_Recursiva(sTexto, j))
End Function

Chama com :sTexto = limpaHTML_Recursiva(sTexto, 1)

Boa tarde eu uso o seguinte código vb.net:

Public Function limpaHTML_Recursiva(ByVal sTexto As String, ByVal j As Integer) As String
    If j = 0 Then
        Return sTexto
    End If
    Dim i As Integer = 0
    i = InStr(sTexto, "<")
    j = InStr(sTexto, ">")
    If i > 0 Then
        i -= 1
    End If
    sTexto = Left(sTexto, i) & Right(sTexto, sTexto.Length - j)
    Return (limpaHTML_Recursiva(sTexto, j))
End Function

Chama com :sTexto = limpaHTML_Recursiva(sTexto, 1)

Eu uso o seguinte código vb.net:

Public Function limpaHTML_Recursiva(ByVal sTexto As String, ByVal j As Integer) As String
    If j = 0 Then
        Return sTexto
    End If
    Dim i As Integer = 0
    i = InStr(sTexto, "<")
    j = InStr(sTexto, ">")
    If i > 0 Then
        i -= 1
    End If
    sTexto = Left(sTexto, i) & Right(sTexto, sTexto.Length - j)
    Return (limpaHTML_Recursiva(sTexto, j))
End Function

Chama com :sTexto = limpaHTML_Recursiva(sTexto, 1)

Fonte Link
Iran
  • 9
  • 1

Boa tarde eu uso o seguinte código vb.net:

Public Function limpaHTML_Recursiva(ByVal sTexto As String, ByVal j As Integer) As String
    If j = 0 Then
        Return sTexto
    End If
    Dim i As Integer = 0
    i = InStr(sTexto, "<")
    j = InStr(sTexto, ">")
    If i > 0 Then
        i -= 1
    End If
    sTexto = Left(sTexto, i) & Right(sTexto, sTexto.Length - j)
    Return (limpaHTML_Recursiva(sTexto, j))
End Function

Chama com :sTexto = limpaHTML_Recursiva(sTexto, 1)