Beräkna akronymer från textsträngar - exempel på VBA -kod

Innehållsförteckning

Skapa akronymer från textsträngar

Följande funktion utvärderar akronymer från strängar, dvs den sammanfogar den första bokstaven i varje ord i en sträng. Till exempel "träd är gröna" blir "TAG".

Rutinen passerar varje tecken i en sträng och om det är ett mellanslag tar det nästa tecken i strängen. Innan strängen utvärderas tar den bort alla efterföljande och dubblerade mellanslag.

Funktion 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) 'räkna ut strängens längd Length = Len (Trimmed_String) Acroymn = UCase (vänster (Trimmed_String, 1)) För Pos = 2 To Length - 1 If (Mid (Trimmed_String, Pos, 1) = "") Sedan Acroymn = Acroymn & UCase (Mid (Trimmed_String, Pos + 1, 1)) Sluta om nästa Pos Avsluta funktion

Så till exempel:
Acroymn ("British Broadcasting Corporation") ger BBC
Acroymn ("Funky") ger F
Acroymn (“”) ger NULL

För att ladda ner .XLSM -filen från artikeln, klicka här

wave wave wave wave wave