Laskemalla kirjaintaajuus taulukossa

• Saattaa 2, 2024

Tämä näytekoodi auttaa sinua näkemään, mitä taulukkoja voidaan käyttää, ja näyttää myös silmukan toiminnassa.

Oletetaan, että haluat käyttäjän syöttävän lauseen, ja sitten ilmoittaa heille kuinka monta kertaa he käyttivät kutakin aakkoskirjainta. Joten jos käyttäjä kirjoitti:

Söin kissani.

Palaat sivun, jossa sanotaan:

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

OK, vaihe yksi. Haluat laskea 26 erilaista kohtaa, yksi jokaiselle aakkosten kirjaimelle. Tämä melkein huutaa ryhmä. Joten aloita a

Dim LetterCount (26)
for CurrLtr = 1 - 26
LetterCount (CurrLtr) = 0
Seuraava

Se on hyvä esimerkki seuraavaa silmukkaa varten. OK, toistaiseksi niin hyvä. Sinulla on 26 pistettä nollassa, odottaen laskemista. Nyt työskentele tiesi läpi lauseen nähdäksesi mitä siinä on. Oletetaan, että kutsut tätä lausetta CurrTextiksi.

Ensin haluat tarkistaa jokaisen lauseen kirjaimen. Teen tämän väliaikaisella silmukalla, jotta näet miten se toimii. Joten aloitat:

SenLen = len (CurrText)
CurrCtr = 1
tee, kun CurrCtr <= SenLen
CurrLtr = vasen (CurrText, 1)

Sinulla on seuraava kirje järjestyksessä. Nyt jokaiselle kirjeelle liittyy tietenkin ascii-arvo. Ne vaihtelevat välillä 65 A: sta 90: een Z: n tapauksessa. Asialla on merkitystä. Joten seuraavaksi iso kirjain varmistaaksesi, että se on välillä 65-90, ja vähennä 64 niin, että A = 1 ja Z = 26.

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

Joten nyt sinulla on numero välillä 1 - 26, joka osoittaa mikä kirjain tämä on. Seuraava vaihe on tietysti helppo. Lisää vain ämpäri! Voit halutessasi sivuuttaa kaikki muut kuin kirjaimet, jos olet huolissasi heidän joutumisestaan ​​streamiin.

jos CurrLtrA> 0 ja CurrLtrA <65, niin
LetterCount (CurrLtrA) = LetterCount (CurrLTrA) + 1
loppu Jos

Ja nyt silmukan lopussa pääset eroon kirjeestä, jolla juuri työskentelit, niin että kun menet silmukkaan, lauseen ensimmäinen kirjain on seuraava järjestyksessä.

CurrText = Oikea (CurrText, len (CurrText) - 1)
CurrCtr = CurrCtr + 1
silmukka

Joten nyt ryhmäsi on täynnä numeroita, jotka vaihtelevat nollasta mihin tahansa, jokainen ilmoittaa kuinka monta kertaa tämä kirje löydettiin. Voit näyttää ne millä haluat. Jos haluat käyttää silmukkaa ja CHR-toimintoa, joka näyttää kirjaimen, jolla on tietty ASCII-koodi, voit tehdä:

for CurrLtr = 1 - 26
response.write "Kirje"
CurrAscii = CurrLtr + 64
CurrLtrA = chr (CurrAscii)
response.write CurrLtrA & "löytyi"
response.write LetterCount (CurrLtr) & "kertaa.
"
Seuraava

Muista lopettaa foorumillamme tai kirjoittaa, jos sinulla on kysyttävää!

Johdanto ASP: n e-kirjastoon Lataa tämä e-kirja saadaksesi kaiken mitä tarvitset ASP: n oppimisesta - askel askeleelta opetusohjelmasta toimintoluetteloihin, näytekoodiin, yleisiin virheisiin ja ratkaisuihin ja paljon muuta! 101 sivua.

Video-Ohjeita: Excel 2016 (III) - Peruslaskutoimitukset ja kaavan kopiointi, summan laskeminen (Saattaa 2024).