1

以下のコードは基本的に、フォルダー内のすべてのテキスト ファイルを一覧表示します。

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して内容を入力することです-これが私が行き詰まっているところです。何かアドバイス？

4

1 に答える 1

2

テキスト ファイルの各行を個別のアイテムとしてに追加する場合は、 メソッドをListBox使用して、次のListBox.Items.AddRangeように 1 回のメソッド呼び出しですべての行を追加できます。

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

このAddRangeメソッドでは、追加する項目の配列を指定することで、一度に複数の項目を追加できます。は文字列の配列を返すためReadAllLines、その配列をAddRangeメソッドに渡すだけで、すべての行を個別の項目として追加できます。

何が起こっているのかを理解しやすい場合は、次のように手順を複数の行に分割できます。

Dim lines() As String = File.ReadAllLines(fi.FullName)
ListBox1.Items.AddRange(lines)
于 2013-10-18T13:25:13.803 に答える