Omvend en tekststreng med VBA
VBA -rutinen nedenfor lar brukeren angi en streng, og blir deretter presentert med den samme strengen bakover. For eksempel blir "mandag" til "yadnoM":
| 123456789101112131415161718192021222324252627282930313233343536 | Alternativ EksplisittPrivate Sub CommandButton1_Click ()'Definer variablerDim Original_String som strengDim Reversed_String som strengDim Next_Char som strengDim lengde som heltallDim Pos som heltall'Få den originale strengenOriginal_String = InputBox ("Pls skriv inn den opprinnelige strengen:")'Finn den reviderte lengden på strengenLengde = Len (Original_String)'Sett opp den omvendte strengenReversed_String = ""'Gå videre gjennom strengen på et tegn for tegn -basis'Starter fra den siste karakteren og går mot den første karakterenFor pos = lengde til 1 trinn -1Next_Char = Mid (Original_String, Pos, 1)Reversed_String = Reversed_String og Next_CharNeste posMsgBox "Den omvendte strengen er" og Reversed_StringSlutt Sub |
Hovedtrekkene i koden er:-
• Den trenger en kommandoknapp for å aktivere koden - på klikkhendelsen
• Følgende variabler er satt opp:-
o Original_String - den originale strengen som skal reverseres ("mandag")
o Reversed_String - den omvendte strengen (“yadnoM”)
o Next_Char - det neste tegnet i strengen som skal reverseres
o Lengde - lengden på strengen
o Pos - den nåværende posisjonen i strengen
• En InputBox for å fange strengen. Dette er lagret i variabelen "Original String"
• Strengens lengde beregnes ved hjelp av LEN -funksjonen og lagres i variabelen Length
• En FOR… NESTE løkke er satt opp for å gå gjennom strengen som begynner på det siste tegnet og arbeider bakover ett tegn om gangen
• Det neste tegnet i den originale strengen (arbeider bakover) legges deretter til den omvendte strengen
• Denne sløyfen gjentas til vi har krysset hele strengens lengde
• Den omvendte strengen vises i en MsgBox.
Last ned Excel -filen her
