Räkna bokstavsfrekvens i en matris

• Maj 17, 2024

Denna exempelkod hjälper dig att se vilka matriser som kan användas för och visar också en slinga i aktion.

Låt oss säga att du vill att användaren ska mata in en mening, och sedan vill du berätta för dem hur många gånger de använde varje bokstav i alfabetet. Så om användaren skrev in:

Jag åt min katt.

Du skulle returnera en sida som sa:

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

OK, steg ett. Du vill räkna 26 olika objekt, en för varje bokstav i alfabetet. Det här bara skriker ut array. Så börja med en

Dim LetterCount (26)
för CurrLtr = 1 till 26
LetterCount (CurrLtr) = 0
Nästa

Det är ett bra exempel på en nästa slinga. OK, hittills så bra. Du har 26 platser på noll och väntar på att börja räkna. Nu ska du gå igenom meningen för att se vad som finns i den. Låt oss säga att du kallar den här meningen CurrText.

Först vill du kontrollera varje bokstav i meningen. Jag gör detta med en do-while-slinga så att du kan se hur det fungerar. Så du skulle börja med:

SenLen = len (CurrText)
CurrCtr = 1
gör medan CurrCtr <= SenLen
CurrLtr = vänster (CurrText, 1)

Du har nästa brev i ordning. Nu har varje bokstav naturligtvis ett asciivärde associerat med det. De varierar från 65 för A till 90 för Z. Fall spelar ingen roll. Så nästa bokstäver med stor bokstav för att se till att den faller mellan 65 och 90 och subtrahera 64 så att A = 1 och Z = 26.

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

Så nu har du ett nummer från 1 till 26 som anger vilken bokstav det är. Nästa steg är naturligtvis enkelt. Du ökar bara den hinken! Om du vill kan du se till att ignorera alla icke-brev, om du är orolig för att de kommer in i strömmen.

om CurrLtrA> 0 och CurrLtrA <65 då
LetterCount (CurrLtrA) = LetterCount (CurrLTrA) + 1
slut om

Och nu i slutet av slingan blir du av med det brev du bara jobbade på så att när du går runt i slingan är den första bokstaven i meningen den nästa i ordning.

CurrText = Right (CurrText, len (CurrText) - 1)
CurrCtr = CurrCtr + 1
slinga

Så nu är din matris full av siffror som sträcker sig från 0 till vad som helst, var och en indikerar hur många gånger den bokstaven hittades. Du kan visa dem på vilket sätt du vill. Om du ville använda en slinga och CHR-funktionen, som visar bokstaven som har en viss ASCII-kod, kan du göra:

för CurrLtr = 1 till 26
response.write "Brevet"
CurrAscii = CurrLtr + 64
CurrLtrA = chr (CurrAscii)
response.write CurrLtrA & "hittades"
response.write LetterCount (CurrLtr) & "gånger.
"
Nästa

Var noga med att komma in på våra forum eller skriva om du har några frågor!

Introduktion till ASP Ebook Ladda ner den här e-boken för att få allt du behöver veta om inlärning av ASP - från en steg för steg handledning till funktionslistor, provkod, vanliga fel och lösningar och mycket mer! 101 sidor.