Mengira Kekerapan Huruf dalam Array

• April 29, 2024

Kod sampel ini membantu anda melihat tatacara apa yang boleh digunakan, dan juga menunjukkan gelung dalam tindakan.

Katakan anda mahu pengguna memasukkan ayat, dan kemudian anda ingin memberitahu mereka berapa kali mereka menggunakan setiap huruf abjad. Jadi jika pengguna menaip dalam:

Saya makan kucing saya.

Anda akan kembali halaman yang berkata:

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

OK, langkah pertama. Anda ingin mengira 26 item yang berbeza, satu untuk setiap huruf abjad. Ini hanya menjerit array. Jadi mulakan dengan a

Surat letter dim (26)
untuk CurrLtr = 1 hingga 26
LetterCount (CurrLtr) = 0
seterusnya

Itulah contoh yang baik bagi gelung untuk seterusnya. OK, setakat ini sangat baik. Anda mempunyai 26 tempat pada sifar, menunggu untuk mula mengira. Sekarang untuk bekerja melalui kalimat untuk melihat apa yang ada di dalamnya. Katakan anda memanggil CurrText ayat ini.

Pertama, anda ingin menyemak setiap huruf dalam kalimat. Saya akan melakukan ini dengan gelung do-while supaya anda dapat melihat bagaimana ia berfungsi. Oleh itu, anda akan bermula dengan:

SenLen = len (CurrText)
CurrCtr = 1
lakukan semasa CurrCtr <= SenLen
CurrLtr = kiri (CurrText, 1)

Anda sudah mendapat surat seterusnya. Kini, setiap huruf tentu saja mempunyai nilai ascii yang dikaitkan dengannya. Mereka berkisar dari 65 untuk A hingga 90 untuk Z. Kes itu penting. Jadi seterusnya anda huruf besar untuk memastikan ia jatuh antara 65 dan 90, dan tolak 64 supaya A = 1 dan Z = 26.

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

Jadi sekarang anda mempunyai nombor dari 1 hingga 26 yang menunjukkan huruf mana ini. Langkah seterusnya tentunya mudah. Anda hanya kenaikan baldi! Sekiranya anda mahu, anda boleh pastikan anda mengabaikan apa-apa surat bukan, jika anda bimbang tentang mereka masuk ke strim.

jika CurrLtrA> 0 dan CurrLtrA <65 kemudian
LetterCount (CurrLtrA) = LetterCount (CurrLTrA) + 1
akhir jika

Dan kini hujung gelung itu, anda akan menyingkirkan surat yang anda sedang kerjakan supaya apabila anda pergi dalam gelung, huruf pertama dalam kalimat adalah yang berikutnya dalam susunan.

CurrText = Kanan (CurrText, len (CurrText) - 1)
CurrCtr = CurrCtr + 1
gelung

Jadi sekarang array anda penuh dengan nombor dari 0 hingga apa pun, masing-masing menunjukkan berapa kali huruf itu dijumpai. Anda boleh memaparkannya dalam apa jua cara yang anda mahukan. Jika anda ingin menggunakan gelung dan fungsi CHR, yang menunjukkan huruf yang mempunyai kod ASCII tertentu, anda boleh lakukan:

untuk CurrLtr = 1 hingga 26
response.write "Surat"
CurrAscii = CurrLtr + 64
CurrLtrA = chr (CurrAscii)
response.write CurrLtrA & "found"
response.write LetterCount (CurrLtr) & "times.
"
seterusnya

Pastikan anda berhenti menggunakan forum kami atau tulis jika anda mempunyai sebarang pertanyaan!

Pengenalan kepada Ebook ASP Muat turun ebook ini untuk mendapatkan semua yang anda perlu tahu mengenai pembelajaran ASP - dari tutorial langkah demi langkah untuk berfungsi senarai, kod sampel, kesilapan dan penyelesaian umum, dan banyak lagi! 101 muka surat.

Arahan Video: F3. BAB 4: STATISTIK II. BAH B: MOD, MIN & MEDIAN. NO: 2a (April 2024).