Αντιστρέψτε μια συμβολοσειρά κειμένου με VBA
Η παρακάτω ρουτίνα VBA επιτρέπει στον χρήστη να εισαγάγει μια συμβολοσειρά και στη συνέχεια παρουσιάζεται με την ίδια συμβολοσειρά προς τα πίσω. Για παράδειγμα, η "Δευτέρα" γίνεται "yadnoM":
| 123456789101112131415161718192021222324252627282930313233343536 | Επιλογή ρητήPrivate Sub CommandButton1_Click ()«Ορισμός μεταβλητώνDim Original_String As StringDim Reversed_String As StringDim Next_Char As StringDim Length As IntegerDim Pos As Integer«Πάρτε την αρχική χορδήOriginal_String = InputBox ("Pls εισάγετε την αρχική συμβολοσειρά:")«Βρείτε το αναθεωρημένο μήκος της συμβολοσειράςΜήκος = Len (Original_String)«Ρυθμίστε την αντίστροφη συμβολοσειράReversed_String = ""«Προχωρήστε μέσα από τη συμβολοσειρά με βάση χαρακτήρα ανά χαρακτήρα«Ξεκινώντας από τον τελευταίο χαρακτήρα και πηγαίνοντας προς τον πρώτο χαρακτήραΓια Pos = Μήκος έως 1 Βήμα -1Next_Char = Mid (Original_String, Pos, 1)Reversed_String = Reversed_String & Next_CharΕπόμενο PosMsgBox "Η αντίστροφη συμβολοσειρά είναι" & Reversed_StringΤέλος υπο |
Τα κύρια χαρακτηριστικά του κώδικα είναι:-
• Χρειάζεται ένα κουμπί εντολών για την ενεργοποίηση του κώδικα - στο συμβάν κλικ
• Ρυθμίζονται οι ακόλουθες μεταβλητές:-
o Original_String - η αρχική συμβολοσειρά που θα αντιστραφεί ("Δευτέρα")
o Reversed_String - η αντίστροφη συμβολοσειρά ("yadnoM")
o Next_Char - ο επόμενος χαρακτήρας στη συμβολοσειρά που θα αντιστραφεί
o Μήκος - το μήκος της χορδής
o Pos - η τρέχουσα θέση στη συμβολοσειρά
• Ένα InputBox για λήψη της συμβολοσειράς. Αυτό αποθηκεύεται στη μεταβλητή "Original String"
• Το μήκος της συμβολοσειράς υπολογίζεται χρησιμοποιώντας τη συνάρτηση LEN και αποθηκεύεται στη μεταβλητή Μήκος
• Ένας βρόχος ΓΙΑ… ΕΠΟΜΕΝΟ έχει ρυθμιστεί για να περάσει από τη συμβολοσειρά ξεκινώντας από τον τελευταίο χαρακτήρα και δουλεύοντας αντίστροφα έναν χαρακτήρα κάθε φορά
• Ο επόμενος χαρακτήρας στην αρχική συμβολοσειρά (λειτουργεί αντίστροφα) προστίθεται στη συνέχεια στην αντίστροφη συμβολοσειρά
• Αυτός ο βρόχος επαναλαμβάνεται μέχρι να διασχίσουμε όλο το μήκος της συμβολοσειράς
• Η αντίστροφη συμβολοσειρά εμφανίζεται σε ένα MsgBox.
Κατεβάστε το αρχείο Excel εδώ
