Tabla de contenido
Crear acrónimos a partir de cadenas de texto
La siguiente función evalúa los acrónimos de las cadenas, es decir, concatena la primera letra de cada palabra de una cadena. Por ejemplo, "los árboles son verdes" se convierte en "TAG".
La rutina atraviesa todos los caracteres de una cadena y, si es un espacio, toma el siguiente carácter de la cadena. Antes de evaluar la cadena, elimina todos los espacios finales y duplicados.
Función Acroymn (Original_String As String) As String Dim Trimmed_String Como String Dim Longitud como Integer Dim Pos As Integer Trimmed_String = Application.WorksheetFunction.Trim (Original_String) 'calcula la longitud de la cadena Length = Len (Trimmed_String) Acroymn = UCase (Izquierda (Trimmed_String, 1)) For Pos = 2 To Length - 1 If (Mid (Trimmed_String, Pos, 1) = "") Entonces Acroymn = Acroymn & UCase (Mid (Trimmed_String, Pos + 1, 1)) End If Next Pos Función final
Así por ejemplo :
Acroymn ("British Broadcasting Corporation") le da a la BBC
Acroymn ("Funky") da F
Acroymn ("") da NULL
Para descargar el archivo .XLSM del artículo, haga clic aquí
