Níže se podíváme na program v Excel VBA to může obrácené řetězce.
Situace:
Umístěte na list příkazové tlačítko a přidejte následující řádky kódu:
1. Nejprve deklarujeme čtyři proměnné. Jedna proměnná nazvaná text typu String, jedna proměnná nazvaná reversedText také typu String, jedna proměnná nazvaná délka typu Integer a jedna proměnná nazvaná i typu Integer.
Dim text jako řetězec, obrácený Text jako řetězec, délka jako celé číslo, i jako celé číslo
2. Inicializujeme dvě proměnné. K získání textového řetězce od uživatele používáme funkci InputBox. K získání délky řetězce používáme funkci Len v Excelu VBA.
text = InputBox („Zadejte text, který chcete obrátit“)
délka = Len (text)
3. Spustíme smyčku For Next.
Pro i = 0 Do délky - 1
4. Nyní přichází jednoduchý trik. Vezmeme poslední znak z textu a umístíme jej na začátek ReversedText. K extrahování znaku z řetězce můžeme použít funkci Mid v Excelu VBA. Ke zřetězení (spojení) dvou řetězců používáme operátor &.
reversedText = reversedText & Mid (text, (délka - i), 1)
5. Nezapomeňte uzavřít smyčku.
Příště já
Příklad: text = "Auto". Délka textu je 3. Pro i = 0 až 2 extrahujeme podřetězec textu počínaje délkou pozice - i s délkou 1. Pro i = 0 se tedy Mid (text, 3, 1) rovná r. Umístíme r na první pozici reversedText. Pro i = 1 se Mid (text, 2, 1) rovná a. Přidáme a do reversedText, který se stane ra. Pro i = 2 se Mid (text, 1, 1) rovná C. Přidáme C do reversedText, který se stane raC.
6. Nakonec zobrazíme reversedText pomocí MsgBox.
msgbox reversedText
7. Otestujte program.
Výsledek: