Πίνακας περιεχομένων
Δημιουργήστε ακρωνύμια από συμβολοσειρές κειμένου
Η ακόλουθη συνάρτηση αξιολογεί τα Ακρωνύμια από συμβολοσειρές, δηλαδή συνδυάζει το πρώτο γράμμα σε κάθε λέξη σε μια συμβολοσειρά. Για παράδειγμα, τα "δέντρα είναι πράσινα" γίνονται "TAG".
Η ρουτίνα διασχίζει κάθε χαρακτήρα σε μια συμβολοσειρά και αν είναι κενό τότε παίρνει τον επόμενο χαρακτήρα στη συμβολοσειρά. Πριν από την αξιολόγηση της συμβολοσειράς, αφαιρεί όλα τα κενά και τα διπλά κενά.
Συνάρτηση 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) »επεξεργάζεται το μήκος της συμβολοσειράς Length = Len (Trimmed_String) Acroymn = UCase (Left (Trimmed_String, 1)) Για Pos = 2 Έως Μήκος - 1 Αν (Mid (Trimmed_String, Pos, 1) = "") Τότε Acroymn = Acroymn & UCase (Mid (Trimmed_String, Pos + 1, 1)) Τέλος Αν Επόμενη Θέση Λειτουργία Τέλους
Έτσι για παράδειγμα:
Το Acroymn ("British Broadcasting Corporation") δίνει στο BBC
Το Acroymn ("Funky") δίνει το F
Το Acroymn ("") δίνει NULL
Για να κατεβάσετε το αρχείο .XLSM από το άρθρο, κάντε κλικ εδώ