Vytvořte zkratek z řetězců textu
Následující funkce vyhodnocuje akronymy z řetězců, tj. Spojuje první písmeno v každém slově v řetězci. Například „stromy jsou zelené“ se stávají „TAG“.
Rutina prochází každý znak v řetězci a pokud je to mezera, vezme další znak v řetězci. Před vyhodnocením řetězce odstraní všechny koncové a duplicitní mezery.
Funkce 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á funkce
Takže například:
Společnost Acroymn („British Broadcasting Corporation“) poskytuje BBC
Acroymn („Funky“) dává F
Acroymn (“”) dává NULL
Chcete -li stáhnout soubor .XLSM z článku, klikněte sem
