Tähtede sageduse loendamine massiivis

• Aprill 20, 2024

See näidiskood aitab teil näha, milliseid massiive saab kasutada, ja näitab ka tegevussilmust.

Oletame, et soovite, et kasutaja sisestaks lause, ja siis soovite neile teada anda, mitu korda nad tähestiku tähti kasutasid. Nii et kui kasutaja sisestas

Ma sõin oma kassi.

Te tagastaksite lehe, kus oleks kirjas:

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

OK, esimene samm. Soovite, et loendaksite 26 erinevat üksust, iga tähestiku kohta üks. See peaaegu karjub massiiv. Nii et alustage a-st

Dim LetterCount (26)
jaoks CurrLtr = 1 kuni 26
LetterCount (CurrLtr) = 0
järgmine

See on hea näide järgmise loo jaoks. OK, siiani nii hea. Teil on nullil 26 kohta, mis ootavad loendamise alustamist. Nüüd jätkake lause läbimist, et näha, mis selles on. Oletame, et nimetate seda lauset CurrTextiks.

Esiteks soovite kontrollida lauses kõiki tähti. Teen seda ajutise ahelaga, et näeksite, kuidas see töötab. Alustaksite siis järgmisest:

SenLen = len (CurrText)
CurrCtr = 1
teha, kui CurrCtr <= SenLen
CurrLtr = vasak (CurrText, 1)

Järgmine kiri on teil järjekorras. Nüüd on igal tähel muidugi sellega seotud ascii väärtus. Need on vahemikus 65 A ja 90 Z korral. Juhtum on oluline. Järgmisena suurendate suurtähte, veendudes, et see jääb vahemikku 65 kuni 90, ja lahutage 64 nii, et A = 1 ja Z = 26.

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

Nüüd on teil number 1 kuni 26, mis näitab, milline täht see on. Järgmine samm on muidugi lihtne. Sa lihtsalt suurendad seda ämbrit! Kui soovite, võite kindlasti mitte arvestada mittetähtelisi tähti, kui olete mures nende sattumise pärast voogu.

kui CurrLtrA> 0 ja CurrLtrA <65, siis
LetterCount (CurrLtrA) = LetterCount (CurrLTrA) + 1
lõpp kui

Ja nüüd on silmuse lõpp lahti saanud tähest, mille kallal just töötasite, nii et kui silmus ringi liikuda, on lause esimene täht järjekorras järgmine.

CurrText = Parempoolne (CurrText, len (CurrText) - 1)
CurrCtr = CurrCtr + 1
silmus

Nüüd on teie massiiv täis numbreid vahemikus 0 kuni kõik, igaüks näitab, mitu korda see täht leiti. Saate neid kuvada mis tahes viisil. Kui soovite kasutada silmust ja funktsiooni CHR, mis näitab tähte, millel on teatud ASCII kood, võiksite teha järgmist:

jaoks CurrLtr = 1 kuni 26
response.write "Kiri"
CurrAscii = CurrLtr + 64
CurrLtrA = chr (CurrAscii)
response.write CurrLtrA & "leiti"
response.write LetterCount (CurrLtr) & "korda.
"
järgmine

Peatage kindlasti meie foorumite juures või kirjutage, kui teil on küsimusi!

Sissejuhatus ASP e-raamatusse Laadige see e-raamat alla, et saada kõike, mida peate teadma ASP õppimise kohta - alates samm-sammult juhendajalt kuni funktsioonide loendite, proovikoodi, levinumate vigade ja lahenduste ja palju muud! 101 lk.

Video Juhiseid: RPC-313 The Wellspring | object class Omega Purple | Extradimensional / Infohazard RPC (Aprill 2024).