Створіть скорочення з рядків тексту
Наступна функція оцінює акроніми з рядків, тобто вона об'єднує першу букву в кожному слові рядка. Наприклад, "дерева зелені" перетворюються на "ТЕГ".
Процедура перетинає кожен символ у рядку, і якщо це пробіл, він бере наступний символ у рядку. Перш ніж оцінити рядок, він видаляє всі кінцеві та повторювані пробіли.
Функція Acroymn (Original_String As String) As String Dim Trimmed_String As String Dim Length As Integer Dim Pos As Integer Trimmed_String = Application.WorksheetFunction.Trim (Original_String) 'визначають довжину рядка Length = Len (Trimmed_String) Acroymn = UCase (Trimmed_String, 1)) For Pos = 2 To Length - 1 If (Mid (Trimmed_String, Pos, 1) = "") Тоді Acroymn = Acroymn & UCase (Mid (Trimmed_String, Pos + 1, 1)) End if Next Pos Функція завершення
Так наприклад:
Acroymn ("Британська телерадіомовна корпорація") дає BBC
Acroymn (“Funky”) дає F
Acroymn (“”) дає значення NULL
Щоб завантажити файл .XLSM зі статті, натисніть тут
