Pöörake tekstirida VBA abil ümber
Allpool olev VBA rutiin võimaldab kasutajal sisestada stringi ja seejärel esitatakse see sama stringi tagurpidi. Näiteks "esmaspäev" muutub "yadnoM":
| 123456789101112131415161718192021222324252627282930313233343536 | Valik SelgePrivaatne alamkäsk Button1_Click ()'Määrake muutujadDim Original_String stringinaDim Reversed_String stringinaHämarda stringina string Next_CharPikkus täisarvunaDim Pos täisarvuna'Hankige algne stringOriginal_String = InputBox ("Pls sisestage algne string:")'Leidke stringi muudetud pikkusPikkus = Len (Original_String)'Seadistage vastupidine stringReversed_String = ""'Edenege stringi kaudu tähemärgipõhiselt"Alustades viimasest tähemärgist ja minnes esimese märgi poolePos = pikkus kuni 1. sammuni -1Next_Char = Mid (Original_String, Pos, 1)Reversed_String = Reversed_String & Next_CharJärgmine posMsgBox "Pööratud string on" & Reversed_StringEnd Sub |
Koodi põhijooned on järgmised:-
• Koodi aktiveerimiseks on vaja käsunuppu - klõpsamisüritusel
• Seadistatud on järgmised muutujad:-
o Original_String - algne string, mis pööratakse ümber (“esmaspäev”)
o Reversed_String - vastupidine string (“yadnoM”)
o Next_Char - järgmine märk stringis, mis pööratakse ümber
o Pikkus - nööri pikkus
o Pos - stringi praegune asukoht
• Sisendkast stringi jäädvustamiseks. See on salvestatud muutuja „Original String”
• Stringi pikkus arvutatakse funktsiooni LEN abil ja salvestatakse muutuja pikkusesse
• FOR… NEXT tsükkel on seadistatud läbima stringi, alustades viimasest tähemärgist ja töötades tagurpidi üks märk korraga
• Seejärel lisatakse tagurpidi stringi järgmine märk (töötab tagurpidi)
• Seda tsüklit korratakse seni, kuni oleme läbinud kogu stringi pikkuse
• Pööratud string kuvatakse MsgBoxis.
Laadige Exceli fail alla siit
