none
Como apagar determinada sentença em um texto? RRS feed

  • Pergunta

  • Linhas:

    RT @wna: Hoje o dia está lindo.

    RT @frenc: Hoje é quinta.

    Preciso remover de todas as linhas a expressão RT @...: para que fique assim:

    Hoje o dia está lindo.

    Hoje é quinta.

    Obrigada.

    quinta-feira, 3 de maio de 2018 14:10

Todas as Respostas

  • NayPeterson,

       Você descobre dentro da string esse trecho "em comum" em todas as suas strings: ":" ... o DOIS PONTOS!

       Exemplo... Uma função vai chamar a outra:

    Sub Teste() Dim strLinha1 As String Dim strLinha2 As String strLinha1 = "RT @wna: Hoje o dia está lindo." strLinha2 = "RT @frenc: Hoje é quinta." strLinha1 = BuscaTexto(strLinha1) strLinha2 = BuscaTexto(strLinha2) MsgBox ("Resposta da Linha 1: " + strLinha1) MsgBox ("Resposta da Linha 2: " + strLinha2)

       strLinha1 = BuscaTexto("Resposta da Linha 1: " + strLinha1)
       strLinha2 = BuscaTexto("Resposta da Linha 2: " + strLinha2)

       MsgBox (strLinha1)
       MsgBox (strLinha2)

    End Sub

        Essa função que faz o trabalho:

    Function BuscaTexto(strTexto As String) As String
    
        BuscaTexto = Mid(strTexto, InStr(strTexto, ":") + 2, Len(strTexto) - InStr(strTexto, ":") - 1)
    
    End Function

        Veja também:

    ========================================

    VBA Substring – How to Substring in Excel Macro

    https://www.exceltrick.com/formulas_macros/vba-substring-function/

    ========================================

    []'s,
    Fabio I.

    • Editado Fabio I quinta-feira, 3 de maio de 2018 14:51
    quinta-feira, 3 de maio de 2018 14:36