Omvend en tekststreng med VBA
VBA -rutinen herunder giver brugeren mulighed for at indtaste en streng, og bliver derefter præsenteret med den samme streng baglæns. For eksempel bliver "mandag" til "yadnoM":
| 123456789101112131415161718192021222324252627282930313233343536 | Mulighed eksplicitPrivat underkommandoButton1_Click ()'Definer variablerDim Original_String som strengDim Reversed_String som strengDim Next_Char som strengDim længde som heltalDim Pos som heltal'Få den originale strengOriginal_String = InputBox ("Pls indtast den originale streng:")'Find strengens reviderede længdeLængde = Len (Original_String)'Konfigurer den omvendte strengReversed_String = ""'Fremskridt gennem strengen på en karakter for karakter basis'Starter ved det sidste tegn og går mod det første tegnFor Pos = Længde Til 1 Trin -1Next_Char = Mid (Original_String, Pos, 1)Reversed_String = Reversed_String & Next_CharNæste PosMsgBox "Den omvendte streng er" & Reversed_StringAfslut Sub |
Kodens hovedtræk er:-
• Den har brug for en kommandoknap for at aktivere koden - ved klikhændelsen
• Følgende variabler konfigureres:-
o Original_String - den originale streng, der vendes ("mandag")
o Reversed_String - den omvendte streng (“yadnoM”)
o Next_Char - det næste tegn i strengen, der vendes
o Længde - strengens længde
o Pos - den aktuelle position i strengen
• En InputBox til at fange strengen. Dette gemmes i variablen "Original String"
• Strengens længde beregnes ved hjælp af LEN -funktionen og gemmes i variablen Længde
• En FOR… NEXT loop er konfigureret til at gå gennem strengen, der starter med det sidste tegn og arbejder et tegn baglæns
• Det næste tegn i den originale streng (der arbejder baglæns) tilføjes derefter til den omvendte streng
• Denne loop gentages, indtil vi har krydset hele strengens længde
• Den omvendte streng vises i en MsgBox.
Download Excel -filen her
