vb.net - 如何替换列表框vbnet中的单词或字符？

Question

大家好，我需要用按钮删除和替换列表框中的单词或字符。

示例：字符 1 字符 字符 1 字符 字符 1 字符

输出字符字符字符

标签： vb.net

Answer 1

一旦将字符串设置为等于 ListBox 项，您可以通过多种方式更改字符串：

Imports System.Text

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'Use StringBuilder, more efficient for long strings >200
        Dim badString As String = "Char1cter"
        Dim aStringBuilder As New StringBuilder(badString)
        aStringBuilder.Remove(4, 1)
        aStringBuilder.Insert(4, "a")
        badString = aStringBuilder.ToString()
        MsgBox(badString)

        'Use Remove/Insert at specific locations
        badString = "Char1cter"
        badString = badString.Remove(4, 1).Insert(4, "a")
        MsgBox(badString)

        'Use .Replace, but first test if there is a 1 anywhere in the string
        badString = "Char1cter"
        If InStr(badString, "1") Then
            badString = badString.Replace("1", "a")
            MsgBox(badString)
        End If

        'Use .Replace w/o testing for a 1
        badString = "Char1cter"
        badString = badString.Replace("1", "a")
        MsgBox(badString)
    End Sub
End Class

如果您需要遍历字符串中的每个字符，可以使用例如：

Dim newString as String = ""
For Each ch As Char In badString
  If ch <> "1" Then 
     newString &= ch
  Endif
  If ch = "1" Then 
     newString &= "a"
  Endif
Next