Inhoudsopgave
Acroniemen maken van tekstreeksen
De volgende functie evalueert acroniemen van strings, d.w.z. het voegt de eerste letter van elk woord in een string samen. Bijvoorbeeld "bomen zijn groen" wordt "TAG".
De routine doorloopt elk teken in een tekenreeks en als het een spatie is, neemt het het volgende teken in de tekenreeks in beslag. Voordat de tekenreeks wordt geëvalueerd, worden alle volgspaties en dubbele spaties verwijderd.
Functie 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) 'werk de lengte van de string uit Length = Len(Trimmed_String) Acroymn = UCase(Links (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 Functie beëindigen
Dus bijvoorbeeld:
Acroymn (“British Broadcasting Corporation”) geeft BBC
Acroymn (“Funky”) geeft F
Acroymn (“”) geeft NULL
Om het .XLSM-bestand uit het artikel te downloaden, klik hier