Sisällysluettelo
Luo lyhenteitä tekstimerkkijonoista
Seuraava funktio arvioi lyhenteet merkkijonoista eli se yhdistää ketjun jokaisen sanan ensimmäisen kirjaimen. Esimerkiksi "puut ovat vihreitä" tulee "TAG".
Rutiini kulkee merkkijonon jokaisen merkin läpi ja jos se on välilyönti, se ottaa merkkijonon seuraavan merkin. Ennen merkkijonon arviointia se poistaa kaikki loppu- ja päällekkäiset välilyönnit.
Funktio Acroymn (alkuperäinen_merkkijono merkkijonona) merkkijonona himmennettynä Leikattu_merkkijono merkkijonona himmennetty pituus kokonaislukuna Dim Pos kokonaislukuna Trimmed_String = Application.WorksheetFunction.Trim (Original_String) 'selvittää merkkijonon pituus Length = Len (Trimmed_String) Acroymn = UCase (Left (Leikattu_merkkijono, 1)) Pos = 2 - pituus - 1 Jos (Mid (Trimmed_String, Pos, 1) = "") Sitten Acroymn = Acroymn & UCase (Mid (Trimmed_String, Pos + 1, 1)) End If Next Pos Lopeta toiminto
Joten esimerkiksi:
Acroymn (”British Broadcasting Corporation”) antaa BBC: lle
Acroymn (“Funky”) antaa F
Acroymn (“”) antaa NULL
Voit ladata .XLSM -tiedoston artikkelista napsauttamalla tätä
