Oi gente!!!!

 

Como faço para tranferir a String normalizado para o array T(n) nesse caso:

 

onde N é o número de palavras.

 

normalizado = "Estou com problemas"

n =3

T() = ???

 

Bom, nem sei por onde começar o algoritmo...

 

Tentei alguns aqui mas não cheguei nem perto...

 

Obrigado.

Jose.Niz,

não deu certo não...

 

Olha o que eu tenho...

 

'*****************************************************************************
'* Normalizar o texto T com N strings, ou seja, retirar o excesso de espaços *
'* em branco, no início, final e entre palavras de cada string do texto.     *
'*****************************************************************************
Sub NormalizaTexto(ByRef T() As String, ByRef n As Integer)

End Sub 'NormalizaTexto

 

Entaum recebo de T() um texto assim:

 

"              Hoje      é                      Sábado!

 

                Adoro                                                   Fins-de-semana..."

 

Eu tenho q retornar em T() um testo assim:

 

"Hojé é Sábado:

Adoro Fins-de-semana..."

 

Deu pra entender o tamanho do problema!?

 

Tentei com esse Split que você disse mas deu:

 

Run timer error '13':

 

Type mismatch

 

Eu fiz alguma coisa errada!?

falta um parâmetro, no caso eu não sei se o texto está separado por espaços ou outros caracteres. Tente assim:

 

1) Normalizando o texto:

 

'Substituindo o excesso de espaços

Texto = Replace(Texto,"  "," ")

 

2) Atribuindo à matriz

 

Dim Matriz as Variant

 

Matriz = Split(Texto," ")

 

Call NormalizaTexto(Matriz,Unbound(Matriz)-1)