Umkehren einer Textzeichenfolge mit VBA
Die VBA-Routine unten ermöglicht dem Benutzer die Eingabe einer Zeichenfolge und wird dann mit derselben Zeichenfolge rückwärts angezeigt. Aus „Montag“ wird beispielsweise „yadnoM“:
| 123456789101112131415161718192021222324252627282930313233343536 | Option explizitPrivate Sub CommandButton1_Click()'Variablen definierenDim Original_String als StringDim Reversed_String als StringDim Next_Char als StringDim-Länge als IntegerDim Pos As Integer'Holen Sie sich die OriginalzeichenfolgeOriginal_String = InputBox("Bitte geben Sie den Originalstring ein:")'Finden Sie die überarbeitete Länge der ZeichenfolgeLänge = Len(Original_String)'Bauen Sie die umgekehrte Zeichenfolge einReversed_String = ""'Durchlaufen der Zeichenfolge Zeichen für Zeichen'Beginne beim letzten Zeichen und gehe zum ersten ZeichenFür Pos = Länge bis 1 Schritt -1Next_Char = Mid(Original_String, Pos, 1)Reversed_String = Reversed_String & Next_CharNächste PosMsgBox "Der umgekehrte String ist " & Reversed_StringEnd Sub |
Die Hauptmerkmale des Codes sind: -
• Es benötigt eine Befehlsschaltfläche, um den Code zu aktivieren - beim Klickereignis
• Die folgenden Variablen sind eingerichtet:-
o Original_String - der ursprüngliche String, der umgekehrt wird ("Montag")
o Reversed_String - der umgekehrte String („yadnoM“)
o Next_Char - das nächste Zeichen in der Zeichenfolge, das umgekehrt wird
o Länge - die Länge der Zeichenfolge
o Pos - die aktuelle Position im String
• Eine InputBox zum Erfassen der Zeichenfolge. Dies wird in der Variablen „Original String“ gespeichert.
• Die Länge des Strings wird mit der LEN-Funktion berechnet und in der Variablen Length . gespeichert
• Eine FOR… NEXT-Schleife ist so eingerichtet, dass sie die Zeichenfolge beginnend beim letzten Zeichen und Zeichen für Zeichen rückwärts durchläuft
• Das nächste Zeichen in der ursprünglichen Zeichenfolge (rückwärts arbeitend) wird dann zur umgekehrten Zeichenfolge hinzugefügt
• Diese Schleife wird wiederholt, bis wir die gesamte Länge des Strings durchlaufen haben
• Die umgekehrte Zeichenfolge wird in einer MsgBox angezeigt.
Laden Sie hier die Excel-Datei herunter
