Question

我有一个富文本框，有很多行，比如这个'Batman = games \ file.exe

蝙蝠侠=游戏\文件\ spid.exe

SNaruto =游戏\文件\ spid.exe

蜘蛛侠=蓝色\ spk.exe

游戏= gigi.exe

我试图在 = 之后删除每个文本的按钮

蝙蝠侠

SNaruto

蜘蛛侠

游戏

甚至

蝙蝠侠=

SNaruto =

蜘蛛侠=

游戏=

感谢

Answer 1

试试这个：

For x = 0 To RichTextBox1.Lines.Length - 1
    Dim i As Integer = RichTextBox1.Lines(x).IndexOf("=")
    If i <> -1 Then
        RichTextBox1.Lines(x) = RichTextBox1.Lines(x).Remove(i)
    End If
Next

关于所用属性和方法的一点解释：

RichTextBox.Lines()属性是一个字符串数组，其中每个元素/对象代表RichTextBox中的一行。 了解详情： https://msdn.microsoft.com/en-us/library/system.windows.forms.textboxbase.lines(v=vs.110).aspx

IndexOf方法返回指定字符串内的字符或字符串的索引。如果找不到任何内容，则返回-1。我们检查错误，以便IndexOf不返回-1。这就是我们使用If i <> -1 Then的原因，其中<>表示＆＃34;不等于＆＃34;。 了解详情： https://msdn.microsoft.com/en-us/library/system.string.indexof(v=vs.110).aspx

Remove方法将从指定的起始位置开始从指定的字符串中删除金额字符。然后它将删除所有字符，包括在指定的起始位置和之后的字符。 了解详情： https://msdn.microsoft.com/en-us/library/system.string.remove%28v=vs.110%29.aspx

Answer 2

你很幸运，我从早上起就一直在努力寻找你想要的类似代码，在这里我们对我的代码进行了一些更改，以满足你的要求

Dim x As String = ""
        Dim y As String = ""
        For Each strLine As String In TextBox1.Text.Split(vbNewLine) 'TO read each line in text box
            Dim ii As Integer = strLine.Length
            Dim i As Integer = 0
            For i = 0 To ii - 1
                y = strLine.Substring(i, 1)
                If y = "=" Then
                    x = strLine.Substring(0, i)
                    TextBox2.AppendText(x & Environment.NewLine)
                End If
            Next
        Next

从行richtextbox vb.net中删除特殊字符串

2 个答案: