Burtu skaitīšanas biežums masīvā

• Aprīlis 20, 2024

Šis parauga kods palīdz jums redzēt, kādus masīvus var izmantot, kā arī parāda cilpu darbībā.

Pieņemsim, ka vēlaties, lai lietotājs ievada teikumu, un tad jūs vēlaties viņam paziņot, cik reizes viņi izmantoja katru alfabēta burtu. Tātad, ja lietotājs ierakstīja:

Es ēdu savu kaķi.

Jūs atgriezīsit lapu, kurā teikts:

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

Labi, pirmais solis. Jūs vēlaties, lai tiktu skaitīti 26 dažādi priekšmeti, pa vienam katram alfabēta burtam. Tas tikai par kliedzieniem masīvs. Tāpēc sāciet ar

Dim LetterCount (26)
CurrLtr = no 1 līdz 26
LetterCount (CurrLtr) = 0
Nākamais

Tas ir labs nākamās cilpas piemērs. Labi, līdz šim tik labi. Jums ir 26 punkti uz nulles, kas gaida, kad varēsit sākt skaitīt. Tagad jāizstrādā teikums, lai redzētu, kas tajā ir. Pieņemsim, ka jūs saucat šo teikumu par CurrText.

Pirmkārt, jūs vēlaties pārbaudīt katru teikuma burtu. Es to izdarīšu ar īslaicīgu cilpu, lai jūs varētu redzēt, kā tas darbojas. Tātad jūs sāktu ar:

SenLen = len (CurrText)
CurrCtr = 1
dariet, kamēr CurrCtr <= SenLen
CurrLtr = pa kreisi (CurrText, 1)

Jums ir kārtējā nākamā vēstule. Tagad katram burtam, protams, ir saistīta ar ascii vērtību. Tie svārstās no 65 A līdz 90 Z gadījumā. Lieta ir nozīmīga. Tad nākamreiz burtu palielinat ar burtu, lai pārliecinātos, ka tas ir starp 65 un 90, un atņemiet 64, lai A = 1 un Z = 26.

CurrLtr = ucase (CurrLtr)
CurrLtrA = augošs (CurrLtr)
CurrLtrA = CurrLtrA - 64

Tātad tagad jums ir skaitlis no 1 līdz 26, kas norāda, kurš burts tas ir. Nākamais solis, protams, ir viegls. Jūs vienkārši palielināt to kausu! Ja vēlaties, varat ignorēt jebkuru burtu, kas nav burts, ja jūs uztraucaties par to nokļūšanu straumē.

ja CurrLtrA> 0 un CurrLtrA <65, tad
LetterCount (CurrLtrA) = LetterCount (CurrLTrA) + 1
beigas, ja

Un tagad cilpas beigas jūs atbrīvojaties no burta, pie kura jūs tikko strādājāt, lai, ejot cilpā, teikuma pirmais burts būtu kārtējais.

CurrText = Labais (CurrText, len (CurrText) - 1)
CurrCtr = CurrCtr + 1
cilpa

Tagad jūsu masīvs ir pilns ar cipariem, sākot no 0 līdz visam, katrs norāda, cik reizes šī vēstule ir atrasta. Jūs varat tos parādīt jebkurā veidā. Ja vēlaties izmantot cilpu un funkciju CHR, kas parāda burtu, kam ir noteikts ASCII kods, varat rīkoties šādi:

CurrLtr = no 1 līdz 26
response.write "Vēstule"
CurrAscii = CurrLtr + 64
CurrLtrA = chr (CurrAscii)
response.write CurrLtrA & "atrasts"
response.write LetterCount (CurrLtr) & "reizes.
"
Nākamais

Noteikti apstājieties mūsu forumos vai rakstiet, ja jums ir kādi jautājumi!

Ievads ASP Ebook Lejupielādējiet šo e-grāmatu, lai iegūtu visu, kas jums jāzina par ASP apgūšanu - sākot ar pakāpenisku apmācību līdz funkciju sarakstiem, parauga kodiem, izplatītākajām kļūdām un risinājumiem un vēl daudz ko citu! 101 lpp.

Video Instrukcijas: Programming - Computer Science for Business Leaders 2016 (Aprīlis 2024).