Nižšie sa pozrieme na program v Excel VBA to môže reverzné struny.
Situácia:
Na pracovný hárok umiestnite príkazové tlačidlo a pridajte nasledujúce riadky kódu:
1. Najprv deklarujeme štyri premenné. Jedna premenná sa nazýva text typu String, jedna premenná sa nazýva reversedText tiež typu String, jedna premenná sa nazýva dĺžka typu Integer a jedna premenná sa nazýva i typu Integer.
Dim text ako reťazec, obrátenýText ako reťazec, dĺžka ako celé číslo, i ako celé číslo
2. Inicializujeme dve premenné. Na získanie textového reťazca od používateľa používame funkciu InputBox. Na získanie dĺžky reťazca používame funkciu Len v programe Excel VBA.
text = InputBox („Zadajte text, ktorý chcete obrátiť“)
dĺžka = dĺžka (text)
3. Spustíme slučku For Next.
Pre i = 0 Do dĺžky - 1
4. Teraz prichádza jednoduchý trik. Vezmeme posledný znak z textu a umiestnime ho pred ReversedText. Na extrahovanie znaku z reťazca môžeme v Exceli VBA použiť funkciu Mid. Operátor & používame na zreťazenie (spojenie) dvoch reťazcov.
reversedText = reversedText & Mid (text, (dĺžka - i), 1)
5. Nezabudnite uzavrieť slučku.
Ďalej i
Príklad: text = "Auto". Dĺžka textu je 3. Pre i = 0 až 2 extrahujeme podreťazec textu začínajúceho na pozícii dĺžka - i s dĺžkou 1. Teda pre i = 0 sa stred (text, 3, 1) rovná r. R umiestnime na prvú pozíciu obráteného textu. Pre i = 1 sa stred (text, 2, 1) rovná a. Pridáme do reverzného textu, ktorý sa zmení na ra. Pre i = 2 sa stred (text, 1, 1) rovná C. Pridáme C do obráteného textu, z ktorého sa stane raC.
6. Nakoniec zobrazíme reversedText pomocou MsgBox.
msgbox reversedText
7. Otestujte program.
Výsledok: