Contare le occorrenze delle lettere dell’alfabeto all’interno di una frase
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