Esse é o típico caso em que uma macro função cai como uma luva.
A questão aí é .... o que delimita o fim da palavra ? Espaço ? vírgula ? ponto ? ponto e vírgula ? interrogação ? Exclamação ?
Como faria ?
algo assim
Function tira_tokens(texto As String, iniciador As String, terminador As String) As Variant
Dim temporario(100) As String
Dim letra, pedacinho As String
Dim i, quantos, tamamho As Double
Dim achou As Boolean
tamanho = Len(texto)
terminador = terminador & iniciador
quantos = 0
letra = ""
pedacinho = ""
achou = False
For i = 1 To tamanho
letra = Mid(texto, i, 1)
If achou Then
If InStr(1, terminador, letra) <> 0 Then
temporario(quantos) = pedacinho
pedacinho = ""
achou = False
quantos = quantos + 1
Else
pedacinho = pedacinho & letra
End If
Else
achou = (letra = iniciador)
End If
Next
If achou Then
quantos = quantos + 1
temporario(quantos) = pedacinho
End If
If Application.Caller.Rows.Count > 1 Then
tira_tokens = Application.Transpose(temporario)
Else
tira_tokens = temporario
End If
End Function
Como funciona ? essa função recebe 3 argumentos
o primeiro argumento é o texto inteiro, o segundo argumento é o caracter que INICIA o token, no seu exemplo é "#"
o terceiro argumento é uma string que contém os caracteres que TERMINAM o token, ou seja, o que termina uma palavra ? vírgula, ponto, espaço, / , sei lá o que vc quiser. O que vc quiser que termine a palavra vc taca aí
.
Um detalhe importante. Essa função retorna uma LISTA de palavras, justamente as palavras encontradas depois do iniciador portanto essa função tem que ser chamada com uma fórmula matricial.
Reserve um espaço na sua planilha para o número máximo de palavras que a frase pode ter.
digite a fórmula assim
=tira_tokens( a1 ; "#" ; "., /!?;" )
em seguida, marque toda a faixa reservada para as palavras, tecle F2 e dë ctrl+shift+enter
Certifique-se que o número de células seja suficiente para o máximo de palavras marcadas que a frase conterá.
Para digitar essa função, tecle alt-f11 vá em Inserir, módulo e taque o código acima.
Vc já fez macro alguma vez ?
E para que é isso ? é exercício de cursinho ou é aplicação na vida real ?
João Eurico Consultor Manguetown - Brazil
