A função a seguir avalia acrônimos de strings, ou seja, concatena a primeira letra de cada palavra em uma string. Por exemplo, “Revoluções Por Minuto” torna-se “RPM”.
A rotina percorre todos os caracteres de uma string e, se for um espaço, leva o próximo caractere da string. Antes de avaliar a string, ele remove todos os espaços à direita e duplicados.
Function Acronimo (Original_String As String) As String
Dim Trimmed_String As String
Dim Length As Integer
Dim Pos As Integer
Let Trimmed_String = Application.WorksheetFunction.Trim (Original_String)
Let Length = Len (Trimmed_String)
Let Acronimo = UCase (Left (Trimmed_String, 1))
For Pos = 2 To Length - 1
If (Mid (Trimmed_String, Pos, 1) = " ") Then
Let Acronimo = Acronimo & UCase (Mid (Trimmed_String, Pos + 1, 1))
End If
Next Pos
End Function
Por exemplo:
Acronimo (“British Broadcasting Corporation”) retorna BBC
Acronimo (“Harmony”) retorna H
Acronimo (“”) retorna NULL
Conheça também estes outros códigos:
Série de Livros nut Project
Série DONUT PROJECT 2015
Clique aqui e nos contate via What's App para avaliarmos seus projetos
Nenhum comentário:
Postar um comentário