Nedenfor ser vi på et program i Excel VBA der kan omvendte strenge.
Situation:
Placer en kommandoknap på dit regneark, og tilføj følgende kodelinjer:
1. For det første erklærer vi fire variabler. En variabel kaldet tekst af typen String, en variabel kaldet reversedText også af typen String, en variabel kaldet længden af typen Heltal og en variabel kaldet i af typen Heltal.
Dim tekst som streng, omvendt tekst som streng, længde som heltal, i som heltal
2. Vi initialiserer to variabler. Vi bruger InputBox -funktionen til at få en tekststreng fra brugeren. Vi bruger Len -funktionen i Excel VBA til at få længden af en streng.
text = InputBox ("Indtast den tekst, du vil reversere")
længde = Len (tekst)
3. Vi starter en For Next loop.
For i = 0 Til længde - 1
4. Nu kommer det enkle trick. Vi tager det sidste tegn fra teksten og placerer det foran i ReversedText. Vi kan bruge Mid -funktionen i Excel VBA til at udtrække et tegn fra en streng. Vi bruger operatøren & til at sammenkoble (forbinde) to strenge.
reversedText = reversedText & Mid (tekst, (længde - i), 1)
5. Glem ikke at lukke sløjfen.
Næste i
Eksempel: tekst = "Bil". Tekstens længde er 3. For i = 0 til 2 ekstraherer vi delstrengen af tekst, der starter ved positionslængde - i med længde 1. Således for i = 0 er Mid (tekst, 3, 1) lig med r. Vi placerer r på den første position af reversedText. For i = 1, Mid (tekst, 2, 1) er lig med a. Vi tilføjer a til reversedText, som bliver til ra. For i = 2, Mid (tekst, 1, 1) er lig med C. Vi tilføjer C til reverseText, der bliver til raC.
6. Endelig viser vi reversedText ved hjælp af en MsgBox.
msgbox reversedText
7. Test programmet.
Resultat: