Lang L: none (table-of-contents)
Looge tekstistringidest akronüüme
Järgmine funktsioon hindab akronüüme stringide põhjal, see tähendab, et see ühendab stringi iga sõna esimese tähe. Näiteks "puud on rohelised" muutub "TAG" -iks.
Rutiin läbib stringi iga märgi ja kui see on tühik, võtab see stringi järgmise märgi. Enne stringi hindamist eemaldab see kõik lõpp- ja dubleerivad tühikud.
Funktsioon Acroymn (Original_String kui string) String Dim Trimmed_String String Dim Dimth Length Täisarv Dim Pos täisarvuna Trimmed_String = Application.WorksheetFunction.Trim (Original_String) 'väljastab stringi pikkuse Pikkus = Len (Trimmed_String) Acroymn = UCase (Left (Kärbitud_string, 1)) Pos = 2 kuni pikkus - 1 Kui (Mid (Trimmed_String, Pos, 1) = "") Siis Acroymn = Acroymn & UCase (Mid (Trimmed_String, Pos + 1, 1)) End If Next Pos Lõppfunktsioon
Nii näiteks:
Acroymn (“British Broadcasting Corporation”) annab BBC -le
Acroymn (“Funky”) annab F
Acroymn (“”) annab NULL
.XLSM -faili allalaadimiseks artiklist klõpsake siin
