Преглед садржаја
Направите акрониме од низова текста
Следећа функција процењује акрониме из низова, тј. Она повезује прво слово у свакој речи у низу. Нпр. „Дрвеће је зелено“ постаје „ТАГ“.
Рутина прелази сваки знак у низу и ако је размак онда узима следећи знак у низу. Пре оцењивања низа, он уклања све задње и дупле размаке.
Функција Ацроимн (Оригинал_Стринг Ас Стринг) Ас Стринг Дим Триммед_Стринг Ас Стринг Дим Ленгтх Ас Интегер Дим Пос Ас Интегер Триммед_Стринг = Апплицатион.ВорксхеетФунцтион.Трим (Оригинал_Стринг) 'израчунајте дужину низа Ленгтх = Лен (Триммед_Стринг) Ацроимн = УЦасе (Триммед_Стринг, 1)) Фор Пос = 2 То Ленгтх - 1 Иф (Мид (Триммед_Стринг, Пос, 1) = "") тхен Ацроимн = Ацроимн & УЦасе (Мид (Триммед_Стринг, Пос + 1, 1)) Енд Иф Нект Пос Завршна функција
Тако на пример:
Ацроимн ("Бритисх Броадцастинг Цорпоратион") даје ББЦ
Ацроимн („Функи“) даје Ф.
Ацроимн (“”) даје НУЛЛ
Кликните овде да бисте преузели .КСЛСМ датотеку из чланка