大頭鍛鍊日記3 -- vbscript靜態連結串列實現法
阿新 • • 發佈:2019-02-01
'-------------------------------
' 腳本空間調用類實例
'-------------------------------
Dim TestSL,i,j,data
Set TestSL=New StaticLinked '類實例化
MsgBox "list length is "&TestSL.Length '測試獲取鏈表長度
MsgBox TestSL.IsRaw '測試判斷空表
TestSL.Insert 1,"A" ' 鏈表插入數據
TestSL.Insert 2,"C"
TestSL.Insert 3,"D"
TestSL.Insert 4,"E"
TestSL.Insert 2,"B"
MsgBox "list length is "&TestSL.Length '測試獲取鏈表長度
MsgBox TestSL.IsRaw
TestSL.Print '測試鏈表打印
data=""
For i=0 To 9 Step 1
data=data&"Index"&i&"{Data:"&TestSL.StructArr (i).getData&" ,Cur:index"&_
TestSL.StructArr(i).getCur& "} " '取得存儲結構中實際存放邏輯
Next
MsgBox data
TestSL.Delete 4 '測試刪除鏈表位置的元素
TestSL.Delete 3
TestSL.Print
data=""
For i=0 To 9 Step 1
data=data&"Index"&i&"{Data:"&TestSL.StructArr (i).getData&" ,Cur:index"&_
TestSL.StructArr(i).getCur& "} " '取得存儲結構中實際存放邏輯
Next
MsgBox data