Цей зразок коду допомагає побачити, для чого можна використовувати масиви, а також показує цикл у дії.

Скажімо, ви хочете, щоб користувач вводив речення, а потім хочете повідомити, скільки разів вони використовували кожну букву алфавіту. Отже, якщо користувач набрав:

Я їв свою кішку.

Ви повернете сторінку, на якій написано:

a: 2
c: 1
е: 1
i: 1
м: 1
т: 2
у: 1

Добре, крок перший. Ви хочете порахувати 26 різних елементів, по одному для кожної літери алфавіту. Це просто про крики масив. Тож почніть з а

Темний лист (26)
для CurrLtr = 1 до 26
LetterCount (CurrLtr) = 0
наступний

Це хороший приклад циклу for-next. Добре, поки що добре. У вас 26 плям на нулі, чекаючи, коли почнете рахувати. Тепер попрацюйте через речення, щоб побачити, що в ньому. Скажімо, ви називаєте це речення CurrText.

Спочатку потрібно перевірити кожну букву в реченні. Я зроблю це за допомогою циклу до виконання, щоб ви могли бачити, як це працює. Отже, ви б почали з:

SenLen = len (CurrText)
CurrCtr = 1
робити, поки CurrCtr <= SenLen
CurrLtr = зліва (CurrText, 1)

Наступний лист у вас за порядком. Тепер кожна буква, звичайно, має значення, пов’язане з нею. Вони варіюються від 65 до A до 90 для Z. Case має значення. Отже, наступна велика літера переконайтеся, що вона падає між 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
response.write "Лист"
CurrAscii = CurrLtr + 64
CurrLtrA = chr (CurrAscii)
response.write CurrLtrA & "було знайдено"
response.write LetterCount (CurrLtr) & "разів.
"
наступний

Не забудьте завітати на наші форуми або написати, якщо у вас є якісь питання!

Вступ до ASP Ebook

Завантажте цю книгу, щоб отримати все, що вам потрібно знати про вивчення ASP - від покрокового підручника до списку функцій, зразкового коду, поширених помилок та рішень та багато іншого! 101 сторінка.

Відео Інструкція: 12 Функция Excel ЧАСТОТА (Квітня 2024).