Μετρώντας τη συχνότητα γραμμάτων σε μια συστοιχία

• Ενδέχεται 20, 2024

Αυτός ο κώδικας δείγματος σάς βοηθάει να δείτε ποιοι πίνακες μπορούν να χρησιμοποιηθούν και δείχνει επίσης ένα βρόχο σε δράση.

Ας υποθέσουμε ότι θέλετε ο χρήστης να εισαγάγει μια πρόταση και, στη συνέχεια, θέλετε να ενημερώσετε πόσες φορές χρησιμοποίησαν κάθε γράμμα του αλφαβήτου. Έτσι, αν ο χρήστης πληκτρολογεί:

Έφαγα τη γάτα μου.

Θα επιστρέψετε μια σελίδα που έλεγε:

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

Εντάξει, βήμα πρώτο. Θέλετε να μετρήσετε 26 διαφορετικά στοιχεία, ένα για κάθε γράμμα του αλφαβήτου. Αυτό ακριβώς λέει έξω πίνακας. Ξεκινήστε λοιπόν με ένα

Dim LetterCount (26)
για CurrLtr = 1 έως 26
LetterCount (CurrLtr) = 0
Επόμενο

Αυτό είναι ένα καλό παράδειγμα ενός επόμενου βρόχου. Εντάξει, μέχρι στιγμής τόσο καλά. Έχετε 26 σημεία στο μηδέν, περιμένοντας να αρχίσετε την καταμέτρηση. Τώρα για να δουλέψετε το δρόμο σας μέσα από την πρόταση για να δείτε τι είναι μέσα της. Ας πούμε ότι ονομάζετε αυτή την πρόταση CurrText.

Πρώτον, θέλετε να ελέγξετε κάθε γράμμα στην πρόταση. Θα το κάνω αυτό με ένα βρόχο do-while έτσι μπορείτε να δείτε πώς λειτουργεί αυτό. Έτσι θα ξεκινήσετε με:

SenLen = len (CurrText)
CurrCtr = 1
κάντε το CurrCtr <= SenLen
CurrLtr = αριστερά (CurrText, 1)

Έχετε την επόμενη επιστολή. Τώρα, κάθε επιστολή έχει φυσικά μια τιμή ascii που σχετίζεται με αυτό. Αυτά κυμαίνονται από 65 για A έως 90 για Z. Η υπόθεση έχει σημασία. Έτσι λοιπόν, πατάτε κεφαλαία το γράμμα για να βεβαιωθείτε ότι πέφτει μεταξύ 65 και 90 και αφαιρέστε 64 για να A = 1 και Z = 26.

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

Έτσι τώρα έχετε έναν αριθμό από 1 έως 26 που δείχνει ποιο γράμμα αυτό είναι. Το επόμενο βήμα είναι φυσικά εύκολο. Απλά αυξάνετε τον κάδο! Αν θέλετε, μπορείτε να αγνοήσετε οποιαδήποτε μη επιστολή, εάν ανησυχείτε για την είσοδό τους στο ρέμα.

εάν CurrLtrA> 0 και CurrLtrA <65 τότε
LetterCount (CurrLtrA) = LetterCount (CurrLTrA) + 1
τέλος εαν

Και τώρα το τέλος του βρόχου, θα απαλλαγείτε από την επιστολή στην οποία ασχολήσατε, έτσι ώστε όταν πηγαίνετε στο βρόχο, το πρώτο γράμμα της φράσης είναι το επόμενο στην τάξη.

CurrText = Δεξιά (CurrText, len (CurrText) - 1)
CurrCtr = CurrCtr + 1
βρόχος

Έτσι, τώρα ο πίνακας σας είναι γεμάτος από αριθμούς που κυμαίνονται από 0 έως οτιδήποτε, ο καθένας δε δείχνει πόσες φορές βρέθηκε αυτό το γράμμα. Μπορείτε να τα εμφανίσετε με οποιονδήποτε τρόπο θέλετε. Εάν θέλετε να χρησιμοποιήσετε έναν βρόχο και τη λειτουργία CHR, η οποία εμφανίζει το γράμμα που έχει έναν συγκεκριμένο κώδικα ASCII, μπορείτε να κάνετε:

για CurrLtr = 1 έως 26
reply.write "Το γράμμα"
CurrAscii = CurrLtr + 64
CurrLtrA = chr (CurrAscii)
response.write CurrLtrA & "βρέθηκε"
response.write LetterCount (CurrLtr) & "φορές.
"
Επόμενο

Φροντίστε να σταματήσετε από τα φόρουμ μας ή γράψτε εάν έχετε οποιεσδήποτε ερωτήσεις!

Εισαγωγή στο ASP Ebook Κατεβάστε αυτό το ebook για να πάρετε όλα όσα πρέπει να ξέρετε για την εκμάθηση ASP - από ένα βήμα προς βήμα φροντιστήριο λιστών λειτουργιών, δείγμα κώδικα, κοινά σφάλματα και λύσεις, και πολλά άλλα! 101 σελίδες.

Οδηγίες Βίντεο: ΑΚΑΤΑ ΜΑΚΑΤΑ με τα Ζουζούνια #44 - Σούπερ Ακαντού και Λυκούργος (Ενδέχεται 2024).