Conteggio della frequenza delle lettere in una matrice

• Aprile 28, 2024

Questo codice di esempio consente di vedere per quali array è possibile utilizzare e mostra anche un loop in azione.

Diciamo che vuoi che l'utente inserisca una frase, e poi vuoi fargli sapere quante volte ha usato ogni lettera dell'alfabeto. Quindi se l'utente ha digitato:

Ho mangiato il mio gatto.

Restituiresti una pagina che diceva:

a: 2
c: 1
e: 1
i: 1
m: 1
t: 2
y: 1

OK, primo passo. Vuoi contare 26 articoli diversi, uno per ogni lettera dell'alfabeto. Questo quasi urla Vettore. Quindi inizia con a

Dim LetterCount (26)
per CurrLtr = da 1 a 26
LetterCount (CurrLtr) = 0
Il prossimo

Questo è un buon esempio di loop per il prossimo. OK, finora tutto bene. Hai 26 punti a zero, in attesa di iniziare il conteggio. Ora cerca la frase per vedere cosa c'è dentro. Supponiamo che tu chiami questa frase CurrText.

Innanzitutto, vuoi controllare ogni lettera nella frase. Lo farò con un ciclo do-while in modo da poter vedere come funziona. Quindi inizieresti con:

SenLen = len (CurrText)
CurrCtr = 1
fare mentre CurrCtr <= SenLen
CurrLtr = left (CurrText, 1)

Hai la prossima lettera in ordine. Ora, ovviamente, a ciascuna lettera è associato un valore ASCII. Questi vanno da 65 per A a 90 per Z. Il caso è importante. Quindi la lettera maiuscola per accertarsi che sia compresa tra 65 e 90 e sottrarre 64 in modo che A = 1 e Z = 26.

CurrLtr = ucase (CurrLtr)
CurrLtrA = asc (CurrLtr)
CurrLtrA = CurrLtrA - 64

Quindi ora hai un numero compreso tra 1 e 26 che indica di quale lettera si tratta. Il prossimo passo è ovviamente facile. Basta incrementare quel secchio! Se lo desideri, puoi assicurarti di ignorare qualsiasi non lettera, se sei preoccupato che entrino nel flusso.

se CurrLtrA> 0 e CurrLtrA <65 allora
LetterCount (CurrLtrA) = LetterCount (CurrLTrA) + 1
finisci se

E ora alla fine del ciclo, ti sbarazzi della lettera a cui stavi lavorando in modo che quando vai in giro nel ciclo, la prima lettera della frase è la successiva in ordine.

CurrText = Right (CurrText, len (CurrText) - 1)
CurrCtr = CurrCtr + 1
ciclo continuo

Quindi ora il tuo array è pieno di numeri che vanno da 0 a qualunque cosa, ognuno che indica quante volte quella lettera è stata trovata. Puoi visualizzarli come preferisci. Se si desidera utilizzare un ciclo e la funzione CHR, che mostra la lettera che ha un determinato codice ASCII, è possibile eseguire:

per CurrLtr = da 1 a 26
response.write "La lettera"
CurrAscii = CurrLtr + 64
CurrLtrA = chr (CurrAscii)
response.write CurrLtrA & "è stato trovato"
response.write LetterCount (CurrLtr) & "volte.
"
Il prossimo

Assicurati di fermarti nei nostri forum o di scrivere se hai domande!

Introduzione ad ASP Ebook Scarica questo ebook per ottenere tutto ciò che devi sapere sull'apprendimento di ASP: da un tutorial passo-passo a elenchi di funzioni, codice di esempio, errori e soluzioni comuni e molto altro! 101 pagine.

Istruzioni Video: Determinante di una Matrice (Aprile 2024).