Invertire una stringa di testo con VBA
La routine VBA di seguito consente all'utente di inserire una stringa e viene quindi presentata con la stessa stringa all'indietro. Ad esempio "lunedì" diventa "yadnoM":
| 123456789101112131415161718192021222324252627282930313233343536 | Opzione esplicitaSub CommandButton1_Click privato ()"Definisci variabili"Dim Original_String As StringDim Reversed_String As StringDim Next_Char As StringDim Lunghezza come interoDim Pos As Integer"Prendi la corda originale"Original_String = InputBox("Inserisci la stringa originale: ")'Trova la lunghezza rivista della stringaLunghezza = Len(Original_String)'Imposta la stringa invertitaReversed_String = ""'Avanza attraverso la stringa carattere per carattere'Partendo dall'ultimo carattere e andando verso il primo caratterePer Pos = Lunghezza a 1 passo -1Next_Char = Mid(Original_String, Pos, 1)Reversed_String = Reversed_String & Next_CharPosizione successivaMsgBox "La stringa invertita è " & Reversed_StringFine sottotitolo |
Le caratteristiche principali del codice sono: -
• Necessita di un pulsante di comando per attivare il codice - sull'evento click
• Sono impostate le seguenti variabili :-
o Original_String - la stringa originale che verrà invertita ("lunedì")
o Reversed_String - la stringa invertita ("yadnoM")
o Next_Char - il carattere successivo nella stringa che verrà invertito
o Lunghezza - la lunghezza della stringa
o Pos - la posizione corrente nella stringa
• Un InputBox per catturare la stringa. Questo è memorizzato nella variabile "Stringa originale"
• La lunghezza della stringa viene calcolata utilizzando la funzione LEN e memorizzata nella variabile Lunghezza
• Viene impostato un ciclo FOR… NEXT per scorrere la stringa partendo dall'ultimo carattere e procedendo all'indietro di un carattere alla volta
• Il carattere successivo nella stringa originale (lavorando all'indietro) viene quindi aggiunto alla stringa invertita
• Questo ciclo viene ripetuto finché non abbiamo attraversato l'intera lunghezza della stringa
• La stringa invertita viene visualizzata in un MsgBox.
Scarica qui il file Excel
