Vänd en textsträng med VBA
VBA -rutinen nedan tillåter användaren att ange en sträng och presenteras sedan med samma sträng bakåt. Till exempel blir "måndag" till "yadnoM":
| 123456789101112131415161718192021222324252627282930313233343536 | Alternativ ExplicitPrivat underkommandoButton1_Click ()'Definiera variablerDim Original_String som strängDim Reversed_String som strängDim Next_Char som strängDim längd som heltalDim Pos som heltal'Skaffa originalsträngenOriginal_String = InputBox ("Pls ange originalsträngen:")'Hitta strängens reviderade längdLängd = Len (Original_String)'Ställ in den omvända strängenReversed_String = ""'Fortsätt genom strängen på tecken för tecken'Börjar från den sista karaktären och går mot den första karaktärenFör Pos = längd till 1 steg -1Next_Char = Mid (Original_String, Pos, 1)Reversed_String = Reversed_String & Next_CharNästa PosMsgBox "Den omvända strängen är" & Reversed_StringAvsluta Sub |
Huvuddragen i koden är:-
• Den behöver en kommandoknapp för att aktivera koden - vid klickhändelsen
• Följande variabler konfigureras:-
o Original_String - den ursprungliga strängen som kommer att vändas ("måndag")
o Reversed_String - den omvända strängen (“yadnoM”)
o Next_Char - nästa tecken i strängen som ska backas
o Längd - strängens längd
o Pos - den aktuella positionen i strängen
• En InputBox för att fånga strängen. Detta lagras i variabeln "Original String"
• Strängens längd beräknas med LEN -funktionen och lagras i variabeln Längd
• En FOR… NEXT loop är inställd för att gå igenom strängen som börjar med det sista tecknet och arbetar bakåt ett tecken i taget
• Nästa tecken i den ursprungliga strängen (arbetar bakåt) läggs sedan till den omvända strängen
• Denna loop repeteras tills vi har passerat strängens hela längd
• Den omvända strängen visas i en MsgBox.
Ladda ner Excel -filen här
