Számol egy betű betűgyakoriságát

• Lehet 5, 2024

Ez a példakód segít látni, hogy mely tömbök használhatók, és megmutatja egy hurkot is.

Tegyük fel, hogy azt akarja, hogy a felhasználó beírjon egy mondatot, és aztán tudatja velük, hányszor használták az ábécé egyes betűit. Tehát ha a felhasználó beírt:

Megettem a macskám.

Visszaadna egy oldalt, amelyben a következő volt:

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

Rendben, az első lépés. 26 különböző tételt kell számolnia, egy-egy ábécé betűjéhez. Ez csak a sikításokról szól sor. Tehát kezdje meg a

Dim LetterCount (26)
CurrLtr = 1-től 26-ig
LetterCount (CurrLtr) = 0
következő

Ez jó példa a következő ciklusra. Oké, eddig olyan jó. 26 pont van nullán, és számolhat. Most dolgozzon végig a mondaton, hogy megnézze, mi van benne. Tegyük fel, hogy ezt a mondatot CurrTextnek hívja.

Először ellenőrizze a mondat minden betűjét. Ezt megteszem egy rövid ideig tartó hurokkal, így láthatja, hogy működik. Tehát kezdje:

SenLen = len (CurrText)
CurrCtr = 1
addig, amíg a CurrCtr <= SenLen
CurrLtr = bal (CurrText, 1)

Megvan a sorrendben a következő levél. Most természetesen minden levélhez tartozik egy ascii érték. Ezek a tartományok a 65-től az A-ig 90-ig terjednek. Tehát legközelebb nagybetűvel írja be a betűt, hogy megbizonyosodjon arról, hogy 65 és 90 közé esik-e, és vonja ki a 64-et úgy, hogy A = 1 és Z = 26.

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

Tehát most van egy száma 1-től 26-ig, amely jelzi, hogy melyik betű ez. A következő lépés természetesen könnyű. Csak növekszik a vödör! Ha szeretné, akkor mindenképpen hagyhatja figyelmen kívül a nem betűket, ha aggódik, hogy azok kerülnek a patakba.

ha CurrLtrA> 0 és CurrLtrA <65, akkor
LetterCount (CurrLtrA) = LetterCount (CurrLTrA) + 1
vége, ha

És a hurok végén megszabadul a betűtől, amelyen éppen dolgozott, úgyhogy amikor körbejár a körben, a mondat első betűje a következő sorrendben van.

CurrText = Jobb (CurrText, len (CurrText) - 1)
CurrCtr = CurrCtr + 1
hurok

Tehát most a tömb tele van 0-tól bármilyenig terjedő számokkal, mindegyik jelzi, hogy hányszor találták meg a levelet. Bármilyen módon megjelenítheti őket. Ha egy hurkot és a CHR funkciót akarta használni, amely azt a betűt mutatja, amelynek egy bizonyos ASCII kódja van, akkor megteheti:

CurrLtr = 1-től 26-ig
response.write "A levél"
CurrAscii = CurrLtr + 64
CurrLtrA = chr (CurrAscii)
response.write CurrLtrA & "talált"
response.write LetterCount (CurrLtr) & "idő.
"
következő

Feltétlenül álljon meg a fórumokon, vagy írjon, ha bármilyen kérdése van!

Bevezetés az ASP Ebook-ba Töltse le ezt az e-könyvet, hogy mindent megkapjon, amit tudnia kell az ASP elsajátításáról - lépésről lépésre az oktatóprogramtól a funkciók listájáig, a mintakódig, a gyakori hibákhoz és megoldásokig, és még sok másig! 101 oldal.

Video Utasításokat: Tompeti és Barátai - Számolj velünk! (Lehet 2024).