Satura rādītājs
Izveidojiet akronīmus no teksta virknēm
Šī funkcija novērtē akronīmus no virknēm, ti, tā savieno katra burta pirmo burtu virknē. Piemēram, “koki ir zaļi” kļūst par “TAG”.
Rutīna šķērso katru virknes rakstzīmi, un, ja tā ir atstarpe, tā aizņem nākamo virknes rakstzīmi. Pirms virknes novērtēšanas tā noņem visas pēdējās un dublētās atstarpes.
Funkcija Acroymn (Original_String As String) Kā virkne Dim Trimmed_String As String Dim Length As Integer Dim Pos As Integer Trimmed_String = Application.WorksheetFunction.Trim (Original_String) 'nosaka virknes garumu Length = Len (Trimmed_String) Acroymn = UCase (Left (Apgriezta_string, 1)) Pos = 2 līdz garumam - 1 Ja (Mid (Trimmed_String, Pos, 1) = "") Tad Acroymn = Acroymn & UCase (Mid (Trimmed_String, Pos + 1, 1)) Beigt, ja nākamā pozīcija Beigu funkcija
Tātad, piemēram:
Acroymn (“British Broadcasting Corporation”) sniedz BBC
Acroymn (“Funky”) dod F
Acroymn (“”) dod NULL
Lai lejupielādētu .XLSM failu no raksta, noklikšķiniet šeit
