大頭鍛鍊日記2 -- 無指標和結構體的vbscript中實現單向連結串列
阿新 • • 發佈:2019-01-26
'-------------------------------
' 腳本空間調用類實例
'-------------------------------
Dim TestLS
Set TestLS=New List '類實例化
MsgBox TestLS.IsRaw '測試空表判斷
MsgBox TestLS.getLength '測試表長判斷
TestLS.AddHead "W" '測試表頭添加
TestLS.AddHead "S"
TestLS.AddTail 44 '測試表尾添加
TestLS.AddTail 33
TestLS.AddTail "P"
TestLS.AddTail 22
TestLS.AddTail 77
TestLS.AddHead "O"
TestLS.AddHead 99
TestLS.AddHead 66
MsgBox TestLS.getLength
MsgBox TestLS.Print
TestLS.Delete 3 '測試刪除一個鏈表位置的元素
MsgBox TestLS.Print
MsgBox TestLS.getLength
TestLS.AddIndex "N",3 '測試指定位置插入元素
MsgBox TestLS.Print
MsgBox TestLS.getLength
TestLS.Clear '測試清空鏈表
MsgBox TestLS.IsRaw
MsgBox TestLS.getLength