Liczenie częstotliwości liter w tablicy

• Może 6, 2024

Ten przykładowy kod pomaga zobaczyć, do jakich tablic można użyć, a także pokazuje pętlę w akcji.

Powiedzmy, że chcesz, aby użytkownik wprowadził zdanie, a następnie poinformuj go, ile razy używał każdej litery alfabetu. Więc jeśli użytkownik wpisze:

Zjadłem mojego kota.

Zwrócisz stronę z napisem:

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

OK, krok pierwszy. Chcesz liczyć 26 różnych pozycji, po jednej na każdą literę alfabetu. To prawie krzyki szyk. Więc zacznij od

Dim LetterCount (26)
dla CurrLtr = 1 do 26
LetterCount (CurrLtr) = 0
Kolejny

To dobry przykład następnej pętli. OK, jak dotąd tak dobrze. Masz 26 miejsc zerowych, czekających na rozpoczęcie liczenia. Teraz przejdź przez zdanie, aby zobaczyć, co się w nim znajduje. Powiedzmy, że nazywasz to zdanie CurrText.

Najpierw chcesz sprawdzić każdą literę w zdaniu. Zrobię to za pomocą pętli do-while, abyś mógł zobaczyć, jak to działa. Więc zacznij od:

SenLen = len (CurrText)
CurrCtr = 1
zrobić, gdy CurrCtr <= SenLen
CurrLtr = left (CurrText, 1)

Masz kolejną literę w kolejności. Teraz każda litera ma oczywiście wartość ascii. Zakres ten wynosi od 65 dla A do 90 dla Z. Case ma znaczenie. Następnie należy wpisać wielką literę, aby upewnić się, że mieści się ona między 65 a 90, i odjąć 64, aby A = 1 i Z = 26.

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

Więc teraz masz liczbę od 1 do 26, która wskazuje, która to litera. Następny krok jest oczywiście łatwy. Po prostu zwiększasz to wiadro! Jeśli chcesz, możesz zignorować wszelkie nieliterowe litery, jeśli martwisz się, że dostaną się do strumienia.

jeśli CurrLtrA> 0 i CurrLtrA <65, to
LetterCount (CurrLtrA) = LetterCount (CurrLTrA) + 1
koniec jeśli

A teraz na końcu pętli pozbywasz się litery, nad którą właśnie pracowałeś, aby po obejściu pętli pierwsza litera w zdaniu była następna w kolejności.

CurrText = Prawo (CurrText, len (CurrText) - 1)
CurrCtr = CurrCtr + 1
pętla

Więc teraz twoja tablica jest pełna liczb od 0 do cokolwiek, każda wskazująca ile razy znaleziono tę literę. Możesz wyświetlić je w dowolny sposób. Jeśli chcesz użyć pętli i funkcji CHR, która pokazuje literę zawierającą określony kod ASCII, możesz:

dla CurrLtr = 1 do 26
response.write „List”
CurrAscii = CurrLtr + 64
CurrLtrA = chr (CurrAscii)
response.write CurrLtrA & „znaleziono”
response.write LetterCount (CurrLtr) i „razy.
"
Kolejny

Koniecznie odwiedź nasze fora lub napisz, jeśli masz jakieś pytania!

Wprowadzenie do ASP Ebook Pobierz ten ebook, aby uzyskać wszystko, co musisz wiedzieć o nauce ASP - od samouczka krok po kroku po listy funkcji, przykładowy kod, typowe błędy i rozwiązania i wiele więcej! 101 stron.

Instrukcje Wideo: Excel - Funkcja CZĘSTOŚĆ - liczenie liczb w przedziałach - widzowie #22 (Może 2024).