Allpool vaatame programmi Exceli VBA et saab tagurpidi stringid.
Olukord:
Asetage oma töölehele käsunupp ja lisage järgmised koodiridad:
1. Esiteks deklareerime neli muutujat. Üks muutuja nimega tekst tüüpi String, üks muutuja nimega reversedText ka tüüpi String, üks muutuja nimega pikkus täisarv ja üks muutuja nimega i täisarv.
Hämardage tekst stringina, vastupidine tekst stringina, pikkus täisarvuna ja i täisarvuna
2. Initsialiseerime kaks muutujat. Kasutajalt tekstistringi saamiseks kasutame funktsiooni InputBox. Stringi pikkuse saamiseks kasutame Excel VBA funktsiooni Len.
text = InputBox ("Sisestage tekst, mida soovite ümber pöörata")
pikkus = Len (tekst)
3. Alustame For For Next tsüklit.
I = 0 kuni pikkus - 1
4. Nüüd tuleb lihtne trikk. Me võtame tekstist viimase märgi ja asetame selle ReversedText ette. Funktsiooni Mid abil saame Excel VBA -s stringist märgi eraldada. Kasutame operaatorit & kahe stringi ühendamiseks (ühendamiseks).
reversedText = reverseText & Mid (tekst, (pikkus - i), 1)
5. Ärge unustage silmust sulgeda.
Edasi i
Näide: text = "Auto". Teksti pikkus on 3. Kui i = 0 kuni 2, ekstraheerime teksti alamstringi, mis algab positsiooni pikkusest - i pikkusega 1. Seega i = 0 korral on keskmine (tekst, 3, 1) võrdne r -ga. Asetame r pöördteksti esimesele positsioonile. Kui i = 1, on keskmine (tekst, 2, 1) võrdne a. Lisame tagasipööratud tekstile a, millest saab ra. Kui i = 2, on keskmine (tekst, 1, 1) võrdne C. Lisame C pöördtekstile, millest saab raC.
6. Lõpuks kuvame MsgBoxi abil reversedText.
msgbox reversedText
7. Testige programmi.
Tulemus: