Removendo espaços extras entre as palavras de um texto com VBA

Com o código abaixo pode-se remover os espaços extras entre as palavras de um texto:

Public Function removeExtraSpaceBetweenWords(ByVal str As String) As String
 Dim astr() As String

 astr = Split(str, " ", , vbTextCompare)
 str = ""
 Dim i As Integer
 For i = 0 To UBound(astr)
     'Debug.Print astr(i), astr(i) = ""
     If astr(i) <> "" Then
         str = str & astr(i) & " "
     End If
 Next i
 
 removeExtraSpaceBetweenWords = Trim(str)
End Function

Exemplo de uso com a Janela imediata:

?removeExtraSpaceBetweenWords(“Pedro        Abs       isso é      um        teste”)

resultado:

Pedro Abs isso é um teste

Esta entrada foi publicada em Visual Basic 6.0 e VBA com as etiquetas , . ligação permanente.

Deixe uma Resposta

Preencha os seus detalhes abaixo ou clique num ícone para iniciar sessão:

Logótipo da WordPress.com

Está a comentar usando a sua conta WordPress.com Terminar Sessão / Alterar )

Imagem do Twitter

Está a comentar usando a sua conta Twitter Terminar Sessão / Alterar )

Facebook photo

Está a comentar usando a sua conta Facebook Terminar Sessão / Alterar )

Google+ photo

Está a comentar usando a sua conta Google+ Terminar Sessão / Alterar )

Connecting to %s