database - 将列表列表保存到文件的最有效方法？

Question

在 VS 2010 中，我有一个很大的字符串列表，列表中的每个项目也包含字符串列表(不再继续)。好事是只会进行添加。不会从列表中删除任何内容。

我不想使用数据库。由于列表可能会变得非常大，XML 对我来说似乎很慢。我找不到适合我的案例的任何通用解决方案。有什么想法吗？

编辑:好的，我猜我的一些代码会让它更清晰。

Class Word
    Public theWord As String
    Public SubWords As New List(Of SubWord)
    Public Count As Integer = 1
    Sub New(ByRef Word As String)
        theWord = Word
    End Sub
    Public Sub AddSubWord(ByRef Word As String)
        Dim SubWordCount As Integer = SubWords.Count - 1
        Dim Found As Boolean
        For i = 0 To SubWordCount
            If SubWords(i).theWord = Word Then
                SubWords(i).Count += 1
                Found = True
                Exit For
            End If
        Next
        If Found = False Then
            SubWords.Add(New SubWord(Word))
        End If
    End Sub
    Public Overrides Function ToString() As String
        Return theWord
    End Function
End Class

Class SubWord
    Public theWord As String
    Public Count As Integer = 1
    Sub New(ByRef Word As String)
        theWord = Word
    End Sub
    Public Overrides Function ToString() As String
        Return theWord
    End Function
End Class

还有我的列表是:

Dim Words As New List(Of Word)

目的是如果单词不在列表中而不增加它的计数，则将单词添加到列表中。子词也一样。稍后，所有列表将根据它们的计数进行排序。将会有太多的单词，每个单词都有一个巨大的子词列表。

Answer 1

XML 看起来确实是最好的选择，但如果您真的很关心效率，并且您确定数据结构将来不会改变，您可以简单地将数据存储在带分隔符的文本文件中。例如:

Private Sub SaveList(filePath As String, list As List(Of List(Of String)))
    Const fieldDelimiter As String = ","
    Const recordDelimiter As String = Environment.NewLine
    Dim temp As New List(Of String)()
    For each i as List(Of String) in list)
        temp.Add(String.Join(fieldDelimiter, i.ToArray()))
    Next
    Dim contents As String = String.Join(recordDelimiter, temp.ToArray())
    File.WriteAllText(filePath, contents)
End Sub

或者，更有效:

Private Sub SaveList(filePath As String, list As List(Of List(Of String)))
    Const fieldDelimiter As String = ","
    Const recordDelimiter As String = Environment.NewLine
    Using writer As New StreamWriter(filePath)
        Dim firstRecord As Boolean = True
        For Each record as List(Of String) In list)
            If firstRecord Then
                firstRecord = False
            Else
                writer.Write(recordDelimiter)
            End If
            Dim firstField As Boolean = True
            For Each field As String In record
                If firstField Then
                    firstField = False
                Else
                    writer.Write(fieldDelimiter)
                End If
                writer.Write(field)
            Next
        Next
    End Using
End Sub    

这种方法的缺点是您需要确保您使用的分隔符绝不会出现在任何记录的任何字段中。如果您确定字符串永远不会包含某个不寻常的字符，那么您可以使用它。否则，另一种选择是逃避任何事件。因此，例如，如果您使用逗号作为分隔符，则需要将所有出现的 , 替换为 \,，然后还替换所有出现的 \ 与 \\。当然，这不仅会使您的保存逻辑复杂化，还会使您的加载逻辑复杂化。

更新

如果速度是您最关心的，并且您可以保证 Words 和 Subwords 都少于 100 个字符，那么读写数据的最快方法是将每个单词写在文本文件的新行上，后面是每个使用固定宽度字段的子词。例如，如果最大长度为 5，则文件可能如下所示:

Word Sub1 Sub2
W2   SW1  SW2  SW3
W3
W4   SubWdSub2.

如您在该示例中所见，有四个词(“Word”、“W2”、“W3”和“W4”)，每个词都有不同数量的子词。 “Word”的子词是“Sub1”和“Sub2”。 “W3”没有子词，W4 有 2 个(“SubWd”和“Sub2.”)。

因此，要写出该文件，您可以这样做:

Private Sub SaveWords(filePath As String, words As List(Of Word))
    Const maxLength As Integer = 100
    Using writer As New StreamWriter(filePath)
        Dim firstWord As Boolean = True
        For Each w As Word in words
            If firstWord Then
                firstWord = False
            Else
                writer.WriteLine()
            End If
            writer.Write(w.theWord.PadRight(maxLength))
            For Each s As SubWord In w.SubWords
                writer.Write(s.theWord.PadRight(maxLength))
            Next
        Next
    End Using
End Sub