Contare le occorrenze delle lettere dell’alfabeto all’interno di una frase
|
1 2 3 4 5 6 7 8 9 10 11 |
testo="ADDIO alle armi" For X=1 To Text.GetLength(testo) CAR=Text.GetSubText(testo, X, 1) CONTA[CAR]=CONTA[CAR]+1 EndFor c_A=Text.GetCharacterCode("A") c_Z=Text.GetCharacterCode("Z") For X=c_A To c_Z CAR=Text.GetCharacter(X) TextWindow.WriteLine(CAR + " -> " + CONTA[CAR]) EndFor |