Acest cod de exemplu vă ajută să vedeți pentru ce matricile pot fi utilizate și arată, de asemenea, o buclă în acțiune.

Să spunem că doriți ca utilizatorul să introducă o propoziție, apoi doriți să le informați de câte ori au folosit fiecare literă a alfabetului. Deci, dacă utilizatorul a introdus:

Mi-am mâncat pisica.

Ați întoarce o pagină care a spus:

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

OK, primul pas. Vrei să numeri 26 de articole diferite, unul pentru fiecare literă a alfabetului. Doar despre țipete mulțime. Deci, începe cu a

Dim LetterCount (26)
pentru CurrLtr = 1 la 26
LetterCount (CurrLtr) = 0
Următor →

Acesta este un bun exemplu de buclă pentru următoarea. OK, până acum atât de bine. Aveți 26 de locuri la zero, așteptând să începeți să numărați. Acum să vă descurcați prin propoziție pentru a vedea ce este în ea. Să spunem că numiți această propoziție CurrText.

În primul rând, doriți să verificați fiecare literă din propoziție. Voi face acest lucru cu o buclă de timp în timp, astfel încât să puteți vedea cum funcționează asta. Deci, ai începe cu:

SenLen = len (CurrText)
CurrCtr = 1
faceți în timp ce CurrCtr <= SenLen
CurrLtr = stânga (CurrText, 1)

Aveți următoarea scrisoare în ordine. Acum, fiecare literă are desigur o valoare ascii. Acestea variază între 65 și A până la 90 pentru Z. Cazul contează. Așa că, alături, scrieți litera mare pentru a vă asigura că aceasta se încadrează între 65 și 90 și scădeți 64, astfel încât A = 1 și Z = 26.

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

Deci, acum aveți un număr de la 1 la 26 care indică ce literă este aceasta. Următorul pas este desigur ușor. Doar mărești acea găleată! Dacă doriți, vă puteți asigura să ignorați orice scrisoare care nu este scrisoare, dacă sunteți îngrijorat de intrarea lor în flux.

dacă CurrLtrA> 0 și CurrLtrA <65 atunci
LetterCount (CurrLtrA) = LetterCount (CurrLTrA) + 1
sfârșește dacă

Și acum sfârșitul buclei, scapi de scrisoarea pe care tocmai lucrai, astfel încât atunci când mergi în buclă, prima literă din propoziție este următoarea.

CurrText = Dreapta (CurrText, len (CurrText) - 1)
CurrCtr = CurrCtr + 1
buclă

Acum, tabloul dvs. este plin de numere cuprinse între 0 și orice, fiecare indicând de câte ori a fost găsită acea literă. Le puteți afișa în orice mod doriți. Dacă doriți să utilizați o buclă și funcția CHR, care arată litera care are un anumit cod ASCII, puteți face:

pentru CurrLtr = 1 la 26
answer.write "Scrisoarea"
CurrAscii = CurrLtr + 64
CurrLtrA = chr (CurrAscii)
response.write CurrLtrA & "a fost găsit"
answer.write LetterCount (CurrLtr) & "ori.
"
Următor →

Asigurați-vă că vă opriți pe forumurile noastre sau scrieți dacă aveți întrebări!

Introducere în ASP Ebook

Descărcați acest ebook pentru a obține tot ce trebuie să știți despre învățarea ASP - de la un tutorial pas cu pas la liste de funcții, cod de eșantion, erori și soluții comune și multe altele! 101 pagini.

Instrucțiuni Video,: Protecția PSI (cu subtitrare) (August 2022).