替換ListBox中的壞詞

Question

有人可以告訴我如何從列表框中刪除壞詞嗎？

示例我有一個項目“ Sh * t hats”，但我想用任何內容替換“ Sh * t”。 我怎樣才能做到這一點？ 我試過了：

ListBox1.Items.Item(1).remove("Sh*t")

Answer 1

這取決於您如何添加ListBox項，如果它們只是字符串，則應該起作用：

For i = 0 To ListBox1.Items.Count - 1
    If ListBox1.Items(i).ToString.Contains("badword") Then
        ListBox1.Items(i) = ListBox1.Items(i).ToString.Replace("badword", "")
    End If
Next

（請注意其區分大小寫），您可以使用ListBox1.Items(i) = ListBox1.Items(i).ToString.ToLower.Replace("badword", "")但這意味着將更改的任何項目都將變為全部小寫。

Answer 2

本示例創建一個帶有badwords的通用字符串列表，遍歷列表框，與錯誤單詞列表進行比較，如果找到則刪除：

Dim BadWords As New List(Of String)
BadWords.Add("poop")
BadWords.Add("crap")
For Each li As ListItem In Me.ListBox1.Items
   If BadWords.Contains(li.Text) Then
       li.Text = ""
   End If
Next

在每次迭代中， li都是ListBox's ListItem元素的實際實例，因此立即對其進行修改，也會在列表中對其進行更新。