網上有人說新時代的男性要兩個頭都要抓，兩個頭都要硬。好吧，不擼了。堅持去游泳，順便記錄每天鍛鍊大頭的點滴。
複習一下資料結構，OO思想。兩年沒有寫過指令碼了，拋開集合和字典物件，用vbscript偽面向物件實現一下線性表。

線性表類主體：

Option Explicit '-------------------------------------- '     順序存儲結構的線性表   by.Shine '-------------------------------------- Class ListMode  '創建類     Private Data(10)  '以數組定長方式

初始化表容量為10     Private Length  '表長     Public Sub Class_Initialize     Length=0     End Sub     Public Sub AddElem(elem)   '線性表加元素         If Length = 10 Then     MsgBox "list full,cannot add "&elem     Exit Sub     Else     Data(Length)=elem     Length=Length+1     End If     End Sub          Public Function IndexGetElem(index)   '線性表讀指定下標內容     If Length = 0 Or index < 1 Or index > Length Then     MsgBox "List is empty or index is not correct"     Exit Function     Else     IndexGetElem=Data(index-1)     End If     End Function     Public Function ElemGetIndex(elem)    '線性表中查找第一次出現指定元素的下

標     If Length = 0 Then     MsgBox "List is empty"     Exit Function     End If     Dim k     For k=1 To Length Step 1     If Data(k-1) = elem Then     ElemGetIndex=k     Exit For     End If     Next                                     End Function     Public Sub Insert(elem,index)  '線性表插元素     If Length = 10 Then     MsgBox "list full,cannot insert "&elem     Exit Sub     End If     If index < 1 Or index > Length+1 Then     MsgBox "Index is not correct"     Exit Sub     End If           If index <= Length Then     Dim k     For k=Length-1 To index-1 Step 1      Data(k+1)=Data(k)     Next     End If     Data(index-1)=elem     Length=Length+1     End Sub     Public Function IndexDel(index)    '線性表刪除指定下標(線性表下標)元素     If Length = 0 Or index < 1 Or index > Length Then     MsgBox "List is empty or index is not correct"     Exit Function     End If     IndexDel=Data(index-1)     If index < Length Then     Dim k     For k=index To Length-1 Step 1     Data(k-1)=Data(k)     Next     End If     Length=Length-1     End Function     Public Sub ElemDel(elem)    '線性表刪除指定元素(單步無遞歸)     If Length = 0 Then     MsgBox "List is empty"     Exit Sub     End If       Dim k     For k=1 To Length Step 1     If Data(k-1) = elem Then     IndexDel k     Exit For     End If     Next     End Sub     Public Function getLength   '返回線性表長度         getLength=Length     End Function     Public Sub Clear   '清空線性表         Length=0     End Sub End Class

以下為例項物件測試程式碼：

'-------------------------------  '       腳本空間調用類實例 '-------------------------------  Dim list,i,temp                             '定義變量 Set list=New ListMode                       '實例對象 MsgBox list.getLength                   '取得表長 list.IndexGetElem(0)                    '測試非正常查詢 list.IndexGetElem(1) list.IndexGetElem(4) Call list.Clear                         '測試清除 For i=1 To 10 Step 1 list.AddElem "elem"&i               '填滿 Next list.AddElem "a"                        '測試溢出 MsgBox list.getLength                   '取得表長 temp="" For i=1 To list.getLength Step 1 temp=temp&list.IndexGetElem(i)&" "          '遍歷全表 Next MsgBox temp list.ElemDel("elem2")                   '測試刪除指定內容 temp="" For i=1 To list.getLength Step 1 temp=temp&list.IndexGetElem(i)&" "          '遍歷全表 Next     MsgBox temp list.IndexDel(5)                        '測試刪除下標5的內容 temp="" For i=1 To list.getLength Step 1 temp=temp&list.IndexGetElem(i)&" "          '遍歷全表 Next     MsgBox temp MsgBox list.ElemGetIndex("elem4")       '取得指定內容存放下標 MsgBox list.IndexGetElem(3)             '取得指定下標存放內容 Call list.Clear     '測試清除 MsgBox list.getLength temp="" For i=1 To list.getLength Step 1 temp=temp&list.IndexGetElem(i)&" "          '遍歷全表 Next