vb.net - 读取多个文本文件并列出内容 vb.net

Question

下面的代码基本上列出了文件夹中的所有文本文件

Private zMailbox As String = "c:\testfolder\"

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim finfo As New IO.DirectoryInfo(zMailbox)
    For Each fi In finfo.GetFiles("*.txt")
        ListBox1.Items.Add(fi.FullName) 'full path only
    Next
End Sub

我真正需要做的是使用该ReadAllLines方法并用内容填充ListBox- 这就是我卡住的地方。有什么建议吗？

Answer 1

如果要将文本文件中的每一行作为单独的项目添加到 中ListBox，可以使用该ListBox.Items.AddRange方法在一个方法调用中添加所有行，如下所示：

ListBox1.Items.AddRange(File.ReadAllLines(fi.FullName))

该AddRange方法允许您通过给它一个要添加的项目数组来一次添加多个项目。由于ReadAllLines返回一个字符串数组，您可以将该数组传递给AddRange方法以将所有行添加为单独的项目。

如果您更容易理解发生了什么，您可以将这些步骤分成多行，如下所示：

Dim lines() As String = File.ReadAllLines(fi.FullName)
ListBox1.Items.AddRange(lines)