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

最新推荐文章于 2023-02-07 11:31:01 发布

原创最新推荐文章于 2023-02-07 11:31:01 发布 · 792 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

vbs/js脚本技术

本文详细介绍了如何在 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

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

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

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

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

标签

#vbscript #vbs #数据结构 #单链表 #脚本