VBScript編碼約定

編碼約定是幫助您使用 Microsoft Visual Basic Scripting Edition 編寫代碼的一些建議。編碼約定包含以下內容：

• 對象、變量和過程的命名約定
• 注釋約定
• 文本格式和縮進指南

使用一致的編碼約定的主要原因是使腳本或腳本集的結構和編碼樣式標準化，這樣代碼易于閱讀和理解。使用好的編碼約定可以使源代碼明白、易讀、準確，更加直觀且與其他語言約定保持一致。

常數命名約定

VBScript 的早期版本不允許創建用戶自定義常數。如果要使用常數，則常數以變量的方式實現，且全部字母大寫以和其他變量區分。常數名中的多個單詞用下劃線 (_) 分隔。例如：

 USER_LIST_MAX NEW_LINE

這種標識常數的方法依舊可行，但您還可以選擇其他方案，用 Const 語句創建真正的常數。這個約定使用大小寫混合的格式，并以“con”作為常數名的前綴。例如：

 conYourOwnConstant

變量命名約定

為提高易讀和一致性，請在 VBScript 代碼中使用以下變量命名約定：

變量作用域

變量應定義在盡量小的作用域中。VBScript 變量的作用域如下所示：

變量作用域前綴

隨著腳本代碼長度的增加，有必要快速區分變量的作用域。在類型前綴前面添加一個單字符前綴可以實現這一點，而不致使變量名過長。

描述性變量名和過程名

變量名或過程名的主體應使用大小寫混合格式，并且盡量完整地描述其目的。另外，過程名應以動詞開始，例如 InitNameArray 或 CloseDialog。

對于經常使用的或較長的名稱，推薦使用標準縮寫以使名稱保持在適當的長度內。通常多于 32 個字符的變量名會變得難以閱讀。使用縮寫時，應確保在整個腳本中保持一致。例如，在一個腳本或腳本集中隨意切換 Cnt 和 Count 將造成混亂。

對象命名約定

下表列出了 VBScript 中可能用到的對象命名約定（推薦）：

代碼注釋約定

所有過程的開始部分都應有描述其功能的簡要注釋。這些注釋并不描述細節信息（如何實現功能），這是因為細節有時要頻繁更改。這樣就可以避免不必要的注釋維護工作以及錯誤的注釋。細節信息由代碼本身及必要的內部注釋來描述。

當傳遞給過程的參數的用途不明顯，或過程對參數的取值范圍有要求時，應加以說明。如果過程改變了函數和變量的返回值（特別是通過參數引用來改變），也應在過程的開始部分描述該返回值。

過程開始部分的注釋應包含以下區段標題。相關樣例，請參閱后面的“格式化代碼”部分。

請記住以下幾點：

• 每個重要的變量聲明都應有內部注釋，描述變量的用途。
• 應清楚地命名變量、控件和過程，僅在說明復雜細節時需要內部注釋。
• 應在腳本的開始部分包含描述該腳本的概述，列舉對象、過程、運算法則、對話框和其他系統從屬物。有時一段描述運算法則的假碼是很有用的。

格式化代碼

應盡可能多地保留屏幕空間，但仍允許用代碼格式反映邏輯結構和嵌套。以下為幾點提示：

• 標準嵌套塊應縮進 4 個空格。
• 過程的概述注釋應縮進 1 個空格。
• 概述注釋后的最高層語句應縮進 4 個空格，每一層嵌套塊再縮進 4 個空格。例如：

'*********************************************************' Purpose: Locates the first occurrence of a specified user '          in the UserList array.' Inputs: strUserList(): the list of users to be searched.'         strTargetUser: the name of the user to search for.' Returns: The index of the first occurrence of the strTargetUser '          in the strUserList array. '          If the target user is not found, return -1.'*********************************************************Function intFindUser (strUserList(), strTargetUser)   Dim i   ' Loop counter.   Dim blnFound   ' Target found flag   intFindUser = -1   i = 0   ' Initialize loop counter   Do While i <= Ubound(strUserList) and Not blnFound      If strUserList(i) = strTargetUser Then          blnFound = True   ' Set flag to True         intFindUser = i   ' Set return value to loop count      End If      i = i + 1   ' Increment loop counter   LoopEnd Function