VBS教程:VBScript 語(yǔ)句-Select Case 語(yǔ)句
Select Case 語(yǔ)句
根據(jù)表達(dá)式的值執(zhí)行幾組語(yǔ)句之一。
Select Case testexpression
[Case expressionlist-n
[statements-n]] . . .
[Case Else expressionlist-n
[elsestatements-n]]
End Select
參數(shù)
testexpression
任意數(shù)值或字符串表達(dá)式。
expressionlist-n
如 Case 出現(xiàn)則必選項(xiàng)。一個(gè)或多個(gè)表達(dá)式的分界列表。
statements-n
當(dāng) testexpression 與 expressionlist-n 中的任意部分匹配時(shí),執(zhí)行的一條或多條語(yǔ)句。
elsestatements-n
當(dāng) testexpression 與 Case 子句的任何部分不匹配時(shí),執(zhí)行的一條或多條語(yǔ)句。
說(shuō)明
如果 testexpression 與任何 Case expressionlist 表達(dá)式匹配,則執(zhí)行此 Case 子句和下一個(gè) Case 子句之間的語(yǔ)句,對(duì)于最后的子句,則會(huì)執(zhí)行該子句到 End Select 之間的語(yǔ)句,然后控制權(quán)會(huì)轉(zhuǎn)到 End Select 之后的語(yǔ)句。如 testexpression 與多個(gè) Case 子句中的 expressionlist 表達(dá)式匹配,則只有第一個(gè)匹配后的語(yǔ)句被執(zhí)行。
Case Else 用于指示若在 testexpression 和任何其他 Case 選項(xiàng)的 expressionlist 之間未找到匹配,則執(zhí)行 elsestatements。雖然不是必要的,但最好是將 Case Else 語(yǔ)句置于 Select Case 塊中以處理不可預(yù)見(jiàn)的 testexpression 值。如果沒(méi)有 Case expressionlist 與 testexpression 匹配且無(wú) Case Else 語(yǔ)句,則繼續(xù)執(zhí)行 End Select 之后的語(yǔ)句。
Select Case 語(yǔ)句可以是嵌套的,每一層嵌套的 Select Case 語(yǔ)句必須有與之匹配的 End Select 語(yǔ)句。
下面例子舉例說(shuō)明如何使用 Select Case 語(yǔ)句:
Dim Color, MyVar
Sub ChangeBackground (Color)
MyVar = lcase (Color)
Select Case MyVar
Case "red" document.bgColor = "red"
Case "green" document.bgColor = "green"
Case "blue" document.bgColor = "blue"
Case Else MsgBox "選擇另一種顏色"
End Select
End Sub
相關(guān)文章
用VBScript實(shí)現(xiàn)壓縮目錄中的所有文件(Zip)
下面的腳本主要是將制定目錄中得文件,單個(gè)壓縮為zip格式的文件,需要的朋友可以參考下2012-01-01
利用WScript.Shell對(duì)象隱藏cmd命令行運(yùn)行框的實(shí)現(xiàn)代碼
利用WScript.Shell對(duì)象隱藏cmd命令行運(yùn)行2009-12-12
使用 Iisext.vbs 啟用Web服務(wù)擴(kuò)展文件的方法
這篇文章主要介紹了如何使用 iisext.vbs 在本地或遠(yuǎn)程計(jì)算機(jī)上啟用 Web 服務(wù)擴(kuò)展文件,需要的朋友可以參考下2014-07-07
VBS調(diào)用WMI實(shí)現(xiàn)搜索硬盤mp3文件
如果你想用遞歸搜索我也沒(méi)辦法。下面的程序搜索電腦上所有的MP3文件。2011-01-01
VBScript教程 第六課VBScript運(yùn)算符
VBScript教程 第六課VBScript運(yùn)算符...2006-11-11

