Creați acronime din șiruri de text
Următoarea funcție evaluează acronimele din șiruri, adică concatenează prima literă din fiecare cuvânt dintr-un șir. De exemplu, „copacii sunt verzi” devine „TAG”.
Rutina traversează fiecare caracter dintr-un șir și dacă este un spațiu, atunci ia următorul caracter din șir. Înainte de a evalua șirul, acesta elimină toate spațiile finale și duplicate.
Function Acroymn (Original_String As String) As String Dim Trimmed_String As String Dim Lungime As Integer Dim Pos As Integer Trimmed_String = Application.WorksheetFunction.Trim (Original_String) 'work out the length of the string Length = Len (Trimmed_String) Acroymn = UCase (Left (Trimmed_String, 1)) Pentru Pos = 2 până la lungime - 1 Dacă (Mid (Trimmed_String, Pos, 1) = "") Atunci Acroymn = Acroymn & UCase (Mid (Trimmed_String, Pos + 1, 1)) End If Next Pos Funcția de sfârșit
Deci, de exemplu:
Acroymn („British Broadcasting Corporation”) oferă BBC
Acroimul („Funky”) dă F
Acroimul („”) dă NULL
Pentru a descărca fișierul .XLSM din articol, faceți clic aici
