Select Case
'==========================================================================
' NAME: SelectCase.vbs
' AUTHOR: Neal Walters
' DATE : 2/13/2005
' http://VBScript-Training.com
'
'==========================================================================
state = "fl"
WScript.Echo " The name of the state code=" & state & " name=" & StateLookup(state)
Function StateLookup(statecode)
Select Case UCase(statecode)
Case "NY"
'WScript.Echo "State = New York"
statename = "New York"
Case "CA"
'WScript.Echo "State = California"
statename = "California"
Case "TX"
'WScript.Echo "State = Texas"
statename = "Texas"
Case "FL"
'WScript.Echo "State = Florida"
statename = "Florida"
Case Else
'WScript.Echo "State = not one of the big four "
statename = "Not a valid state"
End Select
StateLookup = statename
End Function
|