Henry手记—.NET数据结构对象补遗之单链表（二） (转)

Henry手记—.NET数据结构对象补遗之单链表（二） (转)[@more@]

  Henry手记—.NET数据结构对象补遗之单链表（二）XML:namespace prefix = o ns = "urn:schemas-microsoft-com:Office:office" />

  韩睿  ( 06/15/2003)

 

3.4根据索引位置或数据元素值在链表中查找

在链表中定位是对其进行操作的基础，我们在类的内部定义两个Protected的查找函数：

Protected Overridable Function FindbyIndex(ByVal index As Integer) As ListNode

  '通过index来查找链表中的结点

  Dim tempIndex As Integer = 0

  Dim current As ListNode = head.NextNode '从头结点后的第一个结点开始

  Dim returnValue As ListNode = Nothing '初始化返回结点

  Do '循环查找

  If index = tempIndex Then

  returnValue = current

  Else

  current = current.NextNode

  tempIndex += 1

  End If

  Loop Until current Is Nothing Or Not returnValue Is Nothing

  Return returnValue

End Function

 

Protected Overridable Function FindByValue(ByVal value As object) As Integer

  '通过数据值来查找链表中的结点的index

  Dim tempIndex As Integer = 0

  Dim current As ListNode = head.NextNode '从头结点开始

  Dim returnValue As Integer = -1 '初始化返回值

  Do '循环查找

  If value.Equals(current.Data) Then

  returnValue = tempIndex

  Else

   current = current.NextNode

  tempIndex += 1

  End If

  Loop Until current Is Nothing Or returnValue > -1

  Return returnValue

End Function

有这样的基础，我们就可以实现IList接口的IndexOf索引方法了：

Public Overridable Function IndexOf(ByVal value As Object) _

  As Integer Implements IList.IndexOf

  '通过结点数据值返回结点索引

  Validate(value) '先验证值

  Return FindByValue(value) '调用protected的查找方法

End Function

这样，我们在使用链表来查找某个值的索引时，如果value为空，会抛出一个异常；如果没有找到，会返回-1；找到了会返回该数据元素所在的索引位置。是不是与ArrayList的处理方法很相似？

另外，我们还需要实现Contains功能，用于判断链表中是否存在某个值：

 Public Overridable Function Contains(ByVal value As Object) _

  As Boolean Implements IList.Contains

  '在链表中查找value值

  Validate(value)

  If FindByValue(value) = -1 Then

  Return False '找不到

  Else

  Return True '找到了

  End If

End Function

3.5  添加结点

在上文第1节就提到过，添加结点有两种情况，向链表尾添加与按索引值插入：

Public Overridable Function Add(ByVal value As Object) _

   As Integer Implements IList.Add

  '向链表尾添加结点

  Validate(value) '先验证值

  tail.NextNode = New ListNode(value) '将现有尾结点的下一结点引用指向新结点

  tail = tail.NextNode '将新添加的结点设为尾结点

  version += 1 '更改版本号

  nodeCount += 1 '添加链表计数

  Return nodeCount - 1 '返回尾结点索引

End Function

 

Public Overridable Sub Insert(ByVal index As Integer, _

  ByVal value As Object) Implements IList.Insert

  '向指定的索引处添加结点

  Validate(index, value) '验证索引与数据值

  Dim tempNode As ListNode = FindByIndex(index) '找到索引处的现有结点

  '定义新结点，新结点的下一结点引用指向索引号为index的结点

  Dim newNode As ListNode = New ListNode(value, tempNode)

　　　　'将index-1处的结点的下一结点引用指向新结点

  FindByIndex(index - 1).NextNode = newNode

   version += 1 '更改版本号

  nodeCount += 1 '添加链表计数

End Sub

3.6  删除结点

Protected Overridable Sub RemoveNode(ByVal node As ListNode, ByVal index As Integer)

  '在类内部使用的删除结点

  '删除结点的方法是将它前一结点的下一结点引用指向它的后一结点

  Dim tempNode As ListNode = FindByIndex(index - 1)  '找到欲删除结点的前一结点

  tempNode.NextNode = node.NextNode

  If node Is tail Then

  tail = tempNode

  End If

  version += 1 '更改版本号

  nodeCount -= 1 '减少链表计数

End Sub

 

Public Overridable Sub Remove(ByVal value As Object) _

  Implements IList.Remove

  '类实现接口的删除方法

  Validate(value)

  RemoveAt(FindByValue(value))

End Sub

 

Public Overridable Sub RemoveAt(ByVal index As Integer) _

  Implements IList.RemoveAt

  '类实现接口的按索引进行删除的方法

  Validate(index)

  Dim node As ListNode = FindByIndex(index)

  RemoveNode(node, index)

End Sub

 

Public Overridable Sub Clear() Implements IList.Clear

  '清空链表

  head.NextNode = Nothing

  tail = head

  nodeCount = 0

  version = 0

End Sub

从上面的三个Remove方法来看，其实都是通过类内部的RemoveNode方法来进行删除，只不过向用户提供了两个接口：一个是根据索引值来删除，一个是通过比对数据元素值来删除。在这里要说明一下，单链表因为不能反向查找前一结点，因此删除的效率比双向链表低，这一点我们以后在实现双链表的时候还会提及。

3.7  复制

将链表中的数据元素按某一索引为起始，将元素复制到Array中去。这一方法在实际操作中分外有用：

Public Overridable Sub CopyTo(ByVal array As System.Array, _

  ByVal index As Integer) Implements IList.CopyTo

  '从链表的索引处开始将元素复制到列表中去

  If array Is Nothing Then

  Throw New ArgumentNullException()

  ElseIf index < 0 Then

  Throw New ArgumentOutOfRangeException("索引越界")

  ElseIf index >= array.Length _

  Or (array.Length - index - 1) > nodeCount _

  Or array.Rank <> 1 Then

  Throw New ArgumentException()

  End If

  Dim current As ListNode = head.NextNode

  Dim position As Integer = index

  '循环复制

  While Not current Is Nothing

  array(position) = current.Data

  current = current.NextNode

   position += 1

  End While

End Sub

 ----

声明：本文版权与解释权归韩睿所有，如需转载，请保留完整的内容及此声明。

qq: 18349592

E-Mail: hotmail.com" rel="nofollow">henry7685@hotmail.com

 请访问本人专栏：http://www.csdn.net/develop/author/netauthor/Latitude/

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752019/viewspace-959251/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10752019/viewspace-959251/