2019獨角獸企業重金招聘Python工程師標準>>>

今天用VBS腳本寫了幾個程序，用到了字典（Dictionary）、動態數組（ArrayList）、隊列（Queue）和堆棧（Stack）。現在寫篇Blog總結一下 ：-）

1.編寫環境

今天突發奇想下載了個gVim來寫VBS腳本，我用的版本是7.4的

在寫腳本前，需要在gVim的安裝根目錄下，找到文件“_vimrc”，在里面添加下面三行：

set number set softtabstop=4 set tabstop=4

意思分別是“顯示行號”、“按退格鍵一次刪掉4個空格”和“設定Tab長度為4個字符”

這個設置類似于Linux系統下文件“.vimrc”的配置

2.字典：Scripting.Dictionary

VBS中的字典需要使用Scripting.Dictionary

腳本文件：a.vbs，包含字典的添加、刪除、判斷鍵是否存在、修改鍵、修改值、遍歷、統計鍵值對個數

Option Explicit'建立字典 Dim Dict : Set Dict = CreateObject("Scripting.Dictionary")'添加鍵值對 Dict.Add "Key1", "Item1" Dict.Add "Key2", "Item2" Dict.Add "Key3", "Item3"'字典中鍵值對數量 WScript.Echo "字典中現有鍵值對數量: " & Dict.CountWScript.Echo '檢查指定鍵是否存在 If Dict.Exists("Key1") ThenWScript.Echo "Key1 存在!" ElseWScript.Echo "Key1 不存在!" End IfIf Dict.Exists("Keyn") ThenWScript.Echo "Keyn 存在!" ElseWScript.Echo "Keyn 不存在!" End IfWScript.Echo '遍歷字典 Sub TraverseDictDim DictKeys, DictItems, CounterDictKeys = Dict.KeysDictItems = Dict.ItemsFor Counter = 0 To Dict.Count - 1WScript.Echo _"鍵: " & DictKeys(Counter) & _"值: " & DictItems(Counter)Next End SubTraverseDictWScript.Echo '在一個鍵值對中，修改鍵或修改值 Dict.Key("Key2") = "Keyx" Dict.Item("Key1") = "Itemx" TraverseDictWScript.Echo '刪除指定鍵 Dict.Remove("Key3") TraverseDictWScript.Echo '刪除全部鍵 Dict.RemoveAll WScript.Echo "字典中現有鍵值對數量: " & Dict.Count

調用方法：通過雙擊a.bat調用，a.bat代碼如下：

cscript a.vbs pause

運行結果截圖：

2.動態數組：System.Collections.ArrayList

VBS中的動態數組需要使用System.Collections.ArrayList

腳本文件：b.vbs，包含動態數組的添加元素、刪除元素、遍歷、統計元素個數、清空

Option Explicit'建立動態數組 Dim Arrl : Set Arrl = CreateObject("System.Collections.ArrayList")'添加元素 Arrl.Add "Element3" Arrl.Add "Element2" Arrl.Add "Element1"'查看動態數組中的元素數 WScript.Echo "動態數組中現有元素數量: " & Arrl.Count WScript.Echo "動態數組容量: " & Arrl.CapacityWScript.Echo'遍歷動態數組 Sub TraverseArrlDim CounterFor Counter = 0 To Arrl.Count - 1WScript.Echo Arrl(Counter)Next End Sub TraverseArrlWScript.Echo'動態數組排序 Arrl.Sort TraverseArrlWScript.Echo'刪除指定元素 Arrl.Remove("Element1") TraverseArrlWScript.Echo'清空全部元素 Arrl.Clear WScript.Echo "動態數組中現有元素數量: " & Arrl.Count WScript.Echo "動態數組容量: " & Arrl.Capacity

調用方法：通過雙擊b.bat調用，b.bat代碼如下：

cscript b.vbs pause

運行結果截圖：

3.隊列：System.Collections.Queue

VBS中的隊列需要使用System.Collections.Queue

腳本文件：c.vbs，包含隊列的添加元素（入隊）、刪除元素（出隊）、遍歷、統計元素個數、清空

Option Explicit'建立隊列 Dim Que : Set Que = CreateObject("System.Collections.Queue")Que.EnQueue("Element1") Que.EnQueue("Element2") Que.EnQueue("Element3")'查看隊列中的元素數 WScript.Echo "隊列中的元素數: " & Que.CountWScript.Echo'遍歷隊列 Sub TraverseQueDim ArrQue : ArrQue = Que.ToArrayDim CounterFor Counter = 0 To UBound(ArrQue)WScript.Echo ArrQue(Counter)Next End Sub TraverseQueWScript.Echo'退出隊列 WScript.Echo Que.DeQueue WScript.Echo "---" TraverseQue WScript.Echo'清空隊列 Que.Clear WScript.Echo "隊列中的元素數: " & Que.Count

調用方法：通過雙擊c.bat調用，c.bat代碼如下：

cscript?c.vbs pause

運行結果截圖：

4.堆棧：System.Collections.Stack

VBS中的堆棧需要使用System.Collections.Stack

腳本文件：d.vbs，包含堆棧的添加元素（壓棧）、刪除元素（出棧）、遍歷、統計元素個數、清空

Option Explicit'建立堆棧 Dim Stk : Set Stk = CreateObject("System.Collections.Stack")Stk.Push "Element1" Stk.Push "Element2" Stk.Push "Element3"'查看堆棧中的元素數 WScript.Echo "堆棧中的元素數: " & Stk.CountWScript.Echo'遍歷堆棧 Sub TraverseStkDim ArrStk : ArrStk = Stk.ToArrayDim CounterFor Counter = 0 To UBound(ArrStk)WScript.Echo ArrStk(Counter)Next End Sub TraverseStkWScript.Echo'元素出棧 WScript.Echo Stk.Pop WScript.Echo "---" TraverseStkWScript.Echo'清空堆棧 Stk.Clear WScript.Echo "堆棧中的元素數: " & Stk.Count

調用方法：通過雙擊d.bat調用，d.bat代碼如下：

cscript?d.vbs pause

運行結果截圖：

可以看出，遍歷隊列和堆棧時，遍歷順序時由出隊和出棧的順序決定的，而不是入隊和壓棧的順序

END

轉載于:https://my.oschina.net/Tsybius2014/blog/362494

總結

以上是生活随笔為你收集整理的VBS 脚本中的字典、动态数组、队列和堆栈的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。