如何重命名ListBox控件中的所有项

Question

如何重命名ListBox包含以下内容

C:\Logs\2016-09-28-2.log
C:\Logs\2016-09-28-1.log

到

C:\Logs\2016-09-28-2.log.gz
C:\Logs\2016-09-28-1.log.gz

Answer 1

假设您使用的是WinForms，您可以通过Items property修改ListBox中项目的属性。这将返回ListBox.ObjectCollection。您可以索引此集合并修改单个项目。

通常，ListBox中的项只是字符串，因此将新字符串分配给Items集合中的相应索引将更改ListBox中的文本。但是，它们实际上可以是任何类型的对象。检查首先将项添加到ListBox的代码，以确保它们是字符串。如果它们是其他内容，则需要相应地修改该数据结构。

要对列表中项目的所有执行此操作，您需要使用循环遍历整个Items集合的循环。

例如：

For i As Integer = 0 to (myListBox.Items().Count - 1)
    myListBoxItems.Items(i) = myListBox.Items(i) + ".gz"
Next

如果无法保证ListBox中的所有项都应添加.gz扩展名，则需要在循环体内使用条件语句，该语句首先测试当前的值string以决定是否附加扩展名。

Answer 2

要获得最低限度的解决方案，请尝试以下代码

Dim MyList = (From lst In ListBox1.Items.Cast(Of String)() Select lst & ".gz").ToList

ListBox1.DataSource = MyList