加载/将.txt分为多个列表框

Question

我正在尝试找出一种加载非常大的.txt文件的方法，并想如果我将其分解为部分(listBox(，它将更快地加载，并且更容易用较少的滞后来操作。还是有一种与背景工人一起使用的方法？这是我加载.txt

的方式

      TextBox1.Text = ""
    OpenFileDialog1.Title = "Load File"
    OpenFileDialog1.InitialDirectory = "C:temp"
    OpenFileDialog1.ShowDialog()
    Dim path As String = OpenFileDialog1.FileName
    TextBox1.Text = path
    Dim lines() As String = IO.File.ReadAllLines(TextBox1.Text)

如果有帮助，我可以进入.txt的每1/4标记.txt的每1/4标记？我在想我是否迭代XX数量的线，然后下一个列表框等。也许是某种形式的项目。在没有语句中计算？我的想法圈出了，请瞄准我的最佳方向。我的文件是25.mb，生长缓慢。Notepad 是唯一处理它的事情。

     ListBox1.Items.Add(lines(1 - 10000))

引发错误("外部数组索引或类似"(

       ListBox1.Items.Add(lines(10000))

加载单线

Answer 1

可能与此相关的东西。这不是100％准确的代码。但是给你一个主意。

Dim dt As New DataTable()
Dim lines As New List(Of [String])()
lines = New List(Of [String])(File.ReadLines(ofDialog.FileName))
Task.Run(Function() 
Dim options As New ParallelOptions()
options.MaxDegreeOfParallelism = CInt(1)//Number of threads to spawn
Parallel.ForEach(lines, options, Function(line) 
    dt.Rows.Add()
End Function)
Me.Invoke(DirectCast(Sub() listview.DataSource = dt, MethodInvoker))
End Function)