Vai al contenuto

Contare le lettere

Contare le occorrenze delle lettere dell’alfabeto all’interno di una frase

conta_lettere

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

Lascia un commento

Il tuo indirizzo email non sarà pubblicato. I campi obbligatori sono contrassegnati *

Questo sito usa Akismet per ridurre lo spam. Scopri come i tuoi dati vengono elaborati.