Vytvárajte skratky z textových reťazcov
Nasledujúca funkcia vyhodnocuje akronymy z reťazcov, tj. Zreťazí prvé písmeno v každom slove v reťazci. Napríklad „stromy sú zelené“ sa stávajú „TAG“.
Rutina prechádza každým znakom v reťazci a ak je to medzera, vezme ďalší znak v reťazci. Pred vyhodnotením reťazca odstráni všetky koncové a duplicitné medzery.
Funkcia Acroymn (Original_String As String) As String Dim Trimmed_String as String Dim Length As Integer Dim Pos As Integer Trimmed_String = Application.WorksheetFunction.Trim (Original_String) 'work out the length of the string Length = Len (Trimmed_String) Acroymn = UCase (Left (Trimmed_String, 1)) For Pos = 2 To Length - 1 If (Mid (Trimmed_String, Pos, 1) = "") Then Acroymn = Acroymn & UCase (Mid (Trimmed_String, Pos + 1, 1)) End If Next Pos Koncová funkcia
Takže napríklad:
Spoločnosť Acroymn („British Broadcasting Corporation“) poskytuje BBC
Acroymn („Funky“) dáva F
Acroymn („“) dáva NULL
Kliknite sem, ak si chcete stiahnuť súbor .XLSM z článku