大头锻炼日记2 -- 无指针和结构体的vbscript中实现单向链表



大头锻炼日记2 -- 无指针和结构体的vbscript中实现单向链表

        继续数据结构复习，脚本实现单链。vbscript一种弱类型(无具体引用类型)无结构体和无指针的脚本中不借助宿主对象也可以实现链表。

以下为单链表类主体： vbs默认传参类型为ByRef

Option  Explicit

'----------------------------------------- 

'     单链表方式线性表    by.Shine

'-----------------------------------------

Class  Node     '定义节点类

     Private  Data         '数据域

     Private  NextP        '指针域

     Public  Property  Let  letData ( da )      '数据域set方法

         Data = da

     End  Property 

     Public  Property  Get  getData          '数据域get方法

         getData = Data

     End  Property 

     Public  Property  Set  setNextP ( obj )    '指针域set方法

         Set  NextP = obj

     End  Property    

     Public  Property  Get  getNextP         '指针域get方法

         Set  getNextP = NextP

     End  Property    

End  Class

Class  List       '定义链表类

     Private  Head         '标头

     Private  Tail         '表尾

     Private  Length       '表长

 

     Private  Sub  Class_Initialize         '构造方法初始化

         Length = 0

         Set  Head = New  Node                '开辟表头

         Set  Head . SetNextP = Nothing        '初始化指针

         Set  Tail = Head                    '开辟表尾   

     End  Sub

     Public  Property  Get  getLength        '取得链表长度

         getLength = Length

     End  Property

    

     Public  Sub  Clear                     '清除链表

         Length = 0

         Set  Head = Nothing

         Set  Tail = Nothing    

     End  Sub

     Public  Function  IsRaw                '查询是否为空链

         If  Length  =  0  Then

             IsRaw = True

         Else

             IsRaw = False

         End  If

     End  Function

     Public  Function  GetElem ( index )       '取得链表指定位置的内容

         If  index  <  1  Or  index  >  Length  Then

              MsgBox  "Index is not correct"

              Exit  Function

         Else

              Dim  temp , i

              Set  temp = Head 

              For  i = 0  To  index -1  Step  1

                   Set  temp = temp . getNextP

              Next

              MsgBox  "List index" & index & " is " & temp . getData       

         End  If

     End  Function

     Public  Sub  AddHead ( elem )             '表头添加元素

         If  IsEmpty ( elem )  Then

              MsgBox  "elem is empty"

              Exit  Sub

         Else

              Dim  ndobj

              Set  ndobj = New  Node

              Set  ndobj . setNextP = Nothing

              ndobj . letData = elem

              Set  ndobj . setNextP = Head . getNextP

              Set  Tail = ndobj . getNextP

              Set  Head . setNextP = ndobj

              Length = Length +1

         End  If

     End  Sub         

     Public  Sub  AddTail ( elem )             '表尾添加元素

         If  IsEmpty ( elem )  Then

              MsgBox  "elem is empty"

              Exit  Sub

         Else

              Dim  ndobj , temp

              Set  temp = Tail

              Set  ndobj = New  Node

              Set  ndobj . setNextP = Nothing

              ndobj . letData = elem

              Set  temp . setNextP = ndobj

              Set  Tail = ndobj

              Length = Length +1

         End  if

     End  Sub

     Public  Sub  Delete ( index )             '删除指定位置的元素

         If  index  <  1  Or  index  >  Length  Then

              MsgBox  "Index is not correct"

              Exit  Sub

         Else

              Dim  temp , p , i

              Set  temp = Head 

              For  i = 0  To  index -1  Step  1

                   Set  p = temp

                   Set  temp = temp . getNextP

              Next

              Set  p . setNextP = temp . getNextP

              Length = Length -1 

         End  If                      

     End  Sub

     Public  Sub  AddIndex ( elem , index )      '链表指定位置插入元素   

         If  index  <  1  Or  index  >  Length  Then

              MsgBox  "Index is not correct"

              Exit  Sub

         Else

              Dim  ndobj , temp , p , i

              Set  ndobj = New  Node

              Set  ndobj . setNextP = Nothing

              ndobj . letData = elem

              Set  temp = Head 

              For  i = 0  To  index -1  Step  1

                   Set  p = temp

                   Set  temp = temp . getNextP

              Next

              Set  ndobj . setNextP = temp

              Set  p . setNextP = ndobj

              Length = Length +1 

         End  If      

     End  Sub

     Public  Function  Print                '打印单向链表

         Dim  temp , i

         Set  temp = Head

         For  i = 0  To  Length  Step  1

              Print = Print & temp . getData & " "

              Set  temp = temp . getNextP

         Next

     End  Function        

End  Class   

 

以下为实例测试代码：

' ------------------------------- 

'     脚本空间调用类实例

' ------------------------------- 

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