Case

Jag har en lång jävla case satts.

Går det att loopa igenom den o skriva ut alla värdena på nått sätt?.

lite kod kanske inte skadar?

kod...

asså det är bara en case satts..
och jag behöver alla väderna på en sida

så jag behöver loopa ut allt

Något sådant sätt finns inte i Case.

Alla värdena har du ju i koden redan om du har skrivit din långa case-sats... du får väl använda papper och penna eller något...

Värde på Case... klingar konstigt i mina öron det.

Tog mej friheten att göra ett program som listar just Case:or.
Tog ett tag. Men det listar inte i vilka subbar/funktioner dom
ligger. :)

EDIT // En STOR bugg!! orkar inte fixa eftersom att jag inte sparade filen.. :(

Helt otestat:

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile( server.mappath( "texten.asp", 1 )
strText =  objTextStream.ReadAll

set oRegExp = new regexp
oRegExp.global=true
oRegExp.ignorecase = true
oRegExp.pattern = "case (.+?)\n"

Set myMatches = oRegExp.Execute( strText )

for each match in myMatches
  response.write trim( replace( match.Value, "case", "" ) ) & "<br>"
next