Obrácení řetězce textu - příklady kódu VBA

Obraťte řetězec textu pomocí VBA

Níže uvedený postup VBA umožňuje uživateli zadat řetězec a poté je stejný řetězec zobrazen zpět. Například „pondělí“ se stane „yadnoM“:

123456789101112131415161718192021222324252627282930313233343536 Možnost ExplicitníPrivate Sub CommandButton1_Click ()"Definujte proměnné."Dim Original_String jako řetězecDim Reversed_String jako řetězecDim Next_Char jako řetězecDim Délka jako celé čísloDim Pos jako celé číslo„Získejte originální řetězecOriginal_String = InputBox ("Zadejte prosím původní řetězec:")`` Najděte revidovanou délku řetězceDélka = Len (Original_String)"Nastavte obrácený řetězec."Reversed_String = ""'Procházejte řetězcem na bázi znak po znaku.'"Počínaje posledním znakem a směrem k prvnímu znaku."Pro Pos = délka do 1 Krok -1Next_Char = Mid (Original_String, Pos, 1)Reversed_String = Reversed_String & Next_CharDalší pozMsgBox "Obrácený řetězec je" & Reversed_StringEnd Sub

Hlavní rysy kódu jsou:-

• K aktivaci kódu potřebuje příkazové tlačítko - při události kliknutí
• Nastaví se následující proměnné:-

o Original_String - původní řetězec, který bude obrácen („pondělí“)
o Reversed_String - obrácený řetězec („yadnoM“)
o Next_Char - další znak v řetězci, který bude obrácen
o Délka - délka řetězce
o Pos - aktuální pozice v řetězci

• InputBox k zachycení řetězce. Toto je uloženo v proměnné „Původní řetězec“
• Délka řetězce se vypočítá pomocí funkce LEN a uloží se do proměnné Délka
• Smyčka FOR… NEXT je nastavena tak, aby procházela řetězcem počínaje posledním znakem a pracovala zpět po jednom znaku
• Do obráceného řetězce je pak přidán další znak v původním řetězci (pracující pozpátku)
• Tato smyčka se opakuje, dokud jsme neprošli celou délku řetězce
• Obrácený řetězec je zobrazen v MsgBox.

Stáhněte si soubor aplikace Excel zde

wave wave wave wave wave