使用 ArrayList 将文本文件拆分并存储到数组中

我一直在开发一个测验应用程序，它使用文本文件来存储问题。

问题的格式如下"QUESTION##CHOICE_A##CHOICE_B##CHOICE_C##CHOICE_D##ANSWER"我希望它读取每一行并将其分成 6 个不同的部分"##"作为分割字符串并将其存储到数组中，例如Questions, CHOICE_A,CHOICE_B,CHOICE_C,CHOICE_D

我的代码不循环。它只存储第一行

下面显示了问题的图形说明

这是我的代码

Dim sr As StringReader = New StringReader(My.Resources.ResourceManager.GetObject(globalVariables.currSubject))

    Dim questions As String

    Dim splitquestions(6) As String

    Dim Unsplitquestions(6) As String




    Dim i As Integer = 0

    Do Until sr.Peek = -1

        questions = sr.ReadLine

        Unsplitquestions(i) = questions

        splitquestions = Unsplitquestions(i).Split(New String() {"##"}, StringSplitOptions.RemoveEmptyEntries)

        ' Splits and Stores Into Various 
        '
        '


        globalVariables.ArrayQuestions.Add(splitquestions(0))

        globalVariables.optionA.Add(splitquestions(1))

        globalVariables.optionB.Add(splitquestions(2))

        globalVariables.optionC.Add(splitquestions(3))

        globalVariables.optionD.Add(splitquestions(4))

        globalVariables.Answer.Add(splitquestions(5))

    Loop

不，不要使用 ArrayList 来操作这样的一组对象。您应该尝试以面向对象的方式思考。 QuestionEntry 是一个实体，包含 QuestionText、4 个可能的问题答案和一个 QuestionAnswer。

那么让我们尝试一下这段代码

Public Class QuestionEntry
   Public QuestionText as String
   Public ChoiceA as String
   Public ChoiceB as String
   Public ChoiceC as String
   Public ChoiceD as String
   Public QuestionAnswer as String
End Class

Dim questions = new List(Of QuestionEntry)()
Dim line As String
Do While sr.Peek() >= 0
    line = sr.ReadLine
    Console.WriteLine(line)
    Dim parts = line.Split(New String() {"##"}, StringSplitOptions.RemoveEmptyEntries)
    Dim q = new QuestionEntry()
    With q

            .QuestionText = parts(0)
            .ChoiceA = parts(1)
            .ChoiceB = parts(2)
            .ChoiceC = parts(3)
            .ChoiceD = parts(4)
            .QuestionAnswer = parts(5)

    End With
    questions.Add(q)
Loop

当然，这只是一个示例，需要进行一些错误检查以使代码更安全。例如，在创建新问题条目之前，您应该检查拆分返回的数组是否有效有 6 个元素。 （零件。长度 = 6）

现在，所有文本都由 List(Of QuestionEntry) 的实例处理，您可以像普通数组一样使用它

Dim qe = questions(0)
Console.WriteLine("Question: " & qe.QuestionText)
Console.WriteLine("Choice A: " & qe.ChoiceA)
Console.WriteLine("Choice B: " & qe.ChoiceB)
Console.WriteLine("Choice C: " & qe.ChoiceC)
Console.WriteLine("Choice D: " & qe.ChoiceD)
Console.ReadLine("Enter your answer:")