0

我有一个包含数据的“容器”。大小为 +- 100MB。在容器中有几个“dataids”，标志着某事的开始。

现在我需要获取给定 dataid 的索引。（例如：'4CFE7197-0029-006B-1AD4-000000000012'）

我尝试了几种方法。但此时“ReadAllBytes”是性能最高的。

ReadAll -> 平均 0.6 秒

Using oReader As New BinaryReader(File.Open(sContainerPath, FileMode.Open, FileAccess.Read))
    Dim iLength As Integer = CInt(oReader.BaseStream.Length)
    Dim oValue As Byte() = Nothing
    oValue = oReader.ReadBytes(iLength)
    Dim enc As New System.Text.ASCIIEncoding
    Dim sFileContent As String = enc.GetString(oValue)

    Dim r As Regex = New Regex(sDataId)
    Dim lPosArcID As Integer = r.Match(sFileContent).Index
    If lPosArcID > 0 Then
        Return lPosArcID
    End If
End Using

ReadByteByByte -> 平均 1.4 秒

Using oReader As BinaryReader = New BinaryReader(File.Open(sContainerPath, FileMode.Open, FileAccess.Read))
    Dim valueSearch As StringSearch = New StringSearch(sDataId)

    Dim readByte As Byte
    While (InlineAssignHelper(readByte, oReader.ReadByte()) >= 0)
        index += 1
        If valueSearch.Found(readByte) Then
            Return index - iDataIdLength
        End If
    End While
End Using



Public Class StringSearch
    Private ReadOnly oValue() As Byte
    Private iValueIndex As Integer = -1

    Public Sub New(value As String)
        Dim oEncoding As New System.Text.ASCIIEncoding
        Me.oValue = oEncoding.GetBytes(value)
    End Sub

    Public Function Found(oNextByte As Byte) As Boolean

        If oValue(iValueIndex + 1) = oNextByte Then
            iValueIndex += 1

            If iValueIndex + 1 = oValue.Count Then Return True
        Else
            iValueIndex = -1
        End If

        Return False
    End Function
End Class

Public Function InlineAssignHelper(Of T)(ByRef target As T, ByVal value As T) As T
    target = value
    Return value
End Function

我很难相信没有更快的方法。100MB 文件的 0.6 秒是不可接受的时间。

我尝试过的另一种方法是分割成 X 字节（100、1000、..）的块。但是速度慢了很多。

我可以尝试的方法有什么帮助吗？

4

0 回答 0