Kode sampel ini membantu Anda melihat untuk apa array dapat digunakan, dan juga memperlihatkan loop yang sedang beraksi.

Katakanlah Anda ingin pengguna memasukkan kalimat, dan kemudian Anda ingin memberi tahu mereka berapa kali mereka menggunakan setiap huruf dalam alfabet. Jadi jika pengguna mengetik:

Saya makan kucing saya.

Anda akan mengembalikan halaman yang mengatakan:

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

Oke, langkah pertama. Anda ingin menghitung 26 item berbeda, satu untuk setiap huruf alfabet. Ini hanya tentang menjerit Himpunan. Jadi mulailah dengan a

Dim LetterCount (26)
untuk CurrLtr = 1 hingga 26
LetterCount (CurrLtr) = 0
lanjut

Itu contoh yang bagus untuk loop berikutnya. OKE, sejauh ini bagus. Anda memiliki 26 titik di nol, menunggu untuk mulai menghitung. Sekarang selesaikan kalimat Anda untuk melihat apa yang ada di dalamnya. Katakanlah Anda menyebut kalimat ini CurrText.

Pertama, Anda ingin memeriksa setiap huruf dalam kalimat. Saya akan melakukan ini dengan loop do-while sehingga Anda dapat melihat cara kerjanya. Jadi, Anda akan mulai dengan:

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

Anda mendapatkan surat berikutnya secara berurutan. Sekarang, setiap huruf tentu saja memiliki nilai ascii yang terkait dengannya. Mulai dari 65 untuk A hingga 90 untuk Z. Kasus itu penting. Jadi selanjutnya Anda huruf besar untuk memastikan itu jatuh antara 65 dan 90, dan kurangi 64 sehingga A = 1 dan Z = 26.

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

Jadi sekarang Anda memiliki angka dari 1 hingga 26 yang menunjukkan huruf mana ini. Langkah selanjutnya tentu saja mudah. Anda hanya menambah ember itu! Jika mau, Anda dapat mengabaikan aba-aba, jika Anda khawatir mereka akan masuk ke arus.

jika CurrLtrA> 0 dan CurrLtrA <65 maka
LetterCount (CurrLtrA) = LetterCount (CurrLTrA) + 1
berakhir jika

Dan sekarang akhir dari loop, Anda menyingkirkan surat yang baru saja Anda kerjakan sehingga ketika Anda berkeliling dalam loop, huruf pertama dalam kalimat adalah yang berikutnya dalam urutan.

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

Jadi sekarang array Anda penuh dengan angka mulai dari 0 hingga apa pun, masing-masing menunjukkan berapa kali surat itu ditemukan. Anda dapat menampilkannya dengan cara apa pun yang Anda inginkan. Jika Anda ingin menggunakan fungsi loop dan CHR, yang memperlihatkan huruf yang memiliki kode ASCII tertentu, Anda bisa melakukannya:

untuk CurrLtr = 1 hingga 26
response.write "Surat itu"
CurrAscii = CurrLtr + 64
CurrLtrA = chr (CurrAscii)
response.write CurrLtrA & "ditemukan"
response.write LetterCount (CurrLtr) & "kali.
"
lanjut

Pastikan untuk mampir ke forum kami atau menulis jika Anda memiliki pertanyaan!

Pengantar ASP Ebook

Unduh ebook ini untuk mendapatkan semua yang perlu Anda ketahui tentang belajar ASP - dari tutorial langkah demi langkah hingga daftar fungsi, kode sampel, kesalahan dan solusi umum, dan banyak lagi lainnya! 101 halaman.

Petunjuk Video: Program Menghitung frekuensi kemunculan huruf dalam suatu kalimat (C++) (April 2024).