Como apagar determinada sentença em um texto?

Question

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.

Answer 1

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.