Käännä tekstimerkkijono VBA: n avulla
Alla olevan VBA -rutiinin avulla käyttäjä voi syöttää merkkijonon, ja se esitetään sitten samalla merkkijonolla taaksepäin. Esimerkiksi "maanantaista" tulee "yadnoM":
| 123456789101112131415161718192021222324252627282930313233343536 | Vaihtoehto SelkeäYksityinen alikomentoButton1_Click ()'Määritä muuttujatHimmennä alkuperäinen_merkkijono merkkijononaHimmennä käänteinen_merkkijono merkkijononaHimmennä seuraava_merkki merkkijononaDim pituus kokonaislukunaDim Pos kokonaislukuna'Hanki alkuperäinen merkkijonoOriginal_String = InputBox ("Pls kirjoita alkuperäinen merkkijono:")'Etsi merkkijonon tarkistettu pituusPituus = Len (alkuperäinen_merkkijono)'Aseta käänteinen merkkijonoReversed_String = ""'Edistyminen merkkijonon kautta merkkikohtaisesti'Aloita viimeisestä merkistä ja siirry kohti ensimmäistä merkkiäPos = pituus 1 vaiheeseen -1Next_Char = Mid (Original_String, Pos, 1)Reversed_String = Reversed_String & Next_CharSeuraava posMsgBox "Käänteinen merkkijono on" & Reversed_StringEnd Sub |
Koodin pääominaisuudet ovat:-
• Se tarvitsee komentopainikkeen aktivoidakseen koodin napsautustapahtumassa
• Seuraavat muuttujat on määritetty:-
o Original_String - alkuperäinen merkkijono, joka käännetään ("maanantai")
o Reversed_String - käänteinen merkkijono ("yadnoM")
o Next_Char - seuraava merkki merkkijonossa, joka käännetään
o Pituus - merkkijonon pituus
o Pos - merkkijonon nykyinen sijainti
• Syöttölaatikko merkkijonon sieppaamiseen. Tämä tallennetaan muuttujaan "Original String"
• Merkkijonon pituus lasketaan LEN -toiminnolla ja tallennetaan muuttujan pituus -arvoon
• FOR… NEXT -silmukka on määritetty käymään läpi merkkijonon, joka alkaa viimeisestä merkistä ja toimii taaksepäin yksi merkki kerrallaan
• Seuraava merkki alkuperäisessä merkkijonossa (toimii taaksepäin) lisätään sitten käänteiseen merkkijonoon
• Tämä silmukka toistetaan, kunnes olemme kulkeneet koko merkkijonon
• Käänteinen merkkijono näkyy MsgBoxissa.
Lataa Excel -tiedosto tästä
