Avatar billede bierchen Nybegynder
02. oktober 2003 - 22:53 Der er 8 kommentarer og
1 løsning

select case

Jeg har et eksempel der ligner flg.:

a=1
select case a
case 1
  Response.Write "1"
case 2
  Response.Write "2"
case 3
  Response.Write "3"
end select

Jeg ville gerne inde fra case 2 gå direkte videre til case 3. Kan man anvende en slags goto ?

På Forhånd tak !

Hvordan kan dette lade sig gøre ?
Avatar billede squashguy Nybegynder
02. oktober 2003 - 22:57 #1
mener du

a=1
select case a
case 1
case 3
  Response.Write "1 eller 3"
case 2
  Response.Write "2"
end select
Avatar billede bierchen Nybegynder
02. oktober 2003 - 22:59 #2
nej...

Det skal bruges i et stykke kode der sådan ud

a=1
select case a
case 1
  Response.Write "1"
case 2
  if x = 5 then
    Response.Write "2"
  else
    'gå til case 3
  end if
case 3
  Response.Write "3"
end select
Avatar billede ellebaek Nybegynder
02. oktober 2003 - 23:07 #3
a=1
select case a
case 1
  Response.Write "1"
case 2,3
  if CInt(a) = 2 then
    Response.Write "2"
  end if
    response.write "3"  end if
end select

Prøv på denne måde...
Så går den ind i casen hvis a er 2 eller 3, så med if chekker den om du er i 2, hvis du er det, udføres dette, og hvis ikke udføres kun 3...
Avatar billede bierchen Nybegynder
02. oktober 2003 - 23:23 #4
Det bliver for tungt at skulle lave koden om til dette.

Kan man ikke sende scriptet over i en anden case med noget der ligner goto ?
Avatar billede ellebaek Nybegynder
02. oktober 2003 - 23:26 #5
Du kan lave en sub som du kalder, men synes da det nemmeste må være det jeg lige skrev, det kræver kun at du tilføjer en
if CInt(a) = 2 then
end if
så virker det...

Så sletter du bare linien case 3...
Avatar billede ellebaek Nybegynder
02. oktober 2003 - 23:32 #6
Alternativt hvor du benytter en sub til din kode...


a=1
select case a
case 1
  Response.Write "1"
case 2
  Response.Write "2"
  call SubSection
case 3
  call SubSection
end select


Sub SubSection
Response.write "3" 'Kode som skal eksekveres hvis 3 er valgt. Kan selv tilpasses
End Sub
Avatar billede ellebaek Nybegynder
02. oktober 2003 - 23:34 #7
Altså på denne måde for at tilpasse det din kommentar: 02/10-2003 22:59:23

a=1
select case a
case 1
  Response.Write "1"
case 2
if x = 5 then
  Response.Write "2"
else
  call SubSection
end if
case 3
  call SubSection
end select


Sub SubSection
Response.write "3" 'Kode som skal eksekveres hvis 3 er valgt. Kan selv tilpasses
End Sub
Avatar billede bierchen Nybegynder
05. oktober 2003 - 12:02 #8
Jeg løste det med call funktionen !!! Mange tak for hjælpen !!
Avatar billede ellebaek Nybegynder
05. oktober 2003 - 17:21 #9
Anytime.
Takker for points..

..Ellebæk!
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester