VB.net 从数组中获取每第 n 条记录

Question

我有每分钟接收数千条记录的动态数组，我正在努力实现：

使用计时器我需要从主数组中获取记录。每 1 秒进程应该访问主数组并获取 20 条记录，然后在第二秒之后它将获取接下来的 20 条记录，等等...

实现这一目标的最佳和最快方法是什么？

我有一个主数组，其中包含数千条不断增长的记录：

Public Shared myBigArray() As String = {}

正在使用以下方法将新项目添加到数组中：

Module Module2
<Extension()>
Public Sub Add(Of T)(ByRef arr As T(), item As T)
    Array.Resize(arr, arr.Length + 1)
    arr(arr.Length - 1) = item
End Sub
End Module

myBigArray.Add(message)

要将记录从主数组复制到我使用的新数组：

Array.Copy(myBigArray, smallArray, 20)

我需要循环复制过程，以便复制新记录，每个请求复制 20 条下一条记录。

Answer 1

在定义了计时器的类中，您需要定义私有整数变量，比如说countOfReads，它将指示从数组中读取元素的次数。

然后您可以使用它从数组中获取数据 - countOfReads 的 20*countOfReads 和 20*(countOfReads+1) - 1 之间的条目从 0 开始（第一次读取，因此索引将介于 0 和 19 之间），等等。

用法：

For i = countOfReads * 20 To (countOfReads + 1)*20 - 1)
    ' fetch your elements with myArray(i)
Next
' increment counter
countOfReads = countOfReads + 1

Answer 2

当你想要它快时，你不应该调整数组的大小。在这种情况下，列表应该更合适。对于这两种情况，您都应该记住 Int32.MaxSize 的最大大小（大约 2 十亿）。

示例（仍需要一些错误检查等）：

Imports System
Imports System.Collections.Generic

Public Module Module1

    Public Sub Main()

        Dim myBigList as New List(of string)

        'debug: fill with random nu
        For i As Integer = 1 To 100
            myBigList.Add("string_" & i)    
        Next

        Dim _startpos As Integer = 0
        For i As Integer = 1 to 5
            Console.WriteLine("_startpos:" & _startpos )
            For Each _s As String in myBigList.GetRange(_startpos,20)
                Console.WriteLine(_s)
            Next
            _startpos += 20
        Next
    End Sub

End Module