Laske lyhenteet tekstimerkkijonoista - VBA -koodiesimerkkejä

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ä

wave wave wave wave wave