我有很多行這樣的'蝙蝠俠=遊戲一個RichTextBox \ file.exe程式刪除字符串調校妥當,從線路的RichTextBox vb.net
蝙蝠俠=遊戲\文件\ spid.exe
SNaruto =遊戲\文件\ spid.exe
蜘蛛俠=藍色\ spk.exe
遊戲= gigi.exe
我試圖讓每一個按鈕的文本刪除=後是這樣
蝙蝠俠
SNaruto
蜘蛛俠
遊戲
甚至
蝙蝠俠=
SNaruto =
蜘蛛俠=
遊戲=
感謝
我有很多行這樣的'蝙蝠俠=遊戲一個RichTextBox \ file.exe程式刪除字符串調校妥當,從線路的RichTextBox vb.net
蝙蝠俠=遊戲\文件\ spid.exe
SNaruto =遊戲\文件\ spid.exe
蜘蛛俠=藍色\ spk.exe
遊戲= gigi.exe
我試圖讓每一個按鈕的文本刪除=後是這樣
蝙蝠俠
SNaruto
蜘蛛俠
遊戲
甚至
蝙蝠俠=
SNaruto =
蜘蛛俠=
遊戲=
感謝
你是幸運的,我一直從早上爲類似的代碼工作你想要什麼,在這裏,我們走了我對我的代碼做了一些修改以適應你的要求
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
這就是爲這個簡單的任務編寫很多代碼的方法...... – 2015-02-13 20:36:16
TextBox和RichTextBox都有'Lines'數組屬性,其中每個元素都是文本中的一行,因此要讀取每一行你可以使用'String.Chars'數組來獲取每個字符,而不是每個字符都使用Substring,這個代碼會佔用更多的RAM和處理器,我建議你閱讀這個:https: //msdn.microsoft.com/en-us/library/system.windows.forms.textboxbase.lines%28v=vs.110%29.aspx和此https://msdn.microsoft.com/en-us/library /system.string.chars%28v=vs.110%29.aspx – 2015-02-13 20:56:25
我的意思是說「你使用的是這個代碼」而不是「這個代碼」。但是,我喜歡你的代碼,但你已經管理用你自己的方式解決問題。(: – 2015-02-13 22:26:25
嘗試這種情況:
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
,其中<>
表示「不等於」。 瞭解更多: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
您可以使用'String.IndexOf'方法:https://msdn.microsoft.com/en-us/library/kwb0bwyd(v=vs.110).aspx – 2015-02-12 09:05:44
謝謝你,但我在這方面是新的 你能舉個例子嗎? – ryan2014 2015-02-12 23:19:34
給出的例子。 (: – 2015-02-13 23:15:55