Преброяване на честотата на писмото в масив

• Април 25, 2024

Този примерен код ви помага да видите за какви масиви може да се използва и също така показва цикъл в действие.

Да кажем, че искате потребителят да въведе изречение и след това искате да ги уведомите колко пъти са използвали всяка буква от азбуката. Така че, ако потребителят въведе:

Изядох котката си.

Ще върнете страница, на която пише:

a: 2
в: 1
д: 1
i: 1
m: 1
t: 2
у: 1

Добре, стъпка първа. Искате да броите 26 различни елемента, по един за всяка буква от азбуката. Тук става въпрос само за писъци масив, Така че започнете с a

Dim LetterCount (26)
за CurrLtr = 1 до 26
LetterCount (CurrLtr) = 0
следващия

Това е добър пример за цикъл за следващия. Добре, засега толкова добре. Имате 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)
answer.write CurrLtrA & „бе намерен“
response.write LetterCount (CurrLtr) & "пъти.
"
следващия

Не забравяйте да се спрете от нашите форуми или да пишете, ако имате въпроси!

Въведение в ESP Ebook Изтеглете тази електронна книга, за да получите всичко, което трябва да знаете за изучаването на ASP - от стъпка по стъпка урок до списъци с функции, примерен код, общи грешки и решения и много повече! 101 страници.

Инструкции Видео: Week 0, continued (Април 2024).