Съдържание
Създайте съкращения от низове текст
Следващата функция оценява съкращенията от низове, т.е. съчетава първата буква във всяка дума в низ. Например „дърветата са зелени“ става „TAG“.
Процедурата преминава през всеки знак в низ и ако е интервал, той заема следващия символ в низ. Преди да оцени низа, той премахва всички последващи и дублиращи се интервали.
Функция Acroymn (Original_String As String) As String Dim Trimmed_String As String Dim Length As Integer Dim Pos As Integer Trimmed_String = Application. (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 („British Broadcasting Corporation“) дава BBC
Acroymn („Funky“) дава F
Acroymn (“”) дава NULL
Щракнете тук, за да изтеглите .XLSM файла от статията
