31. august 2003 - 08:34Der er
12 kommentarer og 1 løsning
case med flere værdier
Hvordan laver man følgende i ASP:
SELECT CASE (i) CASE ('a' to 'z') PRINT "lille bogstav" CASE ('A' to 'Z') PRINT "stort bogstav" CASE ('1' to '9') PRINT "tal" CASE DEFAULT PRINT "ukendt tegn" END SELECT
Jeg er nået frem til følgende:
select case tegn case ("a" to "z") response.write "lille bogstav" case "A":"Z" response.write "stort bogstav" case "0".."9" response.write "tal" case else response.write "ukendt tegn" end select
Men ingen af de 3 forsøg virker.
I dokumentationen af VBscript står:
Select Case testexpression [Case expressionlist-n [statements-n]] . . . [Case Else expressionlist-n [elsestatements-n]] End Select
Men ikke hvordan man skriver flere expressions ;O)
dim i i="b" SELECT CASE i CASE "a","b","c","d" response.write "lille bogstav" CASE "A","B","C","D" response.write "stort bogstav" CASE "0","1","2","3","4","5","6","7","8","9" response.write "tal" CASE DEFAULT response.write "ukendt tegn" END SELECT
Denne linie giver ingen fejl, men virker heller ikke: case tegn > "a" And tegn < "z" ' tegn er mellem a og z (Ikke inkl.) response.write "lille bogstav"
val = request.querystring("tegn") if isnumeric(val) then response.write("tal") elseif 96 < Asc(val) AND Asc(val) < 123 then response.write("lille bogstav: " & Asc(val)) elseif 64 < Asc(val) AND Asc(val) < 91 then response.write("stort bogstav") else response.write("værdien ubestemt") end if
glemte at acceptere svaret. Undskyld at det tog så lang tid :O)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.